一、判断题   
  第1题：屏幕（Screen）对象可作为窗体的容器，但它只能提供缺省的坐标系统，即坐标刻度不能改变。
参考答案：对
第2题：Integer、Long、Single、Double是数值类型数据，但Byte不是。
参考答案：错
第3题：每当一个窗体成为活动窗口时将触发Show事件。
参考答案：错
第4题：函数过程与Sub过程必须用关键字Private或Public声明。
参考答案：错
第5题：用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体”的错误。
参考答案：对
第6题：运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。
参考答案：错
第7题： 标签控件可以响应Click事件。
参考答案：对
第8题： 将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。
参考答案：对
第9题：在打开某窗体时，初始化窗体中的各控件，可选用Load事件。
参考答案：对
第10题：若行If语句中逻辑表达式值为True，则关键字Then后的若干语句都要执行。
参考答案：对
　二、单选题   
  第1题：在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是______。
参考答案：B
A、属性窗口
B、代码窗口
C、工具箱
D、工程窗口＜BR＞
第2题：执行___语句后，执行语句“Text1.SelStart = 0 : Text1.SelLength =
Len(Text1)”，可以使文本框控件Text1中的文本突出显示。
参考答案：B
A、Text1.Enabled=True
B、Text1.SetFocus
C、Text1.Locked = False
D、 Text1.Move
第3题：在工程资源管理器中“移除”一个文件后，该文件______。
参考答案：A
A、从当前工程中删除掉
B、仍存在于当前工程中
C、移入windows回收站
D、在磁盘上删除掉＜BR＞
第4题：通常用______方法来显示“自定义”对话框。
参考答案：D
A、Load
B、Unload
C、Hide
D、Show
第5题：设定文件列表框中所显示的文件类型，应修改该控件的______ 属性。
参考答案：A
A、Pattern
B、Path
C、FileName
D、Name
第6题：Integer类型的变量可存的最大整数为______。
参考答案：D
A、255
B、256
C、32768
D、32767＜BR＞
第7题：______可以改变容器坐标系的度量单位。
参考答案：C
A、DrawStyle属性
B、Cls方法
C、ScaleMode属性
D、DrawWidth属性
第8题：下列关于Select Case之测试表达式的叙述中，错误的是______。
参考答案：A
A、只能是变量名
B、可以是整型
C、可以是字符型
D、可以是浮点类型
第9题：下列哪个函数返回值为Ascii码值？
参考答案：D
A、Chr(x)
B、Str(x)
C、Space(n)
D、Asc(x)＜BR＞
第10题：设置命令按钮cm1的背景为红，可以执行语句______。
参考答案：B
A、cm1.BackColor=vbred
B、cm1.BackColor = vbred: cm1.style=1
C、cm1.Picture = RGB(255, 0, 0)
D、cm1.BackColor = RGB(255, 0, 0):abled=True
　三、程序填空题   
第1题：【程序说明】右击窗体则打开Windows自带的计算器“C:\”；单击“退出”按钮时将右击窗体的次数写入磁盘文件，并结束程序运行。
----1----
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button = 2 Then n = n + 1: Shell  “C:\”
End Sub
Private Sub Command1_Click()
Open "C:\a1.dat" For----2----
Print #1,n: Close #1
----3----
End Sub
请在左边文本框当中输入正确答案。
参考答案：dim n as integer
请在左边文本框当中输入正确答案。
参考答案：output as #1
请在左边文本框当中输入正确答案。
参考答案：end
第2题：【程序说明】
在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。程序运行时如下图
Private Sub Combo1_Click()
Shape1.Shape =  = Combo1.List(----1----)
----2---- = Int(Rnd * 7)
End Sub
Private Sub Form_Load()
Dim I As Integer
For I = 0 To 5:----3----: Next I
End Sub
请在左边文本框当中输入正确答案。
参考答案：Combo1.ListIndex
请在左边文本框当中输入正确答案。
参考答案：Shape1.BorderStyle
请在左边文本框当中输入正确答案。
参考答案：Combo1.AddItem Str(I)或Combo1.list(I)=I
第3题：【程序说明】
下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。
Private Sub Form_Click()
Dim n As Integer, a As Integer, b As Integer, c As Integer
Dim  x As Integer
For  a =0 to 9    '个位数数码
For b = 0 To 9      '十位数数码
For c = ----1----   
If  a<>b And b<>c And a<>c Then
x =a+10*(b+10*c)
n = ----2----
----3----
If n mod 15 = 0 Then Print
End If
Next c,b,a
Print "总共有这样的三位数"; n; "个"
End Sub
请在左边文本框当中输入正确答案。
参考答案：1 to 9
请在左边文本框当中输入正确答案。
参考答案：n+1或1+n
请在左边文本框当中输入正确答案。
参考答案：print x;
第4题：【程序说明】
窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。
Private Sub Command1_Click()    '确定按钮
Static n As Integer
----1----mypwd As String = "123456"        '预设密码为自定义常量
n = n + 1
Label2.Visible = True
If  ----2---- Then
Label2.Caption = "密码正确"
Else
If n<3 Then
Label2.Caption = "密码错误！"
Text1.Text = ""
Else
----3----
End If
End If
End Sub
请在左边文本框当中输入正确答案。
参考答案：CONST
请在左边文本框当中输入正确答案。
参考答案：=mypwd或或Text1=mypwd或mypwd=text1
请在左边文本框当中输入正确答案。
参考答案：End
　四、程序阅读题   
  第1题：【程序说明】
