为Form1,标题为“标签”的窗体上,添加一个名称为Label1,内容为“计算机等级考试”

1 为了清除列表框中的所有内容，应使用的方法是： B Clear2 在窗体上画一个文本框（其名称为Text1）和一个标签（其名称为Label1）。

要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。

以下可以实现上述操作的事件过程是：______。

C Private Sub Text1_Change()Label1.Caption = Text1.TextEnd Sub3 在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。

程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为"计算机等级考试"。

以下能实现上述操作的事件过程是_D_____。

Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End Sub4若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是____C__。

按键盘上的回车键5 设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：Private Sub Command1_Click()Dim s As String,ch As Strings=""For k=1 To Len(Text1)ch=Mid(Text1,k,1)s=ch+sNext kText1.Text=sEnd Sub程序执行时，在文本框中输入"Basic"，然后单击命令按钮，则Text1中显示的是___B__ cisaB 6以下叙述中错误的是____A__。

KeyPress事件中不能识别键盘上某个键的按下与释放7在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()a$ = "software and hardware"b$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, , b$, c$, 1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是_D_____。

在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"）（如图所示）。

要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件result.txt中。

（在prog.bas 中的putdata过程可以把结果存入result.txt文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。

注意：文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp，计算结果存入result.txt，否则没有成绩。

新建一工程，在上面放置一文本框设置其MultiLine属性为True，ScrollBars属性为True，再建立两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"），整个工程的代码如下：Dim i(1 To 100) As IntegerPrivate Sub Cmd1_Click()Dim j As Integerj = 0Open App.Path & "\in.txt" For Input As #1For j = 1 To 100Input #1, i(j)NextClose #1For j = 1 To 100Text1.Text = Text1.Text & i(j) & Space(5)NextEnd SubPrivate Sub Cmd2_Click()Dim temp As LongDim j As IntegerFor j = 1 To 100If i(j) >= 400 And i(j) < 800 Thentemp = temp + i(j)End IfNextText1.Text = tempputdata tempEnd Sub（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。

基础题(1)【解题思路】列表框的MultiSelect属性用来设置一次可以选择的表项数。

该属性有3种取值：0－None每次只能选择一项，如果选择另一项则会取消对前一项的选择；1－Simple可以同时选择多个项，后续的选择不会取消前面的选择，可以用鼠标或空格键选择；2－Extended可以选择指定范围内的表项。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.136。

表3.136步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)【解题思路】命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。

Cmd1 Click 事件过程中运用LoadPicture函数装入图片，用LoadPicture("")，清除用图像框中的图片。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.137。

表3.137步骤2：编写程序代码。

参考答案Private Sub Cmd1_Click()Image1.Picture = LoadPicture(App.Path & "\图片.jpg")End SubPrivate Sub Cmd2_Click()Image1.Picture = LoadPicture("")End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题1)【解题思路】根据题意，并将数值赋值为数组a(k)，这道题的程序要实现寻找完全平方数，并求出完全平方数的个数和最大值。

is square函数用来判断一个数是否为完全平方数，首先我们要了解什么是完全平方数，一个整数若是另一个整数的平方，那么它就是完全平方数。

如：36＝62，所以36就是一个完全平方数。

通过判断is square(a(k))函数的返回值确定完全平方数，并进行完全平方数个数的累加，以及通过比较找出最大值。

VB试题库及答案最新VB题库及答案⼀、选择题第1部分1、在窗体（名称为Form1）上画⼀个名称为Text1的⽂本框和⼀个名称为Command1的命令按钮，然后编写⼀个事件过程。

程序运⾏后，如果在⽂本框中输⼊⼀个字符，则把命令按钮的标题设置为“计算机等级考试”。

以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End Sub2、在⼀⾏内写多条语句时，每个语句之间⽤（）符号分隔。

A、 ,B、：C、.D、；3、下⾯（）是合法的变量名。

A、X_YZB、123ABCC、INTEGERD、X-Y4、下⾯（）是合法的字符常量。

A、 ABC$B、“ABC”C、‘ABC’D、 ABC5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。

A、14B、 4C、20D、26、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)7、设a="a"，b="b"，c="c"，d="d"，执⾏语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为A、"a"B、"b"C、"B"D、"A"8、在窗体上画⼀个⽂本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输⼊⼀个整数")Print x + Text1.TextEnd Sub程序运⾏时，在⽂本框中输⼊456，然后单击窗体，在输⼊对话框中输⼊123，单击“确定”按钮后，在窗体上显⽰的内容为A、123B、456C、579D、1234569、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从⾼到低的顺序是（）。

