ub Command1_Click()
Form1._hide / Hide____
Form2._show / Show____
End Sub
2.拖动滚动条中的滚动框将会产生Scroll和__Change / change___事件.
3.代码功能：输入数字1-7,显示其对应的星期几(例:输入1,显示星期日,
如果输入其它内容，一律显示"输入错误")
请在_____处填入正确的内容。
Private Sub Command1_Click()
dim x as integer
dim y as string
x=val(text1.text)
_select case x____
case 1
y="今天是星期日"
case 2
y="星期一"
case 3
y="星期二"
case 4
y= "星期三"
case 5
y="星期四"
case 6
_y="星期五"____
case 7
y= "星期六"
_Case Else____
y = "输入错误"
end select
Text2.Text = y
End Sub
4.当x=2时,语句if x=2 then Print x=2 的结果值是__True / true___.
5.以下程序段的输出结果_6____.
num=0
While num<=5
num=num+1
Wend
Print num
6.
以下循环的执行次数是_10____.
k=0
Do Until k>=10
k=k+l
Loop
7.循环语句FOR K=1 TO 10 STEP -1控制的循环次数为__0___.
三、程序设计
1.'题目：(事件)单击窗体。
' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，
' 结果输出在窗体上。
答案：【参考代码】
Dim i As Integer
s = 0
For i = 1 To 10
s = s + 1 / (i ^ 2)
Next
2.'题目：(事件)单击窗体。
' (响应)生成一个一维数组(10个数组元素依此为：
' 15、23、72、43、96、23、3、65、88、17)，
' 写程序求出这个数组中的最大值、最小值和平
' 均值，并输出在窗体上。
' 将最大值，最小值，平均值分别存入变量
' Max,Min,Aver中
【参考代码】
Dim a(9) As Integer
Dim i, s As Integer
a(0) = 15
a(1) = 23
a(2) = 72
a(3) = 43
a(4) = 96
a(5) = 23
a(6) = 3
a(7) = 65
a(8) = 88
a(9) = 17
max = a(0)
min = a(0)
s = 0
For i = 0 To 9
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
s = s + a(i)
Next
aver = Int(s / 10)
Print (CStr(max))
Print (CStr(min))
Print (CStr(aver))
窗体设计
1.在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。
要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value，如图所示
注意：程序中不能使用任何变量。
【控件】VB.HScrollBar_HS1
标准答案：Name=HS1
【控件】VB.HScrollBar_HS1
标准答案：Max=100
【事件】Private Sub HS1_Change()
标准答案： Form1.Print HS1.Value
填空：
1文本框中所显示的内容是它的_____属性的值.（
【参考答案】
Text
text
2要使命令按钮cmdEnd可以以快捷键E访问,应设置属性_____.（
【参考答案】
Caption
caption
3代码功能：求A,B,C三个数的最大值
请在_____处填入正确的内容。（【参考答案】
一空：B = Val(Text2.Text)
二空:【参考答案】
B > C
C < B
三空：【参考答案】
MAXDATE = C
Private Sub Command1_Click()
A = Val(Text1.Text)
_____
C = Val(Text3.Text)
If A > B And A > C Then
MAXDATE = A
ElseIf _____ Then
MAXDATE = B
Else
_____
End If
Label5.Caption = MAXDATE
End Sub
4代码功能：输入一个数,若大于0,则显示"+"；若小于0，则显示 "-"；若等于"0",则显示"零"。
请在_____处填入正确的内容。（【参考答案】
Case 0）
Private Sub Command1_Click( )
x = Val(Text1.Text)
Select Case x
_____
Label3.Caption = "+"
Case Is < 0
_____
_____
Label3.Caption = "零"
End Select
End Sub
5执行下面的程序段后,S的值为__9___.
s=5
For i=2.6 TO 4.9 Step 0.6
s=s+l
Next I
6由For k=35 to 0 step 3:next k循环语句控制的循环次数是__0___ .
7以下程序段的输出结果___6__.
num=0
While num<=5
num=num+1
Wend
Print num
程序设计：
（1）
'题目：(事件)双击窗体。
' (响应)求出100~200之间，能被5整除，但不能被3
' 整除的数。并求所有数之和，存入变量中
' SUM中。在窗体上打印出SUM的值。
参考代码】
For i = 100 To 200
If ((i Mod 5) = 0) And ((i Mod 3) <> 0) Then
sum = sum + i
End If
Next
print (cstr(sum))
（2）
'题目：(事件)单击窗体。
' (响应)生成一个一维数组(10个数组元素依此为：
' 15、23、72、43、96、23、3、65、88、17)，
' 写程序求出这个数组中的最大值、最小值和平
' 均值，并输出在窗体上。
' 将最大值，最小值，平均值分别存入变量
' Max,Min,Aver中
【参考代码】
Dim a(9) As Integer
Dim i, s As Integer
a(0) = 15
a(1) = 23
a(2) = 72
a(3) = 43
a(4) = 96
a(5) = 23
a(6) = 3
a(7) = 65
a(8) = 88
a(9) = 17
max = a(0)
min = a(0)
s = 0
For i = 0 To 9
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
s = s + a(i)
Next
aver = Int(s / 10)
Print (CStr(max))
Print (CStr(min))
Print (CStr(aver))
窗体设计：
（1）
在名称为Form1的窗体上画一个命令按钮，名称为C1，标题为"转换"；然后再画2个文本框，其名称分别
为Text1和Text2，初始内容均为空白，编写适当的事件过程。程序运行后，再Text1中输入一行英文字
符串，如果单击命令按钮，则Text1中的字母都变成小写，而Text2中的字母都变成大写。
例如，在Text1中输入Visual Basic Programming，则单击命令按钮后，结果如图所示。（
由于窗体不能移过来复制，所以简单介绍一下窗体格局：（一个按钮，两个文本框。还有就是窗体本身）
【控件】VB.CommandButton_
标准答案：Name=C1
【控件】VB.CommandButton_
标准答案：Caption=转换
【控件】VB.TextBox_
标准答案：Name=Text2
【控件】VB.TextBox_
标准答案：Name=Text1
【事件】Private Sub C1_Click()
标准答案： Text1.Text = LCase(Text1.Text)
Text2.Text = UCase(Text1.Text)
二.填空
1.一个控件在窗体上的位置由Top和Left属性决定,其大小由___Width_______和____Height______属性决定.
2.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框.程序
运行后,Command1为禁用(灰色).当向文本框中输入任何字符时,命令按钮
Command1变为可用.请将程序补充完整.
Private Sub Form_Load()
Command1.Enabled=False
End SUb
Private Sub Text1_ _Change____()
Command1.Enabled=True
End Sub
3.当x=2时,语句if x=2 then Print x=2 的结果值是_True____.
4.下面程序的作用是让你从键盘上输入一个字符，然后判断该字符是大写、
小写字母还是奇数或者偶数，通过消息框弹出相应的信息。
请在_____处填入正确的内容。
Private Sub Form_Click()
Dim Msg, UserInput
Msg = "Please enter a letter or number from 0 through 9."
UserInput = InputBox(Msg)
If Not IsNumeric(UserInput) Then
If Len(UserInput) <> 0 Then
Select Case __Asc___(UserInput)
Case 65 To 90
Msg = "你输入大写字母"
Msg = InputBox(Msg)
Case 97 To 122
Msg = "你输入小写字母"
Msg = InputBox(Msg)
Case Else
Msg = "你没有输入字母或数字"
End Select
End If
Else
Select Case CDbl(UserInput)
Case __1,3,5,7,9___
Msg = UserInput & "是奇数"
Case __0,2,4,6,8___
Msg = UserInput & "是偶数"
Case Else
Msg = "你输入的数字越界"
Msg = Msg & "the requested range"
End Select
End
5.由For k=35 to 0 step 3:next k循环语句控制的循环次数是_0____ .
6.以下循环的执行次数是_10____.
k=0
Do Until k>=10
k=k+l
Loop
7.以下程序段的输出结果6_____.
num=0
While num<=5
num=num+1
Wend
Print num
1.【程序设计】
'题目： (事件)单击窗体。
' (响应)求出100以内所有素数的和，并将结果输出
' 到窗体上,并存入所给变量SUM中。
【参考代码】
For i =2 To 100
j = CInt(Sqr(i))
For k = 2 To j
If i Mod k = 0 Then
b = True
End If
Next
If b = False Then
sum = sum + i
End If
Next
2.'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：(事件)单击窗体。
' (响应)生成一个一维数组(10个数组元素依此为：
' 15、23、72、43、96、23、3、65、88、17)，
' 写程序求出这个数组中的最大值、最小值和平
' 均值，并输出在窗体上。
' 将最大值，最小值，平均值分别存入变量
' Max,Min,Aver中
【参考代码】
Dim a(9) As Integer
Dim i, s As Integer
a(0) = 15
a(1) = 23
a(2) = 72
a(3) = 43
a(4) = 96
a(5) = 23
a(6) = 3
a(7) = 65
a(8) = 88
a(9) = 17
max = a(0)
min = a(0)
s = 0
For i = 0 To 9
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
s = s + a(i)
Next
aver = Int(s / 10)
Print (CStr(max))
Print (CStr(min))
Print (CStr(aver))
窗体设计.
在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。
要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value，如图所示
注意：程序中不能使用任何变量。
【控件】VB.HScrollBar_HS1
标准答案：Name=HS1
【控件】VB.HScrollBar_HS1
标准答案：Max=100
【事件】Private Sub HS1_Change()
标准答案： Form1.Print HS1.Value
填空.
1.为了在按下ESC键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性
设置为True,这个属性是_Cancel____.
2.拖动滚动条中的滚动框将会产生Scroll和__Change___事件.
3.根据输入的学习成绩,分别显示优秀(90分以上), 良好(75分以上),
及格(60分以上),不及格几个等级。
请在_____处填入正确的内容。
Private Sub Command1_Click()
x = Val(Text1.Text)
If x >= 90 Then
Label3.Caption = "优秀"
_ElseIf x >= 75 Then____
Label3.Caption = "良好"
ElseIf x >= 60 Then
__Label3.Caption = "及格"___
__Else___
Label3.Caption = "不及格"
End If
End Sub
4.代码功能：输入数字1-7,显示其对应的星期几(例:输入1,显示星期日,
如果输入其它内容，一律显示"输入错误")
请在_____处填入正确的内容。
Private Sub Command1_Click()
dim x as integer
dim y as string
x=val(text1.text)
___Case_x_
case 1
y="今天是星期日"
case 2
y="星期一"
case 3
y="星期二"
case 4
y= "星期三"
case 5
y="星期四"
case 6
_____
case 7
y= "星期六"
__Else___
y = "输入错误"
end select
Text2.Text = y
End Sub
5.以下程序段的输出结果_6____.
num=0
While num<=5
num=num+1
Wend
Print num
6.执行下面的程序段后,S的值为_9____.
s=5
For i=2.6 TO 4.9 Step 0.6
s=s+l
Next I
7.以下循环的执行次数是__10___.
k=0
Do Until k>=10
k=k+l
Loop
1.【程序设计】
'题目：(事件)单击窗体。
' (响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。
' 将结果存入变量J中。
【参考代码】
Dim i As Integer
Dim j As Single
For i = 1 To 100
If i Mod 2 = 1 Then
j = j + 1 / i
ElseIf i Mod 2 = 0 Then
j = j - 1 / i
End If
Next
2.【程序设计】
题目：(事件)单击窗体。
' (响应)生成一个一维数组(10个数组元素依此为：
' 15、23、72、43、96、23、3、65、88、17)，
' 写程序求出这个数组中的最大值、最小值和平
' 均值，并输出在窗体上。
' 将最大值，最小值，平均值分别存入变量
' Max,Min,Aver中
【参考代码】
Dim a(9) As Integer
Dim i, s As Integer
a(0) = 15
a(1) = 23
a(2) = 72
a(3) = 43
a(4) = 96
a(5) = 23
a(6) = 3
a(7) = 65
a(8) = 88
a(9) = 17
max = a(0)
min = a(0)
s = 0
For i = 0 To 9
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
s = s + a(i)
Next
aver = Int(s / 10)
Print (CStr(max))
Print (CStr(min))
Print (CStr(aver))
窗体设计.
在窗体Form1上画两个文本框，名称分别为Text1和Text2。请设置适当的控件属性，并编写适当的事
件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个"*"，同时在Text2中显示输入
的内容，
如图所示。程序中不得使用任何变量。
【
【控件】VB.TextBox_
标准答案：Name=Text1
【控件】VB.TextBox_
标准答案：PasswordChar=*
【事件】Private Sub Text1_Change()
标准答案： Text2
= Text1
二题填空：
新建工程时系统会自动将窗体标题设置为___form1__。
面向对象的程序设计是一种以__（_对象）__为基础，由（事件）_____驱动对象的编程技术。
事件是由Visual Basic预先定义的_（对象_）___能够识别的动作。
VB 的工作模式可分为三种:"设计"、"运行"以及"_中断____".
一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示__工程___文件.
在VB中,窗体由属性定义外观,由_方法____定义行为,由事件定义其与用户的交互.
变量min&表示__long(长整型）___类型的变量.
VB 6.0的基本表达式包括算术表达式、关系表达式和__逻辑___表达式.
设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c
的值为_false___.
大于X 的最小整数的VB 表示形式为___int(x)__.
求x与y之积除以z的余数的VB表达式为__x*y mod z___.
VB6.0的连接运算符包括__&___运算符和__+___运算符两种.
表达式Right(String(65, Asc("abc")), 3)的值是__aaa___。
表达式81 \ 7 Mod 2 ^ 2的值是_3____。
二套题；
一选择：
下列有关快捷键的说法错误的是(1 )
A、F5可以打开工程资源管理器
B、F1可以打开MSDN
C、F8主要用于调试程序代码
D、F4可以激活属性窗口
如果设计时在属性窗口将命令按钮的( 4)属性设置为False,则运行时按钮从窗体上消失.
A、Enabled
B、Default
C、DisabledPicture
D、Visible
下列方法中不能退出Visual Basic的是(1)
A、按下Alt+F组合键,然后按Esc键
B、打开"文件"菜单,执行"退出"命令
C、按F10键,然后按F键,再按x键
D、按Alt+Q组合键
英文"VISUAL"的含义是(3 )
A、集成
B、调试
C、可视化
D、结构化
每建立一个窗体，工程管理器窗口中就会增加一个（2）。
A、工程文件
B、窗体文件
C、程序模块文件
D、类模块文件
窗体文件的扩展名是(3
A、.res
B、.cls
C、.frm
D、.bas
一个工程必须包含的文件的类型是(4
A、*.bas *.ocx *.res
B、*.frm *.cls *.bas
C、*.vbp *.cls *.bas
D、*.Vbp *.frm *.frx
关于窗体上控件的基本操作错误的是:(3 )
A、按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件
B、按住Ctrl键,然后单击每个要选择的控件,可以同时选中多个控件
C、一次DEL键只能删除一个控件
D、按下一次DEL键可以同时删除多个控件
以下叙述中错误的是(2
A、事件可以由用户引发,也可以由系统引发
B、Visual Basic应用程序只能以解释方式执行
C、打开一个工程文件时,系统自动装入与该工程有关的窗体?标准模块等文件
D、保存Visual Basic程序时,应分别保存窗体文件及工程文件
下列不能打开工具箱窗口的操作是( 3 )
A、单击工具栏上的"工具箱"按钮
B、执行"视图"菜单中的"工具箱"命令
C、按Alt+F8键
D、按Alt+V,然后按X键
标准工具箱中的控件（2）。
A、数目是固定不变的
B、数目可以增加或减少
C、在窗体建立对象时不一定被使用
D、包含了VisualBasic所有控件
下列说法正确的是( 3
A、属性值的设置只可以属性窗口中设置
B、属性是对象的特性,所有的对象都有相同的属性
C、对象是有特殊属性和行为方法的实体
D、属性的一般格式为 对象名-属性名称,可以在设计阶段赋予初值,也可以在运行阶段通过代码来更改对象的属性
下列表达式中，其值为0的是（3）。
A、7/8
B、7 mod 14
C、6\8
D、14 mod 9
下列对变量的定义中，不能定义A为变体变量的是（4）。
A、DIM A
B、A=24
C、DIM A AS VARIANT
D、DIM A AS DOUBLE
表达式Mid("SHANGHAI",6,3)的值是（2）。
A、ANGH
B、HAI
C、SHANGH
D、SHA
下面叙述中不正确的是(4
A、自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明
B、在窗体模块中定义自定义数据类型时必须使用Private关键字
C、自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型
D、自定义数据类型只能在窗体模块的通用声明段进行声明
货币型数据需（4）字节。
A、4
B、6
C、2
D、8
用于去掉一个字符串的右边的空白部分的函数是(3
A、Right()
B、Asc()
C、RTrim()
D、Time()
表达式X+1>X是（4）。
A、非法表达式
B、算术表达式
C、字符表达式
D、关系表达式
删除字符串前导和尾随空格的函数是（2）。
A、Lcase
B、Trim()
C、Ltrim()
D、Rtrim( )
\、/、Mod、*等4个算术运算符中，优先级最低的是（2）。
A、/
B、\
C、*
D、^
下列的逻辑表达式中不正确的是（3）。
A、X>Y AND 1=2
B、A<B AND C=D
C、X<Y<Z
D、1>2 AND 3>1
填空：
新建工程时系统会自动将窗体标题设置为_FOEM1____。
改变控件在窗体中的左右位置，应修改该控件的__LEFT___属性，改变上下位置，应修改该控件的_TOP____属性。
对窗体Form内各控件不能用鼠标任意精确定位是由于窗体中的__网格___起作用。
一个工程可以包括多种类型的文件,其中扩展名为.bas的文件表示_标准模块____文件.
一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示__窗体___文
打开属性窗口的快捷方式是_F4____.
变量min@表示__货币___类型的变量.
表达式81\7 MOD 2^2 的值是_3____.
声明单精度常量g(重力加速度)代表9.8可写成__const g=9.8___.
语句print"25+32=";25+32的输出结果是_25+32=57____.
在VB 6.0中,变量名最长可达__255___个字符.
如果:I=12:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是_-1____.
求a与b之积除以c的余数，用Visual Basic表达式可表示为__a*b mod c___。
一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式_a<>b and
b^2-4*a*c>=0___.
%D%A 原文地址：（哈哈影院 http://www.heheka.com）
《网吧》小品剧本暂定
