a) Y=X：X=Y b) Z=X：Y=Z：X=Y c) Z=X：X=Y：Y=Z d) Z=X：W=Y：Y=Z：X=Y 答案：C
填空题
1) 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______。 答案：b
8) 在Select case 结构中应至少包含一个______子句。 答案：CASE
9) 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。 答案：赋值
10) 有如下Sub过程: Sub ind(a As Integer) Static x As Integer 答案：12
2) 语句a%=3.14156:Print a%的输出结果是______。 答案：3
3) 以下循环的执行次数是_____。 K=0
Do While k<=10 k=k+1 Loop 答案：11
4) 双精度数用字母_____将尾数与指数分开。 答案：D
5) 下列程序段的执行后输出的结果为_____。 I=4:A=5 Do
I=I+1:A=A+2 Loop Until I>=7 Print \ 答案：A=11
6) 表达式3/6*5的值是_______。 答案：2.5
7) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a
If a If_____Then d=b:b=c:c=d EndIf Print a,b,c 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 Do t = t + m : Sum = Sum + t : m = m + 2 Loop While m <= 9 Print Sum 答案：55 17) 一组具有相同名称，不同下标的下标变量称为______。 答案：数组 18) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。 提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。 13 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 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 Print I End Sub 打印结果_____。 答案：3 30) Visual Basie中的常量分为两种，一种是文字常量，一种是____常量。 答案：符号 31) Visual Basie 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时，会自动在列表框边上加一个______。 答案：滚动条 14 系统 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 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() Dim s As Long Dim x As Integer s = 0 For x=1 to 100 step____ s = s + x Next x Print s End Sub 答案：2 15 48) 假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于____状态。 答案：选中 49) 激活属性窗口的快捷键是______。 答案：F4 50) 下列程序的执行结果是_______。 A = 75 If a>60 Then I = 1 ElseIf a>70 Then I = 2 ElseIf a>80 Then I = 3 ElseIf a>90 Then I = 4 End If Print I 答案：1 51) 下列程序段的运行后t的值为______。 Dim t,k as single k=5 : t=1 do While k>=-1 t=t*k : K=K-1 loop 答案：0 52) 执行语句“a=6=5”后，变量a的值为______。 答案：FALSE 53) 下面程序段的输出结果是_____。 P=0:s=0 Do p = p+2 s = s+p Loop While p<11 Print \ 答案：s=42 54) 下面程序段的输出结果是______。 For X=1.5 To 5 Step 5 Print X; Next X 答案：1.5 55) 执行下面的程序段后，s的值为______。 S=5 For I=2.6 To 4.9 Step 0.6 s=s+1 Next I 答案：9 56) 表达式Fix(-32.68)+Int(-23.02)的值为______。 答案：-56 57) 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(\请输入一个整数\ b=InputBox(\请输入一个整数\Print a+b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为____。 答案：321456 58) 执行下面的程序段后，b的值为_____。 A=300:b=20 a=a+b:b=a-b:a=a-b 答案：300 59) Visual Basic 的对象是________和_______的总称。 答案：窗体#控件 60) 图片框的默认属性为_______（提示：该题只填写英文，如Name事件，只写Name即可）。 答案：PICTURE 61) 滚动条响应的重要事件有_______和_______（提示：该题只填写英文，如Click事件，只写Click即可）。 答案：CHANGE#SCROLL 62) 下列程序段执行后x的值是______。 X=100 : y=50 if x>y then x=x-y else x=x+y 答案：50 63) 表达式32/2^3-3*2^2+4^2的值是_______。 答案：8 64) 下列程序用来将变量X，Y的值互换，请补充完程序（提示：该题 答案中不要出现空格）。 T=Y:______:X=T 答案：Y=X 65) 有如下程序，该程序的运行结果是______。 16 A=20 : b=10 print a>b 答案：TRUE 66) 表达式15+3*3/9*5\\5 mod 10 的值是______。 答案：16 67) 有如下程序，该程序的运行后输出的结果是______。 Private sub Command1_Click() I=\ Mid(I,4,3)=\ Print I End Sub 答案：AAABBB 68) 有一数组定义语句：dim M(-2 to 1) as string，该语句定义的数组M中包含____个元素。 答案：4 69) 设有数组声明语句：Option base 1 dim A(3,-2 to 1)，则数组A中有_____个元素。 答案：12 70) 有数组定义语句：dim I(99,99) as Integer，则数组I中共包含有______个元素。 答案：10000 71) 下面程序段执行后的结果是_____。 X=10 For I=6.3 to 4.9 Step -0.3 x=x-1 Next Print x 答案：5 72) 表达式：5\\2*3的值是______。 答案：0 73) 表达式：Mid(\的值是______。 答案：HAI 74) 表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是_____。 答案：0 75) VB程序设计中三种基本结构分是：_______结构、选择结构和_______结构。 答案：顺序#循环 80) 语句x=inputbox(\请输入数据\输入12345,则x的值为______类型的数据（提示：例如整型，Int；字符型，String）。 答案：STRING 81) x,y中至少有一个变量小于变量z的VB表达式为x 82) 以下程序段的输出结果是____。 Num=0 While num<=2 num=num+1 Wend Print num 答案：3 83) 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为______。 答案：- 85) 如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中______个选项按钮（提示：该题 答案不能出现汉字）。 答案：2 87) ______属性为列表框中的每个列表项设置一个对应的数值，它是一个整数数组，数组大小与列表项的个数一致。 答案：LIST 88) 在窗体上画一个命令按钮(其Name属性为CommAnd1)，然后编写如下代码： Private Sub CommAnd1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后，单击命令按钮，输出结果是______。 答案：4 89) 当程序开始运行，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的____属性设置为空。 答案：TEXT 17
相关推荐：
loading