写出下列程序运行时，分别输入数据14、3、115、21时，标签框中显示的内容。
Private Sub Form_Click()
Dim b As Integer
a = Val(InputBox("请输入数据", , 100))
Select Case a Mod 5
Case Is<4
w = a + 10
Case Is<2
w = a * 2
Case Else
w = a - 10
End Select
Label1.Caption = "w=" & Str(w)
End Sub
请在左边文本框当中写出正确的答案。
A、
W=4
W=13
W=105
W=11
B、
W=14
W=13
W=125
W=31
C、
W=4
W=13
W=105
W=31
D、
W=4
W=13
W=125
W=31
参考答案：D
第2题：写出程序运行时单击窗体后，在窗体上出现的结果。
Private Sub Form_Click()
Dim I As Single, x As Single, y As Single
Cls
For I = 0 To 2 * 3.1415927 Step 0.0001
x = 2400 + 1000 * Sin(I)
y = 1600 + 1000 * Cos(I)
Line (2400, 1600)-(x, y), RGB(255, 0, 0)
Next I
End Sub
请在左边文本框当中写出正确的答案。
A、转动一条长度为2400单位的红直线，其轨迹形成一个圆
B、转动一条长度为1600单位的红直线，其轨迹形成一个圆
C、转动一条长度为1500单位的红直线，其轨迹形成一个圆
D、转动一条长度为1000
单位的红直线，其轨迹形成一个圆
参考答案：D
第3题：程序运行时单击Command1后，输入123，写出窗体上的输出结果。
Private Sub Command1_Click()
Dim x As Long, y As String
x = InputBox("请输入数字", "")
Do While x <> 0
y = y & x Mod 10
x = x \ 100
Print y
Loop
End Sub
请在左边文本框当中写出正确的答案。
A、
3
31
B、
3
32
321
C、
3
23
D、以上答案都不对
参考答案：A
第4题：请写出输入m为10、n为8时窗体中的输出结果。
Dim m As Integer, nmin As Integer,n As Integer, na As Integer
Private Sub Form_click()
m = InputBox("please input m")
n = InputBox("please input n")
For i = m To 1 Step -1
If n Mod i = 0 And m Mod i = 0 Then s = 1 : Exit For
Next i
If s = 1 Then print i
End Sub
请在左边文本框当中写出正确的答案。
A、2
B、4
C、6
D、8
参考答案：A
　五、程序设计题   
在E盘上建以自己【姓名+准考证号】为名的文件夹，并在该文件夹下面根据设计题中小题个数建相应的子文件夹，子文件夹名为
【设计题*】，并把每小题结果文件保存在相应的子文件夹中。
例如：考生张三的准考证号为0100101，做设计题中的第1小题，
文件保存位置是：E:\张三0100101\设计题1
  第1题：编程，输入x，求下列分段函数的值，计算结果输出到Text控件中。
参考答案：
Private Sub Command1_Click()
Dim x As Single
x = InputBox("输入x", "计算分段函数")
If x <= 3 Then
Text1 = Str(1 + x)
Else
Text1 = Str(x + 3) ^ 0.25
End If
End Sub
第2题：如下图，编程，点击按钮可以移动列表框中所选中表项的位置。说明：通过
load事件添加列表项，运行时，先选择列表框中的选项，才可以使用“上移”或“下移”按钮。当选项是第一项时不能再上移，当选项是最后一项时不能再下移。
参考答案：
Private Sub Command1_Click() '上移
Dim i As Integer
i = List1.ListIndex
List1.AddItem List1.Text, i - 1 '先将选中的内容添加到上一项前
List1.RemoveItem i + 1 '将原来选中的那项删除
List1.ListIndex = i - 1 '将光标重新指向已经上移后的选项
End Sub
Private Sub Command2_Click() '下移
Dim i As Integer
i = List1.ListIndex
List1.AddItem List1.Text, i + 2 '先将选中的内容添加到下一项后
List1.RemoveItem i '将原来选中的那项删除
List1.ListIndex = i + 1 '将光标重新指向已经下移后的选项
End Sub
Private Sub List1_Click()
Command1.Enabled = True:  Command2.Enabled = True
If List1.ListIndex = 0 Then
Command1.Enabled = False  '第一项不能上移
End If
If List1.ListIndex = List1.ListCount - 1 Then
Command2.Enabled = False  '最后一项不能下移
End If
End Sub
第3题：编写程序，将磁盘文件d:\student.dat中若干个学生的姓名、出生年月、外语成绩和计算机成绩显示在列表框中，并且能实现以下功能：若文本框内容不为空，单击命令按钮“追加记录”则将文本框中的文本追加至列表框中；单击命令按钮“删除记录”则可删除列表框的选中项；首次运行时文件可以为空，单击“保存文件”命令按钮则保存文件。界面设计如图所示。
参考答案：
Private Sub Form_Load()
Dim ss As String
Open "d:\student.dat" For Input As #1 
While Not EOF(1)vb设计模拟密码输入器
Line Input #1, ss: List1.AddItem ss
Wend
Close #1                     
End Sub
Private Sub Command1_Click()   
If Trim(Text1.Text) <> "" Then List1.AddItem Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()   
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command3_Click()   
Dim I As Integer
Open "d:\student.dat" For Output As #1
For I = 0 To List1.ListCount - 1: Print #1, List1.List(I): Next I
Close #1
End Sub
Private Sub Command4_Click()   
End
End Sub
第4题

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。