全国计算机等级考试二级VISUAL BASIC题库1 2015年9月(总分100,考试时间120分钟)一、选择题1. 窗体上有多个控件，在Form_Activate()事件过程中添加__________语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。

A. Text1．Text=""B. Text1．SetFocusC. Form1．SetFocusD. Text1．Visible=True2. 语句Print "5*20"输出的结果是__________。

A. "5*20"B. 出现错误信息C. 5*20D. 1003. 不能打开代码窗口的操作是__________。

A. 双击窗体设计器的任何地方B. 按下F4键C. 单击工程窗口中的“查看代码”按钮D. 选择“视图”下拉菜单中的“代码窗口”4. 在VB中可以作为容器的是__________。

A. Form、TextBox、PictureBoxB. Form、PictureBox、FrameC. Form、TextBox、LabelD. PictureBox、TextBox、ListBox5. 能被对象所识别的动作与对象可执行的活动分别称为对象的__________。

A. 方法、事件B. 过程、方法C. 事件、属性D. 事件、方法6. 计算下面的表达式，其值是__________。

CInt(4.5) * Fix(-3.81) + Int(4.1) * (5 Mod 3) 4 -3 4 2A. -7B. -4C. -8D. 67. 以下有关对象属性的说法中正确的是__________。

A. 对象所有的属性都罗列在属性窗口列表中B. 不同对象不可能有同名属性C. 不同对象的同名属性取值一定相同D. 对象的某些属性既可在属性窗口中设置，也可通过程序代码设置或改变8. 要使定时器控件可以使用，需设置的属性是__________。

基本题(1)【解题思路】文本框的Text属性用于设置文本框中显示的文本。

标签的Caption属性可设置其标题。

Visible属性用于设置控件或菜单项在程序运行时是否可见。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中涉及的控件及属性见表3.104和表3.105。

表3.104步骤2参考答案Private Sub Command1_Click()Label1.Visible = TrueLabel1.Caption = Text1.TextText1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基本题(2) 【解题思路】通过调整滚动条滑块的位置即可改变其V alue属性的值，滚动条的Max和Min属性为滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。

当改变滚动条滑块位置后将触发其Change事件。

文本框的高度和宽度分别由其Height属性值和Width属性值设定。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.106。

步骤2：编写程序代码。

参考答案Private Sub HScroll1_Change()Text1.Height = HScroll1.ValueText1.Width = 1.2 * Text1.HeightEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】向列表框添加项目使用AddItem方法，删除列表项使用RemoveItem方法。

在"删除项目"单击事件中，For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。

【操作步骤】步骤1：打开本题工程文件，并设置控件的属性。

基础题（1)【操作步骤】步骤1：新建一个窗体，在窗体上创建一个文本框控件。

步骤2：在属性窗口中，设置其Text属性为空。

步骤3：在文本框下方绘制一个命令按钮Command1。

步骤4：在属性窗口中，将Caption设置为"上一条记录"。

步骤5：复制命令按钮"上一条记录"，在窗体的空白位置处粘贴对话框，单击"是"按钮，创建一个控件数组。

步骤6：再创建3个命令按钮.步骤7：按照题目要求将复制的3个命令按钮的Caption分别设置为"下一条记录"、"第一条记录"和"最后一条记录"，并将窗体的Caption设置为"显示记录"。

步骤8：选择"上一条记录"命令按钮，通过属性窗口设置Enable为False，选择"下一条记录"命令按钮，通过属性窗口设置Default为True.。

步骤9：将文件保存至考生文件夹下，且设置窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

基础题(2)【操作步骤】步骤1：打开VB开发环境，新建一个窗体。

步骤2：在窗体中添加一个标签控件Lable1，在属性窗口中设置标签的Caption属性为"等级考试"，然后设置其AutoSize属性为True，设置其BorderStyle属性为1。

步骤3：然后在窗体中添加一个计时器Timer1，设置其Interval属性为0，Enabled属性为True。

步骤4：打开代码窗口，编写代码如下。

Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Label1.Visible = Not Label1.VisibleEnd Sub步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

2013年3月全国计算机等级考试二级VB上机题库—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。

