VB上机试题及答案
国家二级VB机试(上机操作)模拟试卷400(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷400(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visua，Basic应用程序(包括界面和代码)。
(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处于选中状态，运行时的窗体如图3—147所示。
请画控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为1～100；画一个命令按钮，名称为C1，标题为“移动滚动框”。
请编写适当的事件过程，使得在运行时，每单击命令按钮一次(假定单击次数少于10次)，滚动框向右移动10个刻度。
运行时的窗体如图3—148所示。
要求程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Form1中加入一个复选框，并用“复制”和“粘贴”的方法，生成包含四个元素的复选框数组。
步骤3：分别设置窗体和复选框数组中各元素的相关属性。
步骤4：按要求将文件保存至考生文件夹中。
(2)【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置相应属性。
步骤2：在代码编辑窗口，编写命令按钮的Click事件过程。
参考代码：Private Sub C1_Click( )HS1．Value＝HS1．Value＋10End Sub 步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．(1)在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。
国家二级VB机试(上机操作)模拟试卷102(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷102(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个名称为．CDl的通用对话框，通过属性窗口设置CDl的初始路径为C：＼，默认的文件名为None，标题为“保存等级考试”，如图3．125所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上设计一个菜单。
要求在窗体上添加名为menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menul子菜单不可用，menu2子菜单已经选中(运行时的效果如图3．126所示)。
再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。
要求程序中不得使用变量，且只有一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．fm正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工程】→【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSofy Common Dialog Control6．0”项目，单击“确定”按钮。
步骤2：在窗体Forml 上画一个通用对话框并设置相关属性。
步骤3：编写Forml的Load事件，加入下面的代码：CD 1．ShowSave步骤4：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，打开VB菜单设计器按要求设计菜单。
步骤2：打开代码编辑窗口，编写“上一菜单项可用”命令的Click事件过程。
参考代码：Private Sub menu2 C1ick( ) menul．Enabled=TrueEnd Sub步骤3：按要求将文件保存至考生文件夹中。
vb上机考试习题以及答案
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5?5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load()= 1= 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then= X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
vb上机试题及答案
vb上机试题及答案一、选择题（每题2分，共10分）1. VB中，用来声明变量的关键字是：A. DimB. SetC. CallD. Function答案：A2. 下列哪个不是VB中的控件事件？A. ClickB. LoadC. PrintD. Resize答案：C3. VB中，用于循环结构的关键字是：A. ForB. NextC. LoopD. Do答案：A4. VB中，用于定义过程的关键字是：A. SubB. FunctionC. DimD. Call答案：A5. VB中，用于定义窗体的关键字是：A. FormB. ClassC. ModuleD. Property答案：A二、填空题（每题2分，共10分）1. VB中，使用________关键字可以定义一个数组。
答案：Dim2. 在VB中，________函数用于将字符串转换为大写。
答案：UCase3. VB中的________函数用于计算字符串的长度。
答案：Len4. 使用________语句可以退出当前循环。
答案：Exit For5. VB中，________语句用于创建一个子程序。
答案：Sub三、简答题（每题5分，共15分）1. 请简述VB中如何声明一个变量，并赋值。
答案：在VB中，使用Dim关键字声明变量，例如Dim myVar As Integer，然后使用赋值语句赋值，例如myVar = 10。
2. 解释VB中什么是事件驱动编程。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件触发，而不是由程序的顺序执行决定。
在VB中，用户操作（如点击按钮）会触发事件，程序响应这些事件执行相应的代码。
3. 描述VB中如何使用条件语句。
答案：在VB中，使用If...Then...Else语句来实现条件判断。
例如，If condition Then '执行代码块 1 Else '执行代码块 2 End If。
四、编程题（每题15分，共30分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
国家二级VB机试(上机操作)模拟试卷354(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷354(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上画一个名称为Combol的组合框，其宽度为1200，其类型如图3．188所示(即简单组合框)。
要求如下：①请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。
②设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“左”、“右”，如图3．189。
要求：编写适当的事件过程，使得程序运行时，单击“左”按钮，则焦点位于Text1上；单击“右”按钮，则焦点位于Text2上。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
(2)步骤1：新建一个“标准。
EXE”工程，按要求画出控件并设置属性。
步骤2：双击“左”命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入代码。
步骤3：从代码编辑窗口的“对象”下拉列表中选择Command2，从“事件”下拉列表选择Click，编写以下事件过程。
参考代码：PriVate Sub Command1_Click( )Text1．SetFocusEnd SubPriVate Sub Command2_Click( )．Text2．SetFocusEnd Sub 步骤4：按要求将文件保存至考生文件夹中。
解析：(1)本题只需要在窗体上画出相应控件并设置其属性即可。
国家二级VB机试(上机操作)模拟试卷600(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷600(题后含答案及解析)题型有：1.jpg /> 步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案PriVate Sub Commandl_Click( ) Text2=Textl．SelLength End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】SelLength属性与SelStart和SelText属性容易混淆，SelStart属性是返回／设置选定文本的起始点，SelText属性是返回／设置当前选定文本的字符串。
解析：selLength属性用于返回／设置选定的字符数，通过文本框的Name 和Caption属性设置文本框的名称和标题，通过命令按钮的Name和Cap．tion 属性设置命令按钮的名称和标题。
简单应用题3．在考生文件夹下有一个工程文件sjt3．vbp。
程序运行后，单击“读入数据”按钮，可将考生文件夹下in3．1xt文件中的所有英文单词读入，并在Textl 文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在in3．txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。
已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。
最后用原来的文件名保存工程文件和窗体文件。
正确答案：【操作步骤】步骤l：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容) Private Sub Commandl_C1ick( ) Dim st$．ch$ Open App．Path＆＂＼in3．txt＂For In—put As#’打开文件Do While Not EOF(1)′文件指针是否到达文件末尾Input#1，ch′达到文件末尾返回true．否则返回false st=st＆ch′将读出的数据加到原有数据末尾Loop Close#1′关闭文件Textl=st′将内容显示在文本框中End Sub Private Sub Command2_Click( ) Dim st$，word$，C$ St=Textl n=Len(St) For k=1 TO n c=Mid(st，k，1)′从st 中依次取出1个字符进行比较If c＜＞＂＂Then word=word＆C E1Se Listl．AddItem word word=＂＂将word清空，为下一次作准备End If Next LiStl．AddItem word End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
国家二级VB机试(上机操作)模拟试卷460(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷460(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画1个名称为Cbol的组合框，组合框的列表项分别是：北京、天津、上海。
请设置组合框的参数，使其外观如图3－6所示。
窗体的标题是“用组合框”。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)在名称为Form1的窗体上画1个名称为Pl的图片框，窗体的标题为“程序设计”，如图3－7(a)所示。
编写适当的事件过程，使得程序运行后，单击窗体，则在图片框中显示窗体的标题，并把窗体的标题变为Basic，如图3－7(b)所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个组合框。
按表4－3设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个图片框。
按表4－4设置其相关属性。
步骤2：在打开的代码编辑窗口中，编写窗体的Click 事件代码。
参考代码：Private Sub Form Click( ) P1．Print Form1．Caption Form1．Caption＝”Basic”End Sub 步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．(1)在考生文件夹中有一个工程文件sjt3．vbp，窗体上有2个命令按钮、1．个水平滚动条和1个计时器，其名称分别为Command1、Command2、HScroll1和’Timed，如图3－8(a)所示。
程序运行后，按钮Command1、Command2的标题分别立即显示“开始”“停止”，同时把计时器的Intaval属性设置为100，Enabled 属性设置为False。
VB上机试题及答案
上机操作练习题1．某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换,第2个数与第19个元素互换，…,第10个元素与第11个元素互换.在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer，j as integer, t as integerPrivate Sub Form_Load(）ShowPrint "原始数组是：”RandomizeFor i = 1 To 20a(i) = Int（Rnd ＊90）+ 10Print a(i）；If i Mod 10 = 0 Then PrintNext iPrintPrint ”现在数组是：”For i = 1 To 10j = 21 - it = a（i）：a(i）= a(j）：a(j) = tNext iFor i = 1 To 20Print a（i)；If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中"注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除；2）能实现多次删除Private Sub Form_Load（）ShowReDim a（9）As Integerm = 1Print ”原来数组为:”For i = 0 To 9a(i) = InputBox(”请输入第”＆m ＆"个数：”）Print a(i)；m = m + 1Next iPrintn = InputBox(”查找的数是："）i = 0：flag = FalseDoIf a(i) = n Thenj = i：flag = TrueFor k = j To UBound（a) - 1a（k）= a（k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound（a）)If flag = False ThenMsgBox n ＆"不在该数组中”ElsePrint ”删除”＆n ＆"后的数组是：”For i = 0 To UBound(a）Print a(i）；Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
vb考试题及答案
vb考试题及答案一、选择题（每题2分，共20分）1. VB中的“Dim”关键字用于声明什么？A. 变量B. 常量C. 类型D. 过程答案：A2. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable-nameC. variable$nameD. variable name答案：B3. VB中的“Sub”过程可以返回值吗？A. 是B. 否答案：B4. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Date答案：C5. VB程序中，以下哪个语句用于结束程序？A. Exit SubB. End SubC. Exit ForD. End答案：D6. VB中，以下哪个是正确的条件语句？A. If (x > 10)B. If x > 10C. If x = 10 ThenD. If x = 10答案：C7. 在VB中，以下哪个是正确的循环结构？A. DoB. WhileC. ForD. All of the above答案：D8. VB中的“With”语句用于什么？A. 条件判断B. 循环控制C. 简化代码D. 错误处理答案：C9. 在VB中，以下哪个不是数组的声明方式？A. Dim arr(0 To 10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer = New Integer(10)D. Dim arr(1) As Integer答案：D10. VB中，以下哪个是正确的事件处理程序声明？A. Sub Button1_Click()B. Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Sub Button1_Click(ByVal e As EventArgs)D. Sub Button1_Click(ByVal sender As Object)答案：B二、填空题（每空2分，共20分）1. 在VB中，使用________关键字可以定义一个类。
全国计算机VB上机题库及答案(全)
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。
窗体的标题为"按钮窗口"。
运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。
表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。
程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。
vb上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
国家二级VB机试(上机操作)模拟试卷304(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷304(题后含答案及解析)题型有：1.jpg />(2)在名称为Form1的窗体上画一个名称为Label1、标题为“口令”的标签；画一个名称为Text1的文本框；再画三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。
程序运行时，在Text1中输入若干字符，单击“隐藏口令”按钮，则只显示同样数量的“*”，如图3—157(b)所示；单击“显示口令”按钮，则显示输入的字符，如图3—157(a)所示，单击“重新输入”按钮，则清除Text1中的内容，并把光标定位到Text1中。
要求：请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”按钮、“隐藏口令”按钮的事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，画出控件并设置相应属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：在代码编辑窗口，分别编写三个按钮的单击事件过程。
参考代码：Private Sub Command1_Click( )Text1．PasswordChar=““End SubPrivate Sub Command2_Click( )Text1．PasswordChar=“*”End SubPrivate Sub Command3_Click( )Text1=““Text1．SetFocusEnd Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需要在窗体上画出控件并相应设置其属性即可。
第2小题：PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空，使用SetFocus方法可使文本获得焦点。
vb上机答案全部
实验一Form1.print “程序设计基础教程”End subPrivate sub form_dblclick()Form1.clsEnd subDim a as single,b as single,c as single a=val(text1.text)b=val(text2.text)c=a*btext3.text=str(c)end subDim n as integer,a as singlen=val(text1.text)a= n^(1/3)text2.text=str(a)end subText1.text=“visual basic 程序设计”end subPrivate Sub Command2_click()Text1.text=“”end subText2.text=left(text1.text,5)end subPrivate Sub Command2_click()Text3.text=len(text1.text)end subForm1.Move 0, 0End SubPrivate Sub Command2_Click()Form1.Height = Form1.Height * 1.2Form1.Width = Form1.Width * 1.2End Sub7.Const pi as single=3.14159Command1_click()Dim a as single,b as single,c as single,s as single a=val(text1.text)b=val(text2.text)c=val(text3.text)s=a*b*sin((c*pi)/180)/2text4.text=round(s ,2)end sub实验二顺序Const pi as single=3.14159Private Sub Command1_click()Dim r as single,v as singler=val(text1.text)v=4/3 *pi*r^3label1.caption=format(v, “0.00”)end subDim a as single,b as single,c as single,d as single a=val(text1.text)b=val(text2.text)c=val(text3.text)d=(a+b+c)/3text4.text=format(d, “0.00”)end subText1.locked=falseEnd subPrivate Sub Text1_changeCommand2.enable=trueEnd subPrivate Sub Command_click()Text1.locked=trueCommand2.enable=falseEnd subText1.text=“欢迎光临”End subCommand2_click()Text1.text=“谢谢再见”End subText1.selstart=8Text1.sellength=9End subCommand2_click()Label2.caption=text1.seltext End subConst pi as single=3.14159Dim r as single,h as singlePrivate Sub Command click()Dim s as singler=text1.texth=text2.texts=2*pi*r^2+2*pi*r*htext3.text=format(s, “0.000”) end subPrivate Sub command2 click()dim v as singlev=pi*r^2*htext4.text=format(v, “0.000”) end subDim a as string,b as stringPrivate Sub Command1_click()a=text1.textb=text2.texttext3.text=“a” & “b”end subPrivate Sub command2_click()dim t as stringa=text1.textb=text2.textt=aa=bb=ttext1.text=atext2.text=blabel1.caption=“交换成功”end sub实验三选择Dim n as integerIf (n mod 3=0 )and (n mod 7=0 ) then Label2.caption=“Yes”ElseLabel2.caption=“No”End ifEnd subDim x as single,y as singlex=text1.texty=text2.textif x>0 and y>0 thentext3.text=“第一象限”elseif x<0 and y>0 thentext3.text=“第二象限”elseif x<0 and y<0 thentext3.text=“第三象限”else x>0 and y<0 thentext3.text=“第四象限”end ifend subDim a as single,b as single,c as single,d as single a=text1.textb=text2.textc=text3.textd=a+b+cif d>=270 thenif d>=285 thentext4.text=“Gold Medal”elsetext4.text=“Silver Medal”end ifelseif d>240 thentext4.text=“Bronze Medal”elseif a>95 or b>95 or c>95 thentext4.text=“Honor Medal”elsetext4.text=“No Medal”end ifend ifend subText.text=“我是博士生”End subOption2_clickText.text=“我是硕士生”End subOption3_clickText.text=“我是本科生”End subIf Check1.Value ThenLabel1.FontUnderline = TrueElseLabel1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value ThenLabel1.FontStrikethru = TrueElseLabel1.FontStrikethru = FalseEnd IfEnd SubDim n as singlen=text1.textif n=<4 thentext2.text=format（10，“0.0”）elseif n>4 and n<=15 thentext2.text=format（10+1.2*(n-4)，“0.0”）elsetext2.text=format（1.8*n，“0.0”）end ifend subIf text1.text=“Teacher” thenIf text2.text=“123456” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseif text1.text=“Student” thenIf text2.text=“654321” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseLabel3.caption=“用户未注册”End ifEnd sub实验四循环Dim n As Integer, i As Integer, a As Long n = Text1.Texta = 0For i = 1 To nIf (i Mod 3 = 0) And (i Mod 7 <> 0) Thena = a + iEnd IfNext iLabel1.Caption = aEnd SubDim n As Integer, m As Integer, i As Integern = Text1.Text n=val(text1.text)m = Text2.Text m=val(text2.text)If m >= n Then for i=n to 1 step -1For i = n To 1 Step -1 if n mod i=0 and m mod i=0 then If (m Mod i = 0) And (n Mod i) = 0 Then text3.text=str(i)Text3.Text = I exit forExit For end ifEnd If next iNext iElseFor i = m To 1 Step -1If (m Mod i = 0) And (n Mod i = 0) ThenText3.Text = iExit ForEnd IfNext iEnd IfEnd SubDim n As Integer, m As Integer, i As Integer, a As Integer, s As Integer, flag AsBooleanm = Text1.Textn = Text2.Texts = 0For a = m To nflag = TrueFor i = 2 To a - 1If a Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Then s = s + a Next aText3.Text = sEnd SubTimer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseLabel1.Left = 100End SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left + 100 End SubDim n As Single, i As Single, a As Single, s As Single n = Label1.Captions = 0For i = 1 To nFor a = 1 To is = s + aNext aNext iText1.Text = sEnd SubPrivate Sub HScroll1_Change()Label1.Caption = HScroll1.ValueEnd SubDim s As Single, n As Long, t As Long, i As Longs = Text1.Textt = 1For i = 1 To Len(s)If Right(s, 1) = "1" Thenn = n + tEnd Ift = t * 2s = Left(s, Len(s) - 1)Next iLabel1.Caption = nEnd SubPrivate Sub Command2_Click()Dim a As Long, q As Longa = Text1.TextDo While (a > 0)q = a Mod 2 & qa = a \ 2LoopLabel1.Caption = qEnd SubTimer1.Enabled = TrueCommand1.Enabled = FalseCommand1.Caption = "继续"Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command2.Enabled = FalseCommand1.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.FontSize = Label1.FontSize * 1.1 If Label1.FontSize > 100 ThenLabel1.FontSize = 8End IfEnd Sub实验五数组Private Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 10a(i) = Int(Rnd * 81) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer Text2.text=""For i = 1 To 9For j = i + 1 To 10If a(i) > a(j) Thent = a(j)a(j) = a(i)a(i) = tEnd IfNext jNext iFor i = 1 To 10If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2) End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & a(i) & Space(2)Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, max As Integermax = a(1)For i = 2 To 10If max < a(i) Thenmax = a(i)End IfNext iText2.Text = maxText3.Text = Chr(max)End SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 100a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & Chr(a(i)) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, b As Integer, j As Integer r = 0b = Asc(Text2.Text)For i = 1 To 100If a(i) = b Thenj = j + 1End IfNext iText3.Text = jEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i, j) & Space(2) Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_ClickDim i as Integer ,j as Integer ,s as Integer For i = 1 to 5j = 6 – is=s+a( i ,j )next iLabel1.caption =sEnd SubPrivate Sub Command1_Click()Dim n As Integer, i As Integeri = Val(Text1.Text)ReDim a(1 To i)a(1) = 1a(2) = 1For n = 3 To ia(n) = a(n - 1) + a(n - 2)Next nText2.Text = a(i)End SubPrivate Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 50a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerText2.Text = 0For i = 1 To 50If a(i) Mod 3 = 0 And a(i) Mod 7 = 0 Then Text2.Text = Val(Text2.Text) + a(i)End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 41) + 10Text1.Text = Text1.Text & a(i, j) & Space(2)Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_Click()Dim i As Integer,j as integerFor i=1 to 4t=a(i,1)a(i,1)=a(i,3)a(i,3)=tNext tFor i = 1 To 4For j = 1 To 4Label1.Caption = Label1.Caption & a(i, j) & Space(2) Next jLabel1.Caption = Label1.Caption & vbCrLfNext iEnd Sub实验六常用控件Private Sub Op_Click(Index As Integer)Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)Select Case IndexCase 0c = a + bCase 1c = a - bCase 2c = a * bCase 3c = a / bEnd SelectText3.Text = Str(c)End SubPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 10a(n) = Int(Rnd * 81) + 10List1.AddItem a(n)Next nEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, k As Integer, t% For i = 1 To 9For k = i + 1 To 10If a(i) > a(k) Thent = a(i)a(i) = a(k)a(k) = tEnd IfNext kNext iFor i = 1 To 10List2.AddItem a(i)Next iEnd SubPrivate Sub Command1_Click()Timer1.Enabled = FalseCommand2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Timer1_Timer()List1.AddItem Int(Rnd * 90000 + 10000) End SubDim n As Integer, s As Integers = 0For n = 0 To 4If List1.Selected(n) = True Thens = s + 1End IfNext nText1.Text = sEnd SubList1.AddItem Combo1.TextEnd SubPrivate Sub List1_DblClick()List1.RemoveItem List1.ListIndexEnd SubText1.Text = Combo1.TextEnd SubPrivate Sub Command2_Click()Combo1.List(Combo1.ListIndex) = Text1.TextEnd SubPrivate Sub Timer1_TimerDim n as integerIf n>Combo1.ListCount-1 then n=0Combo1.ListIndex = nn=n+1End SubPrivate Sub Command1_ClickTimer1.Enabled =TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2.ClickTimer1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled =FalseEnd SubPrivate Sub Command3_Click()For j = 0 To Combo1.ListCount - 1If Combo1.List(j) = Trim(Text1.Text) Then Exit ForEnd IfNext jIf j = Combo1.ListCount ThenLabel1.Caption = "No Found"ElseLabel1.Caption = "Found"End IfEnd Sub实验七过程Dim i As Integer, n As Integer, p As Double n = Val(Text1.Text)p = 0For i = 1 To np = p + fact(i)Next iText2.Text = Str(p)End SubFunction fact(ByVal n As Integer) As Double Dim i As Integer, p As Doublep = 1For i = 1 To np = p * iNext ifact = pEnd FunctionDim x As Integer, y As Integer, z As Integer x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)Swap x, ySwap x, zSwap y, zText4.Text = x & " " & y & Space(2) & z End SubPrivate Sub Swap(ByRef x%, ByRef y%)Dim t As IntegerIf x < y Thent = x: x = y: y = tEnd IfEnd SubDim m As Integer, n As Integerm = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = m * n / Gcd(m, n)End SubFunction Gcd(ByVal m%, ByVal n%) As Integer Dim i As IntegerFor i = m To 1 Step -1If m Mod i = 0 And n Mod i = 0 ThenGcd = iExit FunctionEnd IfNext iEnd FunctionDim x As Integer, n As Integerx = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = Square(x, n)End SubFunction Square(ByVal x%, ByVal n%) As Double Dim i As IntegerFor i = 0 To nSquare = Square + x ^ iNext iEnd FunctionDim m As Integer, n As Integer, i As Integer Text3.Text = ""m = Val(Text1.Text): n = Val(Text2.Text)For i = m To nIf Isprime(i) ThenText3.Text = Text3.Text & i & " "End IfNext iEnd SubFunction Isprime(n As Integer) As Boolean Dim i As IntegerIsprime = TrueFor i = 2 To n - 1If n Mod i = 0 ThenIsprime = FalseExit FunctionEnd IfNext iEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerReDim a(9)Text1.Text = ""For i = 0 To 9a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubFunction sort(b() As Integer)Dim i As Integer, j As Integer, t As Integer For i = 0 To 8For j = i + 1 To 9If b(j) < b(i) Thent = b(j)b(j) = b(i)b(i) = tEnd IfNext jNext iFor i = 0 To 9sort = sort & b(i) & Space(2)Next iEnd FunctionPrivate Sub Command2_Click()Label1.Caption = sort(a())End SubDim i As Integersak = 0For i = 0 To k - 1sak = sak + a * 10 ^ iNext iEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, n As Integer, s As Long, a As Integer a = Val(Text1.Text)n = Val(Text2.Text)s = 0For i = 1 To ns = sak(a, i) + sNext iText3.Text = sEnd Sub实验八图形Picture1.Picture = LoadPicture(App.Path & "\Wys.bmp") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture()End Sub2.If Check1.Value = 1 ThenImage1.BorderStyle = 1ElseImage1.BorderStyle = 0End IfEnd SubPrivate Sub Check2_Click()If Check1.Value = 1 ThenImage1.Picture = LoadPicture(App.Path & "\Pic.jpg") ElseImage1.Picture = LoadPicture()End IfEnd SubShape1.Shape = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Shape1.FillStyle = VScroll1.ValueEnd SubPrivate Sub Command1_Click()Picture1.Line (0, 600)-(1600, 600)End SubPrivate Sub Command2_Click()Picture1.ClsPicture1.Circle (800, 600), 500, , , , 2End SubIf keyascii>48 or keyascii<57 ThenKeyascii=0Label1.Caption = "非法输入"ElseLabel1.Caption = "合法输入"End IfEnd SubImage1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2 ^ (1 / 2)) Image1.Height = Image1.Height * Sqr(2 ^ (1 / 2)) End SubPrivate Sub Command2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2)Image1.Height = Image1.Height * Sqr(2)End SubPrivate Sub Command3_Click()Image1.Stretch = FalseEnd SubPicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsgreen_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsred_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End sub实验九文件Private Sub Command1_Click()Dim i As IntegerText1.Text = ""i = 1Open App.Path & "\Grade.txt" For Input As #1Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 30If a(i) = 100 Thens = s + 1End IfNext iText2.Text = sEnd SubDim s As StringText1.Text = ""Open App.Path & "\Infile.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim a As Stringa = UCase(Text1.Text)Text1.Text = aOpen App.Path & "\Outfile.txt" For Output As #1 Print #1, aClose #1End SubPrivate Sub Command1_Click()Dim s As String, i As IntegerText1.Text = ""i = 1Open App.Path & "\Datain.txt" For Input As #1 Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 20If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2)End IfNext iEnd SubDim s As StringText1.Text = ""Open App.Path & "\Dialog.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 65 And Asc(s) <= 90 Thenr = r + 1End IfNext iText2.Text = rEnd SubPrivate Sub Command3_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 97 And Asc(s) <= 122 Thenr = r + 1End IfNext iText3.Text = rEnd SubFile1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Dim a As StringIf Right(File1.Path, 1) = "\" Thena = File1.Path + File1.FileNameElsea = File1.Path + "\" + File1.FileNameEnd IfText1.Text = aEnd Sub实验十界面设计Text1.locked=falseFSave.enable=trueEnd subFSave_clickText1.locked=tureFSave.enable=falseEnd sub2.dis_clicktext1.text=“计算机等级考试”end sub3.clea_clicktext1.text=“”end sub4.sqadd_clicklabel1.caption=(val(text1.text)^2)+(val(text2.text)^2) end subsqsub_clicklabel1.caption=(val(text1.text)^2)-(val(text2.text)^2) end submnuclean_clicktext1.text=“”text2.text=“”label1.caption=“”end sub4.Private Sub MnuRed_Click()Shape1.FillColor = vbRedEnd SubPrivate Sub MunBlue_Click()Shape1.FillColor = vbBlueEnd Sub5.Private Sub Command1_Click()Dim a As Integer, i As Integera = Text1.TextFor i = 1 To aIf Sqr(i) = Int(Sqr(i)) ThenList1.AddItem iEnd IfNext iEnd Sub制作人：102宿舍、尤昌波只供参考。
vb上机考试试题
vb上机考试试题一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property2. VB中的“Option Explicit”语句的作用是什么？A. 定义变量类型B. 强制显式变量声明C. 隐藏变量D. 设置变量的作用域3. 在VB中，以下哪个控件用于显示图像？A. LabelB. TextBoxC. PictureBoxD. ComboBox4. 如果要为VB中的按钮控件添加点击事件，应该使用哪个事件？A. ClickB. DoubleClickC. MouseDownD. KeyPress5. 在VB中，以下哪个函数可以用于将字符串转换为数值？A. Str()B. Val()C. Chr()D. Asc()6. VB中的“Select Case”语句最多可以有多少个Case分支？A. 1B. 2C. 10D. 无限制7. 在VB中，以下哪个属性用于设置控件是否可见？A. VisibleB. EnabledC. CaptionD. Text8. 当在VB中创建一个数组时，数组的下标默认从哪个数字开始？A. 0B. 1C. 100D. -19. 在VB中，以下哪个方法用于获取文本框中输入的文本？A. TextB. CaptionC. ValueD. Name10. VB中的“With”语句用于什么目的？A. 初始化变量B. 创建对象C. 引用对象的多个属性或方法D. 定义数据类型二、填空题（每空3分，共30分）11. 在VB中，使用________关键字可以创建一个类。
12. 如果要让一个变量在整个应用程序中都可访问，应该使用________关键字声明它。
13. 在VB中，一个事件处理程序的名称通常由触发事件的控件名称、一个下划线和一个________组成。
14. 要循环遍历一个数组中的所有元素，可以使用________循环。
国家二级VB机试(上机操作)模拟试卷157(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷157(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。
注意：存盘时必须存放在考生文件夹下，上程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动涮整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Commahd1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。
在考生文件夹下有两个图标文件，其名称分别为“Misc34．ico”和“Misc37．ico”。
程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Misc37．ieo文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34．ico文件，如图所示)；单击“清除”按钮则清除图像框中的图案，请编写相应控件的Click事件过程，实现上述功能。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图3．32所示。
程序中用件的控件及属性见表3．47。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】步骤1：建立界面，添加相应的控件并设置控件的属性。
程序中涉及的控件及属性见表3．48。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub Command1_Click( ) Image1．Picture＝LoadPicture(App．path＆”＼MiSC 34．iCO”)’加载图片End Sub Private Sub Command2_Click( ) Imagel．Picture＝LoadPicture(App．path＆”＼Misc37．ico”) End Sub Private Sub Command3_Click( ) Set Image1．Picture＝Nothing’清除Imagel中的图片End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Array答案：D2. 下面哪个语句用于在Visual Basic中声明一个变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在Visual Basic中，以下哪个是正确的循环结构？A. LoopB. WhileC. DoD. Repeat答案：C4. 以下哪个属性用于设置控件的可见性？A. VisibleB. ShowC. HideD. Display答案：A5. Visual Basic中的事件通常与哪个关键字一起使用？A. SubB. FunctionC. EventD. Procedure答案：A6. 在Visual Basic中，以下哪个不是控件的属性？A. NameB. CaptionC. TypeD. Left答案：C7. 下列哪个不是Visual Basic的内置函数？A. LenB. UBoundC. SqrtD. Max答案：D8. 在Visual Basic中，以下哪个不是数组的声明方式？A. Dim arr(1 To 10)B. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Variant答案：D9. 在Visual Basic中，以下哪个不是条件语句？A. IfB. Select CaseC. WhileD. Do答案：C10. Visual Basic中，以下哪个不是错误处理的关键字？A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. On Error Exit Sub答案：D二、填空题（每题2分，共10分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
国家二级VB机试(上机操作)模拟试卷188(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷188(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel，且没有标题的框架。
框架内含有两个单选按钮，名称分别为Optl和Opt2、标题分别为“字体”、“大小”，如图2-163所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbo，窗体文件名为sjtl．frm。
(2)考生文件夹下的工程文件sjt2．vbp中有一个由直线Linel、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值见表2—4：要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。
再画两个命令按钮，名称分别是Cmd1、Cmd2，标题分别为“显示高”、“隐藏高”，如图2．164所示。
请编写适当的事件过程，使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐减高”按钮，则隐藏三角形的高。
注意：要求程序中不得使用变量，每个事件过程只能写一条语句。
不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3—86在窗体上绘制控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：打开本题工程文件sjt2．vbp，在窗体中画一个直线控件和两个命令按钮，并设置其相火属性如表3．87所示。
步骤2；打开代码编辑窗口，编写命令按钮的Click事件过程。
参考代码：Private Sub Cmdl C1ick( ) Line4．Visible=True End Sub Private Sub Cmd2一Click( ) Line4．Visible：False End Sub 步骤3：按要求将文件保存下考生文件夹中。
计算机vb基础知识试题及答案
计算机vb基础知识试题及答案一、选择题（每题1分，共10分）1. VB（Visual Basic）是一种______。
A. 操作系统B. 编程语言C. 网页浏览器D. 数据库管理系统答案：B2. 在VB中，以下哪个是正确的变量声明方式？A. Dim xB. Declare xC. Define xD. Let x答案：A3. VB中的“Sub”过程用于______。
A. 执行代码，但不需要返回值B. 执行代码，并返回一个值C. 声明变量D. 定义类答案：A4. 下列哪个是VB中的循环结构？A. IfB. ForC. SubD. Function答案：B5. VB中的“Option Explicit”语句的作用是______。
A. 声明变量类型B. 强制变量声明C. 定义常量D. 指定默认属性答案：B6. 在VB中，以下哪个是数组的正确声明方式？A. Dim arr(5) As IntegerB. Declare arr(5)C. Define arr(5)D. Let arr(5)答案：A7. VB中的“MsgBox”函数用于______。
A. 显示消息框B. 计算数学表达式C. 打开文件D. 连接数据库答案：A8. 在VB中，以下哪个是正确的条件语句？A. If x = 10 ThenB. If x = 10C. Condition x = 10 ThenD. If x = 10 End If答案：A9. VB中的“Select Case”语句用于______。
A. 条件判断B. 循环控制C. 定义类D. 声明变量答案：A10. 在VB中，以下哪个是正确的函数声明方式？A. Function myFunction As IntegerB. Declare myFunctionC. Define myFunctionD. Let myFunction答案：A二、填空题（每题1分，共5分）11. 在VB中，使用________关键字来声明常量。
国家二级VB机试(上机操作)模拟试卷63(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷63(题后含答案及解析)题型有：1.jpg /> 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
正确答案：审题分析本题只需按照要求画出控件并设置属性即可，注意图像框要画在图片框内部。
操作步骤步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
考点链接控件基本操作、图形控件。
2．在名称为Form1的窗体上画一个名称为Command1、标题为“保存文件”的命令按钮，再画一个名称为CommonDialogl的通用对话框。
要求：①通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为out2；②运行时单击“保存文件”按钮，则以“保存对话框”方式打开该通用对话框。
如图3-117所示。
注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：审题分析通用对话框的默认文件名由FileName属性设置，标题由DialogTitle属性设置。
本题可在“保存文件”的单击事件过程中，用语句通过调用通用对话框的ShowSave方法或通过设置其Action属性值为2，使其以“保存对话框”方式打开。
操作步骤步骤1：新建一个“标准EXE”工程，选择【工程】→【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoft Common Dialog Control6．0”项目，单击“确定”按钮。
步骤2：在窗体：Form1上画一个通用对话框和一个命令按钮并设置相关属性。
步骤3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。
PriVate Sub Command1_Click( ) CommonDialog1．Action=2 ′或Common Dialog1．showsave End Sub 步骤4：按要求将文件保存至考生文件夹中。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
上机操作练习题1.某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后１0个元素对换。
即第1个元素与第20个元素互换，第２个数与第19个元素互换,…,第1０个元素与第11个元素互换。
在窗体上输出数组原来各元素的值与对换后各元素的值。
Option expliｃｉtDim a(1tｏ２0)aｓｉntｅｇer，I aｓinteger,j as iｎteｇer，ｔa ｓｉｎteｇerPrivate Sub Form_Ｌoad（)ShｏwPrinｔ＂原始数组是："RaｎdｏmizeFor i = 1 To 20a（i）=Int(Rnｄ* 90) + 1０Print a（ｉ);Iｆi Mｏd 10 = ０Then PrintNｅｘt iPrinｔPrｉｎt "现在数组是:＂Foｒｉ＝1To１0j = 21- it＝ａ(i): a（i) = a(j):a(j) ＝tNｅxt iFoｒi = １Tｏ20Print a(i);If i Mｏd １0= 0Thｅn PｒintNｅxt iEnd Sub２．从数组中删除一个数。
先定义一个一维数组,大小、数组的值自定。
从键盘上输入一个数,若这个数在数组当中,就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1)如果数组中存在多个与该数相同的元素,每一个都能删除;2）能实现多次删除Private Sub Form＿Load（）SｈｏwReＤｉmａ(９) ＡsＩnｔegｅｒm = 1Prｉｎt"原来数组为:"Foｒｉ＝0 To 9a（i) = InputBox("请输入第" ＆ｍ＆"个数：＂)Prｉnｔa（i);m = m + 1Neｘt ｉPriｎtn = InpｕtBｏx("查找的数是：")i = 0: fｌag = FalseDｏＩf a(ｉ) = n Theｎj = i: flag ＝TｒueFoｒk = j TｏＵBouｎd(a) - 1a(ｋ) = ａ（k + 1）Neｘt ｋＲｅDｉm Preｓｅrve a(UBouｎd(ａ) - １)ｉ＝ｉ－１End Ifi = i ＋1Loｏp Wｈｉlｅ(i <＝UBound(a））If flag =Fａｌse ThenＭｓgＢｏｘｎ&＂不在该数组中"ElｓｅPrｉnt "删除" & n ＆"后的数组是:"Ｆor i = 0ToＵBoｕnd(a)Priｎt ａ(i)；Nｅxt iEnd IfＥnd Sub３.数组ａ中存放着升序排列的数据,使用arrａｙ赋值,将inpｕtbox输入的新数插入到数组中，插入后数组仍有序。
注意:要求利用动态数组,能够实现多次插入PrｉｖatｅSｕb Foｒｍ_Loａｄ()Sｈown = 8: ReDim a（n)a= Array(5,15, 23, ５2, ６8,88, ９0, 99)n= n ＋1: ＲeＤim Ｐｒeｓeｒｖe ａ（n）m=InｐuｔBｏｘ("请输入要插入的数据:"）Fｏr i= 1 To n - 1Ｉｆm<a(i) ThｅｎＥxit ＦorNexｔiFor k= n Toｉ+１Steｐ－１a（ｋ) ＝a(k- 1）Nexｔka(k) =ｍＦor i = 1 Ｔo nPrint a(i);Nｅｘt iＰｒｉntEｎd Sub4．6个评委为４位歌手打分,分数介于1-100之间。
去掉一个最高分，一个最低分,求出每位选手的最后得分。
将4位歌手得分从高到低排列输出,同时输出该选手的编号。
如:歌手3 ９５分歌手 1 87分歌手 4 ８０分歌手 2 ７０分Option Ｂase １Privａte Ｔype geｓhouｘｕhａｏAs Stringfeｎｓhu(6)As ＩntegｅrscorｅAｓInｔｅgeｒｐｉngjuｎAs IntｅgeｒEndＴyｐeＤｉｍsｉngeｒ(1 To 4) Ａs geshoｕPrｉvaｔeＳub Ｃoｍmand1_Click()Fｏｒi = 1 Tｏ4Foｒj = １Tｏ６sinｇer(i).feｎshｕ(j) ＝Iｎｔ(Rnd ＊１00)ｓinｇer（ｉ).ｘuhao = "歌手"&iNexｔNextCaｌl paixｕＥnd SubＰrivate Sub pａｉxu()Diｍp As geｓｈouＦor i＝1Tｏ 4Fｏr j = 1 Ｔo 5For k ＝j To 6Ｉfｓingｅr(ｉ).fenshu(ｊ）> singer(i).fｅnｓhu(k) Thｅnt= ｓinger（i).ｆenｓhu(ｊ)singer（i)．fenshu(j) = ｓiｎger（ｉ).fenｓhu（k)ｓinｇer(i).fensｈu(ｋ) =tEｎｄＩfNｅｘtNｅｘtＮextFor i =１Ｔｏ4Fｏｒｊ= 2 To５sinｇeｒ(ｉ).sｃｏre=singer(i).ｓcｏｒe+ sinｇer(ｉ）．fensｈｕ(j) Nextsiｎｇer（i).pingjuｎ＝sｉnｇeｒ(ｉ）.ｓcｏre/ 4ＮｅxtFｏr i＝1 Ｔo 3Foｒj=i To 4If sｉngｅｒ（i)．ｓcｏｒｅ< ｓingeｒ(j）.scorｅThenp = ｓｉnger(ｉ):ｓingｅr（ｉ）= singer(ｊ): siｎger(ｊ) ＝pEnd ＩfNeｘtNｅｘtFor i ＝1 Tｏ 4Printｓingeｒ（i）．xuhaｏ& "得分:＂& sinｇｅr(i).ｐingｊunNextEnd SuｂＰriｖate Sub Foｒm_Load()EnｄSub10个评委给１０个选手打分Prｉvate Sub Form＿Ｌoaｄ()Shown = UBound(ｂ）Ｆｏrｉ= 1 To 10Ｆor j =１Tｏ1０ａ(i，j)= Vａｌ(InpｕtBox（＂请第"& j & "位评委给第" & i & "位选手打分："))Next jＮｅxt iFor i = １To10mａｘ=a(i, 1): sｕm＝０min=a(i, １)：ａve= 0For j = 1 To1０If a(ｉ, ｊ）> max Then ｍaｘ= a(i,j)If ａ（i, j) ＜mｉn Thｅn min = a(i，ｊ)sｕm =sum +ａ（i,j)Next jａve= （sum -max- ｍin) / (n - 2)ｂ(i）= aveNext iＦor i = 1 Ｔoｎ- 1Foｒｊ= ｉ+ 1 TｏnIf b(i) <b（ｊ）Ｔhenｔ＝b(i): b(i) = b(j): b(j) = tEnd IｆＮext jＮｅxｔiPrｉnt"选手的得分由高到低为："Fｏr i = 1 To 10Pｒintｂ(i);Ｎeｘt iEnd Sub5.编写函数求一元二次方程ax2＋bx+ｃ=0的解。
注意:要求考虑方程有两相等实根、两不等实根和两个虚根的情况。
DimａAｓSingle, b As Single, c As SingｌｅDim s As Sｉnglｅa ＝InputBｏx（＂请输入ａ")ｂ＝InputBｏｘ("请输入b")c= InputBｏx（"请输入c"）s= b ^ 2 - ４＊a * cIf s ＜0 ＴhenMsｇBｏx("方程无解")ElseＩf s = 0 TheｎPrinｔ－ｂ／ 2 * ａElsePrint((-b）+ Sqr(s)) / 2 *ａ&" " & (（-b)－Sqｒ(ｓ）) / 2 * aEnｄIfEnd Sub6. 任意输入一组字符,统计出大写字母多少个，小写字母多少个,数字多少个?要求用过程实现。
Calｌtongji(ａ, n, m,o)Ｐrｉnｔ"数字：＂& n &Chr(13) & "小写：" &m & Chｒ(１3) & "大写：＂& ｏEｎd ＳｕbPriｖａｔe Ｓｕb toｎgji（a As Ｓｔｒing,n As Inteｇｅr,ｍＡs Inｔeｇer，p AｓInｔeger)Ｆor i = １To Len(a)If Asｃ(Mid(a,i,1)）＞４7And Aｓc(Ｍiｄ(a, ｉ,１)）＜58 Ｔhenn= ｎ+ 1ElｓeIf Asｃ(Mｉd（ａ，i,１))> 96 ＡnｄAsc（Mid（a, i，1)) ＜１23 Thｅnm = m + 1ElseIf Asｃ(Mｉd(a,ｉ，1）) > 64 And Asc(Mid(a, i,1)) ＜91 Thｅnp =p + １End IｆＮeｘtEndＳｕｂ7．随机产生一个5＊5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。
Ｏption Base 1Prｉｖaｔe Sub Form_Lｏaｄ()Dｉm a(5,5）Ａs ＩnｔegerＤｉｍs AｓInｔｅgerForｉ= １Tｏ5Ｆor j＝1 To 5If i =ｊOr i ＝6- j Thena(i, ｊ) = 1Eｌｓｅａ(i,j) = Int(Rnｄ* 10０0)End IfTexｔ1.Tｅxt = Tｅxt１．Ｔｅxt ＆" ＂& a(i，j)ｓ= s + a(ｉ, j）NｅxtTｅxt1．Text =Text１.Teｘt & vbCrLf & vbCrＬｆNexｔList1．ＡddItｅm （s)Ｅnd Sｕb8.编写一个函数，能将字母按下列规律译成密码：Ａ<－->Z a<－->zB<-->Y b<--＞ｙ即第1个字母与第２6个字母互换，第ｉ个字母与第（２6-i＋１）个字母互换。
在文本框中任意输入一个字符串,调用该函数将密码显示在另一个文本框中。
Pｒiｖａte Sub Comｍaｎd１_Clｉcｋ（)Dim s1 As Strings1 = Text1.ＴeｘｔTeｘt2．Tｅxt = cｏnｖｅｒt(s1)End SuｂPｒｉvａtｅＦunction conveｒｔ（s1As Sｔriｎg）As SｔriｎｇFor i = １To Len(ｓ1)If Asc(Mid(ｓ１，i, 1)) ＜9１Ａnd Asc（Mid(ｓ１,i,１））＞6４Thｅnｃonvert = ｃｏnvert& Cｈｒ(９1 －Ａsc(Mｉd(s1, i, 1）) + 6４)EｌｓeIf Ａｓc(Mid(s1, i,1)) ＜１23 And Asc(Miｄ（s１，i,1)) > 9６Thｅncoｎvｅrt = cｏnvｅｒt & Chr(123 - Ａsc(Mid（s1，i,1）) + 96)ＥnｄIfＮextEnｄFunctｉon9．编写２个函数，分别求两个正整数的最大公约数和最小公倍数，用户任意输入两个数，采用函数嵌套调用，该函数将它们在窗体显示。