EndIf
If a If_____Then d=b:b=c:c=d EndIf Print a,b,c 答案：b 8) 在Select case 结构中应至少包含一个______子句。 答案：CASE 9) 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。 答案：赋值 10) 有如下Sub过程: Sub ind(a As Integer) Static x As Integer x = x+a Print x; End Sub 以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。 Private Sub Command1_Click() Ind(2) End Sub 答案：2 11) 逻辑常量值为TRUE或_______。 答案：FALSE 12) 货币类型的数据小数点的位置是固定的，精确到小数点后_____位。 答案：4 13) 表达式（2+8*3）/2的值是______。 答案：13 14) 以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。 If X___2=____ Then Print X 答案：MOD#0 15) 当对窗体中的对象进行_____操作时，Visual Basic 就会显示该对象的代码窗口。 答案：双击 到 15 (总共 103 个记录) 第一页 前一页 下一页 最后一页 16) 下列程序的执行结果是____。 T = O : m = 1 : Sum = 0 26 Do t = t + m : Sum = Sum + t : m = m + 2 Loop While m <= 9 Print Sum 答案：55 17) 一组具有相同名称，不同下标的下标变量称为______。 答案：数组 18) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。 提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。 Private Sub Command6_Click() Dim y As Integer y=InputBox(\请输入年号\ If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) Then Print \是闰年\ Else Print \是普通年份\End If End Sub 答案：AND 19) 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。 答案：FALSE 20) 假定在C：盘根目录下有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为_____。 答案：PICTURE1.PICTURE=LOADPICTURE(\ 21) 为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch属性设置为______。 答案：TRUE 22) 根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_____、模块变量和全局变量。 答案：局部变量 23) 表达式3>4 and 7=5的值是______。 答案：FALSE 24) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。 Private Sub Commmand1_Click() Dim x As Integer x = 100 Do Until x > _____ If x Mod 3 <> 0 Then Print x End If 27 x = x + 1 Loop End Sub 答案：X>200 25) 下列程序段的执行时，共循环____次。 For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c Next b next a 答案：12 26) 以下程序计算2到50间所有偶数的和，请补充完该程序 Sub mult() Dim Sum As Integer Sum=0 Dim I as integer For___to 50 If I MOD 2=___Then___ Next I Print sum End Sub 答案：I=2#0#SUM=SUM+I 27) A=7,B=3,C=4,则表达式 A MOD 3+B^3/C\\5的值为____。 答案：2 28) 下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。 For j=1 to 10 s=s+j If s>=10 then______。 Next j 答案：EXIT FOR 29) 下列程序段的运行结果是： Sub sele() Dim n as Integer I=21:n=3 Do While I>n I=I-n Loop 28 Print I End Sub 打印结果_____。 答案：3 30) Visual Basie中的常量分为两种，一种是文字常量，一种是____常量。 答案：符号 31) Visual Basie 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个______。 答案：滚动条 32) 一个程序最多可以有________窗体。 答案：255 33) 将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。 答案：TRUE 34) 要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。 答案：CTRL 35) 表达式：\的值是_______。 答案：FALSE 36) ______属性用来设置窗体的标题。它确定和改变显示在窗体的标题栏中的文本。 答案：CAPTION 37) 假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。 答案：TEXT1.SETFOCUS 38) 执行下面的程序段后，s的值为____。 S=5 For I=2.6 To 4.9 Step 2 s=s+1 Next I 答案：7 39) 表达式“12345”<>“12345”&“ABC”的值是_____。 答案：TRUE 40) 下列程序用来计算1+2+3??+10的值，请补充完程序。 Dim t,k as single K=0 DO While k<10 K=k+1:______ loop print t 答案：T=T+K 41) 下列程序段的执行后输出的结果为_______。 K = 1 29 For I = 1 To 3 A = I ^ I ^ K Next I Print A 答案：27 42) 下列程序是用来计算1＋2＋3??＋10的程序段，请补充完该程序。 Dim I, s, k As Integer s = 0: k = 0 For____To -1 k = k+1:s = s+k Next I Print s 答案：J=-10 43) 执行inputbox函数后，会产生一个对话框，对话框上通常有两个按纽，它们是_____按纽和取消按钮。 答案：确定 44) 下列程序的执行结果是_____。 M1 = 1:m2 = 1 Do While m2<>6 m1 = m1*m2 : m2 = m2+1 Loop Print m1 答案：120 45) 下列程序的执行结果是_____。 Private Function P(N As Integer) For I = I To N SUM = SUM + 1 Next I P = SUM End Function Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S; End Sub 答案：14 46) 货币型数据的类型标识符为______。 答案：@ 47) 以下程序用来输出1到100所有奇数的和，请补充完该程序。 Private Sub Command3_Click() 30