窗体的标题为"按钮窗口"。

运行后的窗体如图1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

图1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。

程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。

注意：程序中不能使用变量，每个事件过程中只能写一条语句。

保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

图2二、简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有两个文本框，名称分别为Text1、Text2；一个命令按钮，名称为C1，标题为"确定"；请画两个单选按钮，名称分别为Op1、Op2，标题分别为"男生"、"女生"；再画两个复选框，名称分别为Ch1、Ch2，标题分别为"体育"、"音乐"。

基础题（1）基础题（2）Private Sub Command1_Click() HScroll1.Max = Form1.WidthHScroll1.Min = 0rgeChange = 50HScroll1.SmallChange = 10 End SubPrivate Sub HScroll1_Change() Print HScroll1.ValueEnd Sub简单题（1）程序提供代码Option Base 1Private Sub Command1_Click() Dim arrN(20) As IntegerDim Aver As SingleDim Sum As Integer, i RandomizeFor i = 1 To 20' arrN(i) = Int(Rnd * ？)Next i' Sum =?For i = 1 To 20' Sum = ?Next i' Aver = ?Print AverEnd Sub程序结束参考答案第1个？处填入：1000第2个？处填入：0第3个？处填入：Sum + arrN(i)第4个？处填入：Sum / 20简单题(2)程序提供代码Sub SaveData()Open App.Path & "\" & "outtxt.txt" For Output As #1 Print #1, Text1.TextClose #1End SubFunction Fun()End FunctionPrivate Sub Command1_Click()d = Fun()Text1.Text = dSaveDataEnd Sub程序结束参考答案Function Fun()Dim s As Integer, i As IntegerFor i = 0 To 200If i Mod 3 = 0 Thens = s + iEnd IfNext iFun = sEnd Function综合题程序提供代码Option Base 1Dim a(12, 10) As Long, s(12) As LongPrivate Sub Command1_Click()Open App.Path & "\in5.dat" For Input As #1For i = 1 To 12For j = 1 To 10Input #1, a(i, j)Next jNext iClose #1End SubPrivate Sub Command2_Click()'考生编写End SubPrivate Sub Command3_Click()'以下程序段在Text1文本框内显示每组数的组号及平均值Text1.Text = ""For i = 1 To 12If i < 10 ThenText1.Text = Text1.Text + " " ＋str(i) + " " + str(s(i)) + Chr$(13) + Chr$(10)ElseText1.Text = Text1.Text + str(i) + " " +str(s(i)) + Chr$(13) + Chr$(10)End IfNext iEnd SubPrivate Sub Command4_Click()Open App.Path & "\out5.dat" For Output As #1For i = 1 To 12Print #1, s(i)Next iClose #1End Sub程序结束参考答案Private Sub Command2_Click()'考生编写Dim q As LongFor m = 1 To 12q = 0For n = 1 To 10q = q + a(m, n)Next ns(m) = Int(q / 10) Next mEnd Sub。

第1套（1）在名称为Forml的窗体上添加一个名称为H1水平滚动条，请在属性窗口中设置它的属性值，满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。

再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

第2套（1）在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为"请输入密码"，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中显示为"*"字符，此外再把窗体的标题设置为"密码窗口"，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

第3套（1）在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。

窗体的标题为"窗口"。

请通过属性窗口设置适当的属性，满足如下要求：①Text2可以显示多行文本，并且有垂直和水平两个滚动条；②程序运行时在Text1中显示输入的字符为"*"。

程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

第4套（1）在名称为Form1的窗体上添加一个名称为Command1的命令按钮，标题为"打开文件"，再添加一个名称为CD1的通用对话框。

程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：①设置适当属性，使对话框的标题为"打开文件"；②设置适当属性，使对话框的"文件类型"下拉式组合框中有两项可供选择："文本文件"、"所有文件"(如图所示)，默认的类型是"所有文件"；③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。

基础题（1）【考点分析】本题考点有：文本框的Name、Text属性，命令按钮的Name、Caption、TabIndex、Cancel属性。

【解题思路】通过属性出口将文本框的Name属性设为Text1，并通过属性窗口将命令按钮的Name设为C1，Caption设为"显示"。

当按下Esc键时，可以调用命令按钮的Click事件过程，应将TabIndex属性设为0，同时将Cancel 属性（用来指示命令按钮是否为取消按钮）设为True。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.207。

