y=a-x
Else
y=x-1
EndIf
EndIf
Print"y=";y
EndSub
A、not
B、and
C、or
D、xor
程序题（22）．
下列VisualBasic程序段运行后，变量s、t的值为__A____。
s=0:
t=1
Fork=2To4
s=s+k
t=t*k
Nextk
A、924
B、56
C、22
D、01
程序题（46）
执行后，s的值为10，请填空
PrivateSubform_Click（）
s=0
Fori=1_B_____
s=s+i
Nexti
Prints
EndSub
A、To3
B、To4
C、To5
D、To2
程序题（51）
执行下面程序段后，X的值为21,请填空
X=5
Fori=1To20Step2
x=x+_A___
NextI
A、i\5
B、i+5
C、i*5
D、i-5
判断题：
当k=2时,执行语句：
Ifk<4Thenn=9:
Ifk<4Thenn=8:
Ifk<5Thenn=7后n的值为7。
T
判断题：
设A=7,B=3,C=4,则AMOD3+B^3/C\5的值是2。
T
判断题：
SelectCase的结束语句应该是EndCaseF
判断题：
VB中的数组声明时可根据需要声明为定长数组和动态数组。
T
判断题：
若对话框是模式型，则打开后无法将鼠标移到其它窗口。
T
判断题：
日期/时间型常量应使用井号（#）将其括起来。
T
判断题：
若X=5,Y=6，则表达式X+Y=11的值是X+Y=11。
F
MsgBox函数的返回值的类型为_数值型____。
标签控件的默认属性是Caption
_____。
如果菜单标题的某个字母前输入一个__&___符号，那么该字母就成了热键字母。
为了使列表框中的项目分为多列显示，需要设置的属性是_Columns___。
如果要将变量a在过程中定义为静态的整型变量，应使用的语句是__StaticaAsInteger___。
'【程序设计】
'-------------------------------------------------
'题目：
（事件）双击窗体。
'（响应）把一元钞票换成一分、二分和五分的硬币
'（每种至少有一枚），求出其所有的换法，
'把结果输出在窗体上。
'将所有的换法的数目存入变量N中
【参考代码】
Dimi,j,kAsInteger
Fori=1To100
Forj=1To50
Fork=1To20
If（（i+2*j+k*5）=100）Then
Print（CStr（i））
Print（CStr（j））
Print（CStr（k））
n=n+1
EndIf
Next
Next
Next
编写一个华氏温度和摄氏温度之间转换的程序，在窗体上添加2个标签、2个文本框、2个命令按钮，
如图1所示，在属性窗体修改控件的属性，使其运行时图2所示。
要使用的转换公式是：
其中F为华氏，C摄氏。
要求用按钮实现转换。
图1
图2
【控件属性评分】错误
【控件】VB.CommandButton_
标准答案：
Caption=摄氏转华氏
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.CommandButton_
标准答案：
Caption=华氏转摄氏
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Label_
标准答案：
Caption=摄氏温度
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Label_
标准答案：
Caption=华氏温度
学生答案：
Caption=
【事件评分】错误
【事件】PrivateSubCommand2_Click（）
标准答案：
Text1.Text=
学生答案：
【事件评分】错误
【事件】PrivateSubCommand1_Click（）
标准答案：
Text2.Text=
学生答案：
文本框没有____A______属性
A、Caption
B、Visible
C、Enabled
D、BackColor
下列控件中可用于接受用户输入文本，又可用于显示文本的是A_____。
A、TextBox控件
B、CommandButton控件
C、Label控件
D、Timer控件
当文本框的MaxLength属性值取_C_______时，该文本框能容纳的字符数最多。
A、256
B、512
C、0
D、-1
要求改变窗体的标题时，应当在属性窗口中改变的属性是___A__。
A、Caption
B、Label
C、Name
D、Text
a+b小于10，且a-b大于1的逻辑表达式是_C________。
A、（a-b>1）To（a+b<10）
B、a+b<10.And.a-b>1
C、a+b<10Anda-b>1
D、a+b<10Ora-b>1
表达式Len（"VB程序设计ABC"）的值是__D_______。
A、14
B、20
C、10
D、9
下面___C_______是合法的单精度型变量
A、sum%
B、xinte$
C、num!
D、mm#
表达式10\8Mod9的值是___B______。
A、2
B、1
C、9
D、0
MsgBox函数返回值的类型是B__________
A、数值或字符串
B、整型数值
C、字符串
D、变体
赋值语句：
a=123&Mid（"123456",3,2）执行后，a变量中的值是A__________
A、"12334"
B、12334
C、123
D、157
循环语句Fori=-3To20Step4的循环次数为_B________。
A、4
B、6
C、3
D、5
循环语句Fori=20To10Step-2的循环次数为__A________。
A、6
B、4
C、不循环
D、5
设有数组说明语句：
Dim c（1To10），则下面表示数组c的元素选项中错误的是__B______。
A、c（i）
B、c（0）
C、c（10）
D、c（3+4）
设有数组说明语句：
Dim b（-1To2,-2To2），则数组b中元素的个数是___D_______。
A、16
B、15
C、12
D、20
在参数传递过程中，使用关键字D_____来修饰参数，可以使之按地址传递。
A、Reference
B、Value
C、ByVal
D、ByRef
在参数传递过程中，使用关键字_B____来修饰参数，可以使之按值传递。
A、Reference
B、ByVal
C、ByRef
D、Value
如果单击一个当前没有被选中的复选框，其它已被选中的复选框会处于____C____。
A、禁止
B、不选中
C、选中
D、不显示
下列语句中__A____可以把当前目录下的图形文件pic1.jpg装到入Picture1中。
A、Picture1.Picture=LoadPicture（"pic1.jpg"）
B、Picture.Handle="pic1.jpg"
C、Picture=LoadPicture（"pic1.jpg"）
D、Picture="pic1.jpg"
单选按钮（OptionButton）用于一组互斥的选项中。
若一个应用程序包含多组互斥条件，可在不同的__A_________中
A、框架控件（Frame）或图片框（PictureBox）
B、框架控件（Frame）或图象控件（Image）
C、组合框（ComboBox）或图片框（PictureBox）
D、组合框（ComboBox）或图象控件（Image）
若要使单选按钮具有图形特性可通过___C_______属性来进行。
A、Appearance
B、BackStyle
C、Style
D、Bordestyle
使用___B_____方法将新的项添加到一个列表框中。
A、Print
B、AddItem
C、Insert
D、Add
在设计菜单时，如果要在菜单中加入一个菜单分隔项，则菜单分隔项的标题必须设置为__B___。
A、加号（+）
B、减号（-）
C、感叹号（!
）
D、冒号（:
）
程序题（70）的功能是：
D
在窗体上画一个名称为Command1的命令按钮，编写下列程序：
PrivateSubCommand1_Click（）
DimaAsInteger，bAsInteger
a=45:
b=36
dountila=b
ifa>bthena=a-belseb=b-a
loop
Printa
Endsub
A、求a,b的最小公倍数
B、比较a,b大小
C、比较a,b是否相等
D、求a,b的最大公约数
程序题（11）
PrivateSubForm_click（）
Dims%,i%
s=0
i=100
DoWhilei<=120
If（i\3）*3=iThen
s=s+1
i=i+1
EndIf
i=i+1
Loop
Prints
EndSub
运行后，输出的结果是__D_____
A、13
B、9
C、11
D、7
程序题（14）
建立并输出10*10的方阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整
PrivateSubForm_click（）
Dima%（1to10,1to10）,i%,j%
Randomize
Fori=1To10
Forj=1To10
a（i,j）=_A________
PrintTab（j*5）;a（i,j）;
Nextj
Print
Nexti
EndSub
A、Int（Rnd*9）+1
B、Int（Rnd*9）
C、Int（Rnd）
D、Rnd*9
程序题（34）
输入一串字符，统计各字母出现的次数，请填空将程序补充完整
PrivateSubCommand1_Click（）
Dima（1To26）AsInteger,cAsString*1
le=Len（Text1）'求字符串的长度
ForI=1Tole
c=UCase（________D______________）'取一个字符，转换成大写
Ifc>="A"Andc<="Z"Then
j=Asc（c）-65+1'将A~Z大写字母转换成1~26的下标
a（j）=a（j）+1'对应数组元素加1
EndIf
NextI
Forj=1To26'输出字母及其出现的次数
Ifa（j）>0ThenPicture1.Print"";Chr$（j+64）;"=";a（j）;
Nextj
EndSub
A、以上都不对
B、Left（c,n,1）
C、Right（c,n,1）
D、Mid（Text1,I,1）
程序题（32）
下列程序执行后M,N,D的值分别为：
B
PrivateSubForm_click（）
t=365
M=tMod60
N=Int（t/60）
D=t\60
PrintM;N;D
EndSub
A、666
B、566
C、656
D、5；6；6
程序题（66）
PrivateSubform_click（）
s=0
i=1
DoWhilei<=10
IfiMod2<>0Then
s=s+i
i=i+1
Else
i=i+1
EndIf
Loop
Prints
EndSub
运行后，输出的结果是____C___
A、20
B、10
C、25
D、55
程序题（49）
执行下列程序段后，输出结果7,请填空
x=1
Fori=0To20Step5
x=x+iB____4
Nexti
Printx
A、8
B、mod
C、\
D、/
判断题：
Int（6*Rnd）+1的值在[1,6]范围内。
T
判断题：
安装VB6.0后，系统默认目录为VB98。
T
判断题：
语句：
Fori=20To1是错误的。
F
判断题：
子过程必须指定类型，而函数过程可以不指定其类型。
F
判断题：
Cls方法可以清除窗体或图形框中程序运行时产生的图形和文字的内容。
T
判断题：
语句If0F
判断题：
语句A=C:
C=B:
B=A的作用是实现A、B的值互换。
F
在窗体上有一个命令按钮，其名称为Command1，然后编写如下程序：
FunctionM（xAsInteger,yAsInteger）AsInteger
M=IIf（x>y,x,y）
EndFunction
PrivateSubcommand1_Click（）
DimaAsInteger,bAsInteger
a=100
b=200
PrintM（a,b）
EndSub
结果为：
200_____。
为了使列表框中的项目分为多列显示，需要设置的属性是___columns
__。
如果建立菜单时在标题文本框中输入一个__-___，那么显示时将形成一行分隔符。
组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和__下拉式组合框___。
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：
（事件）双击窗体。
'（响应）求100以内奇数的和，并将结果输出在窗体上。
'将结果存入变量SUM中
参考代码】
DimiAsInteger
Fori=1To100
IfiMod2=1Then
sum=sum+i
EndIf
Next
Printsum
在窗体上添加5个标签、3个文本框、2个命令按钮，如图1；在属性窗口里设置相关属性，
运行时显示如图2所示，功能是：
计算某个学生奖学金的等级（假定只考虑一等奖），以
三门功课成绩为评奖依据，奖学金一等评定标准如下：
1、平均分大于95者；
2、有两门是100分，且第三门功课不低于80分者。
符合上述标准之一，输出“一等奖”否则输出“非一等奖”。
图1
图2
【控件属性评分】错误
【控件】VB.CommandButton_
标准答案：
Caption=结束
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.CommandButton_
标准答案：
Caption=评定
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Label_
标准答案：
Caption=学生成绩评定程序
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Label_
标准答案：
Caption=程序设计：
太原理工大学理学院计算机基础教学部
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Label_
标准答案：
Caption=计算机
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Label_
标准答案：
Caption=英语
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Label_
标准答案：
Caption=数学
学生答案：
Caption=
【事件评分】错误
【事件】PrivateSubCommand1_Click（）
标准答案：
"一等奖"
>95
=100
学生答案：
不论何控件，共同具有的是_D________属性
A、Caption
B、Text
C、ForeColor
D、Name
如果文本框的Enabled属性设为False，则___B_____。
A、文本框的文本将变成灰色，用户仍然能改变文本框中的内容。
B、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上
C、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容。
D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。
一条语句要在下一行续写，用__A________符号作为续行符
A、_
B、…
C、+
D、-
下列各赋值语句，语法不正确的是_D____。
A、sLength=x+y
B、iNumber=15
C、Labell.Caption=time
D、x+y=5
表达式10\8Mod9的值是__B_______。
A、2
B、1
C、9
D、0
a+b小于10，且a-b大于1的逻辑表达式是__C_______。
A、（a-b>1）To（a+b<10）
B、a+b<10.And.a-b>1
C、a+b<10Anda-b>1
D、a+b<10Ora-b>1
在VB中，对于已经声明但没有赋值的布尔型变量，系统的默认值是__C_________。
A、1
B、0
C、False
D、True
以下关系表达式中，其值为False的是A
A、"ABC">"AbC"
B、"中国">"中东"
C、"BASIC"=Ucase（"basic"）
D、"123"<"23"
在VB集成环境中，调试程序可以设置跟踪点。
如果设置了跟踪点，那么当程序运行至该跟踪点时，会出现一条黄色C
A、下一行语句
B、当前行语句
C、上一句语句
D、当前语句
下面语句正确的是A________。
A、Ifx<>ythenprint"x不等于y"
B、Ifx≠y
升级会员 