VB上机操作题综合
VB上机试题及答案11
上机操作练习题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 in = 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 If3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
VB考试练习题(上机操作)
第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
4 请设计如下图所示窗体界面。
程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。
请编写适当的事件过程，完成上述功能。
5 在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。
6 请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
国家二级VB机试(上机操作)模拟试卷300(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷300(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图3—137所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为“最大值”、“最小值”，且都未选中。
再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图3—138所示)。
请编写适当的事件过程，使得程序运行时，单击“最大值”单选按钮，则滚动条上的滚动框移到最右端；单击“最小值”单选按钮，则滚动框移到最左端。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sji2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，利用菜单设计器按表4—81在窗体上建立一个二级菜单。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准：EXE”工程，按表4—82在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。
参考代码：Private Sub Option1_Click( )HScroll1．Value=100End SubPrivate Sub Option2_Click( )HScroll1．Value=0End Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按题目要求利用VB菜单设计器建立一个二级菜单。
vb上机题库及答案
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
国家二级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上机题库及答案(全)
全国计算机等级考试二级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》上机操作题
计算机二级考试《VB》上机操作题2016年计算机二级考试《VB》上机操作题还有一天计算机二级考试就要开考了!小伙伴们，你们都准备好了吗?下面是店铺为大家搜索整理了关于计算机二级考试《VB》上机操作题，欢迎参考练习，希望对大家备考有所帮助!想了解更多相关信息请持续关注我们店铺!一、基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)1、在名称为Forml的窗体上添加两个名称分别为T extl和T ext2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为Ml，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把T extl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在T ext2中填人空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sit2.frm。
2、在名称为Forml的窗体上添加两个名称分别为T extl和T ext2的文本框，它们的高、宽分别为300、2400和1200、2400。
窗体的标题为“窗口”。
请通过属性窗口设置适当的属性，满足如下要求：①Text2可以显示多行文本，并且有垂直和水平两个滚动条;②程序运行时在T extl中显示输入的字符为“*”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。
二、简单应用题3、在考生文件夹下有一个工程文件sjr4.vbp。
窗体上的控件如图所示。
程序运行时，若选中“累加”单选按钮，则“10”、“l2”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)。
vb上机考试基本操作题
四、基本操作题1. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”，标题改为"字体显示"。
2.请在窗体的适当位置增加以下控件：文本框Text1，Text属性为“VB演示”；复选按钮Check1，Value初值为0，Caption属性为“粗体”；命令按钮Command1，标题为“退出”，结束系统运行。
3.要求用If-Endif语句完成：选中复选按钮，文本框的文字为粗体；不选中，文本框的文字取消粗体，单击命令按钮结束程序运行。
4.请先调试、运行，然后将工程、窗体保存。
Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Command1_Click()EndEnd Sub2. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。
2.请在适当位置增加以下控件：标签Label1，标题为："列表显示"；文本框Text1用于显示在列表框中选中的项；列表框List1。
3.在窗体装载事件中编写代码为列表框List1添加三项显示内容：“足球”，“篮球”，“排球”。
4.请先调试、运行，然后将工程、窗体保存。
Private Sub Form_Load()List1.AddItem "足球"List1.AddItem "篮球"List1.AddItem "排球"End SubPrivate Sub List1_Click()Text1.Text = List1.TextEnd Sub3. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。
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上机操作练习题及答案
计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
国家二级VB机试上机操作-试卷85_真题(含答案与解析)-交互
国家二级VB机试（上机操作）-试卷85(总分6, 做题时间90分钟)2. 基本操作题1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml、标题为“列表框练习”的窗体上画一个名称为Listl的列表框，表项内容依次输入XXX、ddd、mmm和aaa，且以宋体14号字显示表项内容，如图3-93．(a)所示。
最后设置相应属性，使运行后列表框中的表项按字母升序方式排列，如图3．93(b)所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjtl．frm，工程文件名为sjtl．vbp。
(2)在名称为Forml的窗体上，画一个名称为Labell的标签，其标题为“计算机等级考试”，字体为宋体，字号为12号，且能根据标题内容自动调整标签的大小。
再画两个名称分别为Commandl、Command2，标题分别为“缩小”和“还原”的命令按钮(如图3．94所示)。
要求：编写适当的事件过程，使得单击“缩小”按钮，Labell中所显示的标题内容自动减小两个字号；单击“还原”按钮，Labell所显示的标题内容的大小自动恢复到12号。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
SSS_TEXT_QUSTI分值: 2答案:正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表4．52在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表4．53在窗c本中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个命令按钮的Click事件过程。
参考代码： Private Sub Commandl Click() Labell．FontSiZe=Labell．FontSiZe一2 End Sub Private Sub Command2 C1ick() Labell．FontSize=12 End Sub 步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷593(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷593(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．在名称为Forml的窗体上添加一个名称为Commandl的命令按钮(如图1所示)，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能：①窗体标题为“设置按钮属性”；②命令按钮的标题为“等级考试”；③程序运行后，命令按钮不可见；④命令按钮的标题字号、字体用三号常规黑体显示。
程序的运行情况如图2所示。
要求：不编写任何代码。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
正确答案：【操作步骤】步骤l：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性，如图4．23所示。
程序中用到的属性见表4．2l。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
解析：窗体对象和命令按钮控件的标题均由其Caption属性来设置，Visible 属性用于设置窗体或控件在运行时是否可见，设计时可通过修改命令按钮的Font 属性来设置标题的字体、字号和字型。
2．在名称为Forml的窗体上添加一个名称为Labell的标签，在属性窗口中把BorderStyle属性设置为1(如图l所示)，编写适当的事件过程。
使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。
要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sja．Frm正确答案：【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性，见表4．22。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案PriVate Sub Forml_Slick( ) Labell．Top=0设置Labell的初始位置Label．Left=F0m1．Width-La-bell．Width End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
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机试(上机操作)模拟试卷224(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷224(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上建立一个名称为Commandl的命令按钮数组，含三个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为300、800。
窗体的标题为“按钮窗口”。
运行后的窗体如3-63所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sitl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上画一个名称为Shal的形状控件，然后建立一个菜单，标题为“形状”，名称为shape0，该菜单有两个子菜单，其标题分别为“正方形”和“圆形”，其名称分别为shape1和shape2，如图2．64所示，然后编写适当的程序。
程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。
正确答案：【操作步骤】步骤1：新建一个“标准EXE”工程，如表3．36在窗体中用“复制”和“粘贴”画出控件数组并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤l：新建一个“标准EXE”工程，在窗体Form1中画一个名为Shal的形状控件。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表3．37所示，设置建立菜单项。
步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。
参考代码：Private Sub Shapel C1 ick( ) Me．Shal．Shape=1 End Sub Private Sub Shape2一Click( ) Forml．Shal=3 End Sub 步骤4：按要求将文件保存至考生文件夹中。
VB上机综合考试题十五套
Tｅxt2 = m----－-２分
Eｎd Sub
ＰriｖatｅＳub Optioｎ２_Cliｃｋ()----－-1分
Dimi%－-－---2分
ｍ＝１－-----1分
Forｉ=１Tｏn + 2----－-2分
m＝m * i--－－－-2分
Ｎeｘtｉ－-----２分
Text2＝ｍ－－----2分
EndＳuｂ
VB上机综合测试题（二)
1.设计如图所示界面，编程实现如下功能:在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中,其中，平时成绩占最终成绩的30％，考试成绩占最终成绩的70%；单击“清除”按钮,清除文本框中的内容；单击“退出”按钮,关闭窗口。（3５分）
２．设计左图所示界面,编程实现如下功能:单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。
IfＣheck１(ｋ).ｖaluｅ= 1 Thｅn--－--2分
Text1．Tｅxt＝Tｅｘt1.Tｅxt & Check1(k）．Caｐtｉon＆"＂----－-2分
EndＩf----－－2分
Nｅxtｋ----－-2分
ＥndSub
三、
界面设计----－10-分
Ｐriｖate SuｂCｏmｍａnd１_Ｃliｃk（)------2分
PrivatｅSub Chｅck3_Clｉck()
Text1.FontUnｄｅｒｌine= Check3.Value----－-5分
Ｅnd Suｂ
二、
界面设计-－----10分
ＰriｖateSub Cmd1_Clｉcｋ()-－--－-２分
Ｄｉma％（19), i%, suｍ!, aｖer!--－－－-４分
国家二级VB机试(上机操作)模拟试卷144(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷144(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为“请输入密码”，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中品永为“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。
注意：存盘时必须存放在考生文件火下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。
要求在程序中不得使用变量，每个事什过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图3．11所示。
程序中用到的控件及属性如表3．7所示。
步骤2：调试并运行程序，效果如图3．12所示。
步骤3：关闭程序后按题目要求保存T程和窗体文件。
(2)【操作步骤】步骤1：新建一个窗体，按照题日要求建立控什并设置其属性，如图3．13所示。
步骤2：打开代码编辑窗口，存指定位置编写如下代码。
参考答案Private Sub Form_CliCk( ) Form1．Print”单击窗体”End Sub Private Sub P1_Click( ) P1．Print”单击图片框”End Sub 步骤3：凋试并运行程序，关闭程序后按题目要求存盘。
简单应用题2．(1)在考生文件央下有一个工程文件sit3．vbp，窗体中柯两个图片框，名称分别为P1、P2，其中的图片内容分别是-架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timer1。
国家二级VB机试(上机操作)模拟试卷245(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷245(题后含答案及解析) 全部题型 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：按要求将文件保存下考生文件夹中。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB程序设计—《暴风影音》程序运行前：程序运行后：说明：当用户双击窗体任意区域时，播放器窗口最大化。
提示：窗体最大化可使用语句：Form1.windowstate = 2详细内容：程序使用控件如下：窗体（Form）1个。
控件属性设置：Form1Caption 暴风影音BackColor 黑色参考代码：Private Sub Form_DblClick()Form1.WindowState = 2End SubVB程序设计—《登录框》程序运行：说明：制作如图所示登录框，其中，用户名限制输入6位长度，密码以“*”号显示。
详细内容：程序使用控件如下：窗体（Form）1个，标签（Label）2个，文本框（TextBox）2个，按钮（Command Button）2个。
控件属性设置：Form1Caption 登录框Label1 Label2Caption 用户名Caption 密码Font 小三Font 小三Text1 Text2Text 清空Text 清空Font 小三Font 小三MaxLength 6 Passwordchar *Command1 Command2Caption 登录Caption 退出Font 小三Font 小三VB程序设计—《静夜思》程序运行：说明：当用户点击程序中的“显示诗句”按钮时，程序相应位置显示对应诗句. 程序使用控件如下：窗体（Form）1个，标签（Label）5个，按钮（CommandButton）4个。
控件属性设置：Form1 Label1Caption 诗词记忆练习Caption 静夜思Font 一号，隶书Label2 Label3Caption 床前明月光，Caption 疑是地上霜。
Font 小二，隶书Font 小二，隶书Visible False Visible FalseLabel4 Label5Caption 举头望明月，Caption 低头思故乡。
Font 小二，隶书Font 小二，隶书Visible False Visible FalseCommand1 Command2Caption 显示诗句Caption 显示诗句Font 三号Font 三号Command3 Command4 Caption 显示诗句 Caption 显示诗句 Font三号Font三号参考代码：Private Sub Command1_Click() Label2.Visible = True End SubPrivate Sub Command2_Click() Label3.Visible = True End SubPrivate Sub Command3_Click() Label4.Visible = True End SubPrivate Sub Command4_Click() Label5.Visible = True End SubPrivate Sub Form_Load() End SubVB 订餐功能：当单击窗体上的“计算金额”命令按钮时，弹出如图所示消息框MsgBox ，并显示相应消费金额。
参考代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integer, S As Integer运前运行a = Val(Text1)b = Val(Text2)c = Val(Text3)S = 10 * a + 12 * b + 2 * cMsgBox "您好！您本次消费共计" & S & "元", vbOKOnly, "欢迎使用"End SubVB简单加法计算器运行功能：当单击窗体上的命令按钮时，窗体上最右侧文本框输出如图所示运算结果。
参考代码：Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(Text1)b = Val(Text2)c = a + bText3 = cEnd SubVB程序设计—《字体设置》程序运行：详细内容：程序使用控件如下：窗体（Form）1个，框架（Frame）2个，标签（Label）4个，组合框（ComboBox）2个，复选框（CheckBox）1个。
控件属性设置：Form1Caption 字体Frame1 Frame2Caption 字体设置Caption 预览Label1 Label2Caption 字体(&T): Caption 大小(&S):Label3 Label4Caption 字形(&Y): Caption 北华大学Font 三号Combo1 Combo2Text 宋体Text 20List 宋体黑体隶书List 102030Check1Caption 加粗参考代码：Private Sub Check1_Click()Label4.FontBold = Not Label4.FontBoldEnd SubPrivate Sub Combo1_Click()Label4.FontName = Combo1.TextEnd SubPrivate Sub Combo2_Click()Label4.FontSize = Combo2.TextEnd SubVB程序设计—《电子表》出题人：柳崧轶程序运行：说明：设计电子表程序实现如下功能：1.电子表能根据系统自动显示当前时间；2.电子表具有定时功能如上图所示，在电子表到达预设时间时，程序闪烁闹铃图标并发出提示音。
详细内容：程序使用控件如下：窗体（Form）1个，图片框（PictureBox）1个，标签（Label）1个,按钮（CommandButton）2个，计时器（Timer）1个。
控件属性设置：Form1Picture1Caption电子表Picture\素材\闹钟.jpg AutoSize True参考代码：Dim tx As DatePrivate Sub Command1_Click()Tx = InputBox("请输入闹铃时间,如8:00", "闹钟设置") End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()Label2.Caption = TimeIf tx = Label2.Caption ThenBeepPicture1.Visible = Not Picture1.VisibleEnd IfEnd SubVB程序设计—《读心术》程序运行：说明：设计读心术小游戏，程序功能如上图中规则所示。
详细内容：程序使用控件如下：窗体（Form）1个，图片框（PictureBox）2个，标签（Label）1个,文本框（TextBox）1个，按钮（CommandButton）2个控件属性设置：Form1Caption读心术BackColor白色Picture\素材\背景.jpgLabel1Text1Caption看穿你的心声MultiLine TrueForeColor深紫色Font幼圆、小四Font华文行楷、小一、加粗倾斜Text如上图所示BackStyle0重要提示：由于程序运行过程中要加载图片，因此请将素材文件夹复制到程序存储根目录中。
参考代码：Private Sub Command1_Click()Picture2.Picture = LoadPicture(App.Path & "\素材\00.jpg") Randomizer = Int(Rnd * 4 + 1)Select Case rCase 1Picture1.Picture = LoadPicture(App.Path & "\素材\1.jpg")Case 2Picture1.Picture = LoadPicture(App.Path & "\素材\2.jpg")Case 3Picture1.Picture = LoadPicture(App.Path & "\素材\3.jpg")Case 4Picture1.Picture = LoadPicture(App.Path & "\素材\4.jpg")End SelectEnd SubPrivate Sub Command2_Click()Command1.Caption = "再来一次"Select Case rCase 1Picture2.Picture = LoadPicture(App.Path & "\素材\11.jpg")Case 2Picture2.Picture = LoadPicture(App.Path & "\素材\22.jpg")Case 3Picture2.Picture = LoadPicture(App.Path & "\素材\33.jpg")Case 4Picture2.Picture = LoadPicture(App.Path & "\素材\44.jpg")End SelectEnd SubVB程序设计—《三角形面积》出题人：胡智鹏程序运行,单击窗体：说明：编写程序，当单击窗体时，首先根据输入框提示输入任意三角形三边长，再计算相应三角形面积，最后将计算结果显示到窗体上。
要求： 1.数据输入使用InputBox函数，样式如截图所示；2.面积值存入变量s中；2.数据输出使用窗体的Print方法，内容如截图所示。
测试数据（边长分别为3、4、5的三角形面积是6）相关知识：面积公式：)(*)(*)(cpbpapps---*=其中：2cbap ++=参考代码：Private Sub Form_Click()Dim a As Single, b As Single, c As Single, p As Single, s As Singlea = Val(InputBox("请输入边长一", "输入框"))b = Val(InputBox("请输入边长二", "输入框"))c = Val(InputBox("请输入边长三", "输入框"))p = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是:" & sEnd SubVB程序设计—《圆周长面积》出题人：蔡国欣程序运行,单击窗体：说明：编写程序，当单击窗体时，首先根据输入框提示输入任意圆半径，再计算相应圆的周长和面积，最后将计算结果显示到窗体上。