步骤2：编写程序代码。

参考答案Private Sub C1_Click()Text1.Text = "等级考试"End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题（2）【考点分析】本题考点有：文本框的的Name、Text、Visible属性和菜单编辑器的使用（名称、标题和内缩符号）。

【解题思路】通过属性出口将文本框的Name属性设为Text1，并通过菜单编辑器建立起菜单。

单击"显示"子菜单项的时候，将"等级考试"赋给文本框；单击"隐藏"紫菜按时，将文本框的Visible属性设为False。

【操作步骤】步骤1：建立界面，添加一个名称为Text1的文本框，并用菜单编辑器建立如下表3.209所示的菜单。

步骤2：编写程序代码。

参考答案Private Sub Dis_Click()Text1.Text = "等级考试"End SubPrivate Sub Hid_Click()Text1.visible= FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题（1）【考点分析】本题考点有：标签的Name、Text属性，命令按钮的Name、Caption属性，框架的Name、Caption属性，单选按钮的Name、Caption、Value属性及If判断语句。

第一套题1·在名称为FORM1的窗体上画一个标签，名称为L1,标签上显示“请输入密码”，在标签右面画一个文本框，名称为TEXT1,其宽、高分别为2000和500，设置适当的属性，使得在输入密码时，文本框中显示“＊”字符，此外再把窗体的标题设置为“密码窗口”(如示例所示) 答案：将passwordchar属性输入*字符注意：1) 以上设置都只能在属性窗口中进行设置。

2) 存盘时必须存放在考生文件夹下，工程文件名为SJT1.VBP,窗体文件名为SJT1.FRM。

2·在名称为FORM1 的窗体上放置一个名为TEXT1 的文本框控件和一个名为TIMER1的计时器控件，请设置计时器的适当属性并且编写适当的事件过程，使得程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。

（如示例所示）*****注意：程序中不得使用任何变量，只能写一条语句；保存时必须存放在考生文件夹下，窗体文件名为SJT2.FRM，工程文件名为SJT2.VBP。

答案：将计时器控件中的interval属性内输入1000 在timer1中输入的语句Private Sub Timer1_Timer()Text1 = TimeEnd Sub3. 在窗体上新建一名为“TXTCOLOR”的文本框，文本框中的初始内容为“颜色测试”，再新建一个命令按钮，名称为“COLOR”，标题为“测试”，最后加入一个名称为“CDG1”通用对话框控件。

要求程序运行后，点击命令按钮后，弹出颜色对话框，选择一种颜色后，点击确定后，文本框中的字体颜色即变为当前选中的颜色。

注意：在考生文件夹中已有工程文件SJT3.VBP及其窗体文件SJT3.FRM，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（’）但不能修改其他部分，存盘时不得改变文件名和文件夹。

程序运行时的窗体界面如“示例”所示。

答案：在测试命令按钮中输入的语句Private Sub COLOR_Click()CDG1.ShowColorTXTCOLOR.ForeColor = CDG1.COLOREnd Sub加入通用对话框的方法打开工程~打开部件选控件中的microsoft common dialog control 6.0 (sp6)即可选择颜色对话框用showcolor4. 在名为FORM1的窗体上已有一LABEL1的标签，新建一名称为“START”,标题为“开始”的命令按钮，和一名称为“STOP”，标题为“结束”的命令按钮，再新建一名称为L1的标签，内空，BORDERSTYLE属性为1。

国家二级（VB）机试模拟试卷169(总分86,考试时间90分钟)1. 选择题1. 下列叙述中正确的是( )。

A. 线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B. 线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C. 线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D. 线性表的链式存储结构与顺序存储结构在存储空间的需求上没有可比性2. 下列叙述中正确的是( )。

A. 栈是一种先进先出的线性表B. 队列是一种后进先出的线性表C. 栈与队列都是非线性结构D. 以上三种说法都不对3. 软件测试的目的是( )。

A. 评估软件可靠性B. 发现并改正程序中的错误C. 改正程序中的错误D. 发现程序中的错误4. 在软件开发中，需求分析阶段产生的主要文档是( )。

A. 软件集成测试计划B. 软件详细设计说明书C. 用户手册D. 软件需求规格说明书5. 软件生命周期是指( )。

A. 软件产品从提出、实现、使用维护到停止使用退役的过程B. 软件从需求分析、设计、实现到测试完成的过程C. 软件的开发过程D. 软件的运行维护过程6. 面向对象方法中，继承是指( )。

A. 一组对象所具有的相似性质B. 一个对象具有另一个对象的性质C. 各对象之间的共同性质D. 类之间共享属性和操作的机制7. 层次型、网状型和关系型数据库划分原则是( )。

A. 记录长度B. 文件的大小C. 联系的复杂程度D. 数据之间的联系方式8. 一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是( )。

A. 一对一B. 一对多C. 多对多D. 多对一9. 数据库设计中反映用户对数据要求的模式是( )。

A. 内模式B. 概念模式C. 外模式D. 设计模式10. 有三个关系R、S和T如下：则由关系R和S得到关系T的操作是( )。

A. 自然连接B. 差C. 交D. 并11. 以下叙述中正确的是( )。

1在名称为Form1的窗体上添加一个名称为Label1、标题为"添加项目："的标签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Command1、Command2，其标题分别为"添加"、"统计"。

在程序运行时，向Text1中输入字符，单击"添加"按钮后，则将Text1中的内容作为一个列表项被添加到组合框的列表中；单击"统计"按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。

请编写两个命令按钮的Click事件过程。

注意：程序中不得使用变量，也不能使用循环结构。

存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。

List添加项目Private Sub Command1_Click()Combo1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()Print Combo1.ListCountEnd Sub2在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为Filel的文件列表框，名称为Label1、标题为"文件名"的标签和名称为Labe12、BorderStyle为1的标签。

将窗体的标题设置为"文件系统控件"，如图所示。

请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。

单击文件列表框时，将在Label2中显示选中的文件名。

注意：要求程序中不得使用变量，事件过程中只能写一条语句。

Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Label2.Caption = File1.FileNameEnd Sub3在名称为Form1的窗体上画一个图片框，其名称为Picture1、一个水平滚动条，名称为HScroll1，和一个命令按钮，名称为Command1，标题为"设置属性"，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意。

基础题(1)【操作步骤】步骤1：新建一个Form1窗体，将该窗体的Caption设置为"菜单练习"。

步骤2：在窗体的空白处右击，在弹出的快捷菜单中选择"菜单编辑器"命令，弹出菜单编辑器。

步骤3：在菜单编辑器中的"标题"文本框中输入"操作"，在"名称"文本框中输入"operation"，选中"有效"和"可见"复选框，然后单击"下一个"按钮。

步骤4：在"标题"文本框中输入"输入"，在"名称"文本框中输入"input"，选中"有效"和"可见"复选框，然后单击按钮，设置为下一级菜单。

再单击"下一个"按钮。

步骤5：在"标题"文本框中输入"输出"，在"名称"文本框中输入"output"，选中"可见"复选框，再单击"下一个"按钮。

步骤6：在"标题"文本框中输入"查询"，在"名称"文本框中输入"query"，选中"有效"和"可见"复选框，再单击"下一个"按钮。

步骤7：在"标题"文本框中输入"统计"，在"名称"文本框中输入"count"，选中"有效"和"可见"复选框，然后单击按钮，再单击"下一个"按钮。

步骤8：在"标题"文本框中输入"按月"，在"名称"文本框中输入"bymonth"，选中"复选"、"有效"和"可见"复选框，然后单击按钮，再单击"下一个"按钮。

基础题(1)【解题思路】根据题意，须在命令按钮的Click事件过程中，将标签和文本框的Visible属性值设置为False，并用Print方法将文本框的内容输出到窗体上。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.99。

表3.99步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Form1.Print Text1.TextLabel1.Visible = FalseText1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)【解题思路】FontSize属性可用来设置文本框中字体的大小。

Value属性用于设置滚动条滑块的当前位置值，当滚动框的位置改变时，触发Change事件。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.100。

表3.100步骤2：编写程序代码。

参考答案Private Sub HScroll1_Change()Text1.FontSize = HScroll1.ValueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】通过InpatBox函数接收用户输入信息，在"添加项目"单击事件过程中，运用AddItem方法添加列表框内容，在"删除项目"单击事件中运用RemaneItem方法移除列表框内容。

【操作步骤】步骤1：打开本题工程文件，添加一个名称为List1列表框和一个名称为Text1文本框，然后建立一个菜单，其属性见表3.101。

表3.101步骤2程序提供代码Private Sub Add_Click()Text1.Text = InputBox("请输入要添加的项目")'List1.AddItem ?End SubPrivate Sub Delete_Click()Text1.Text = InputBox("请输入要删除的项目")'For i = 0 To ?'If List1.List(i) = ? Then'List1.RemoveItem ?End IfNext iEnd Sub程序结束参考答案第1个？处填入：Text1.Text第2个？处填入：List1.ListCount - 1第3个？处填入：Text1.Text第4个？处填入：i步骤3：调试并运行程序，关闭程序后按题目要求存盘。

重庆计算机二级VB上机模拟题一、基本操作题请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

1、在名称为Form1的窗体上画一个名称为Chk1的复选框数组（Index属性从0开始），含三个复选框，其标题分别为“语文”、“数学”、“英语”。

利用属性窗口设置适当的属性，使“语文”未选，“数学”被选中，“英语”为灰色，再把窗体的标题设置为“选课”，程序运行时的窗体界面如图所示。

2、在名称为窗体上画一个命令按钮，其名称为Cmd1，标题为“清除”。

请编写适当的事件过程，使得程序运行后，窗体上的标题为“VB期末上机考试”，如图1所示，如单击命令按钮，则清除窗体的标题，程序运行时的窗体界面如图2所示。

图1 图23、在名称为Form1的窗体上画一个命令按钮，其名称为Cmd1，标题为“移到左上”。

编写适当的事件过程，使程序运行时，如单击命令按钮，则按钮移到窗体的左上角。

程序中不得使用任何变量。

程序运行时的窗体界面如图。

4、在名称为Form1的窗体上建立一个名称为L1的标签，标题为“选课”，其字号大小为4号；再建立三个复选框，名称分别为Chk1、Chk2、Chk3，标题分别为“操作系统”、“数据库原理”、和“概率论”，字体大小均为14，其中“概率论”被禁用，运行界面如图。

5、在Form1的窗体上画一个命令按钮，其名称为Cmd1，标题为“显示”；再画一个文本框，其名称为Txt1，编写适当的事件过程。

程序运行后，在窗体加载时使文本框不可见，如双击窗体，则文本框出现；此时如单击命令按钮，则在文本框中显示“期末考试”，如图所示。

6、在名称为Form1的窗体上，画一个组合框和一个命令按钮。

组合框的名称为Cbo1，初始内容为空，有“长跑”、“游泳”、和“跳远”三个可供选择项。

命令按钮的名称为Cmd1，Opt2，标题为“确定”。

编写适当的事件过程，使得程序运行时，选择组合框中的某项，单击命令按钮后，就会弹出一个对话框，内容为“您选择了（该项）”。

基础题(1)【解题思路】根据题意，须在命令按钮的Click事件过程中，将标签和文本框的Visible属性值设置为False，并用Print方法将文本框的内容输出到窗体上。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.99。

表3.99步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Form1.Print Text1.TextLabel1.Visible = FalseText1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)【解题思路】FontSize属性可用来设置文本框中字体的大小。

Value属性用于设置滚动条滑块的当前位置值，当滚动框的位置改变时，触发Change事件。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.100。

表3.100步骤2：编写程序代码。

参考答案Private Sub HScroll1_Change()Text1.FontSize = HScroll1.ValueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】通过InpatBox函数接收用户输入信息，在"添加项目"单击事件过程中，运用AddItem方法添加列表框内容，在"删除项目"单击事件中运用RemaneItem方法移除列表框内容。

【操作步骤】步骤1：打开本题工程文件，添加一个名称为List1列表框和一个名称为Text1文本框，然后建立一个菜单，其属性见表3.101。

表3.101标题控件项目添加项目删除项目名称Item Add Delete内缩符号011步骤2：分析并编写程序代码。

程序提供代码Private Sub Add_Click() Text1.Text = InputBox("请输入要添加的项目") 'List1.AddItem ?End SubPrivate Sub Delete_Click()Text1.Text = InputBox("请输入要删除的项目")'For i = 0 To ? 'If List1.List(i) = ? Then 'List1.RemoveItem ? End IfNext iEnd Sub程序结束参考答案第1个？处填入：Text1.Text第2个？处填入：List1.ListCount - 1第3个？处填入：Text1.Text第4个？处填入：i步骤3：调试并运行程序，关闭程序后按题目要求存盘。