VB期末复习题库Visual Basic(填空题)

VB期末复习题库Visual Basic（填空题）1 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______（提示：不能出现符号#）。

122 语句a%=3.14156:Print a%的输出结果是______。

33 "以下循环的执行次数是_____。

K=0Do While k<=10k=k+1Loop" 114 Fix(5.8)的值是_______。

55 "下列程序段的执行后输出的结果为_____。

I=4:A=5DoI=I+1:A=A+2Loop Until I>=7Print ""A="";A" A=116 表达式3/6*5的值是_______。

2.57 "下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。

If a<b Thend=a:a=b:b=dEndIfIf a<c Thend=a:a=c:c=dEndIfIf_____Thend=b:b=c:c=dEndIfPrint a,b,c" b<c8 在Select case 结构中应至少包含一个______子句。

CASE9 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。

赋值10 "有如下Sub过程:Sub ind(a As Integer)Static x As Integerx = x+aPrint x;End Sub以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。

Private Sub Command1_Click()Ind(2)End Sub" 211 逻辑常量值为TRUE或_______。

FALSE12 货币类型的数据小数点的位置是固定的，精确到小数点后_____位。

413 表达式（2+8*3）/2的值是______。

1314 "以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。

If X___2=____ Then Print X" MOD#015 当对窗体中的对象进行_____操作时，Visual Basic 就会显示该对象的代码窗口。

双击16 "下列程序的执行结果是____。

T = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t : m = m + 2Loop While m <= 9Print Sum" 5517 一组具有相同名称，不同下标的下标变量称为______。

数组18 "给定年份，下列程序用来判断该年是否闰年，请补充完该程序。

提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。

Private Sub Command6_Click()Dim y As Integery=InputBox(""请输入年号"")If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) ThenPrint ""是闰年""Else Print ""是普通年份""End IfEnd Sub" AND19 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。

FALSE20 表达式："1" & "2" = "12"的值是_______。

TRUE21 为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch属性设置为______。

TRUE22 根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_____、模块变量和全局变量。

局部变量23 表达式3>4 and 7=5的值是______。

FALSE24 "以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。

Private Sub Commmand1_Click()Dim x As Integerx = 100Do Until x > _____If x Mod 3 <> 0 ThenPrint xEnd Ifx = x + 1LoopEnd Sub" 200025 "下列程序段的执行时，共循环____次。

For a=0 To 1For b=1 To 2For c=1 To 3I=I+1Next cNext bnext a" 1226 "以下程序计算2到50间所有偶数的和，请补充完该程序Sub mult()Dim Sum As IntegerSum=0Dim I as integerFor___to 50If I MOD 2=___Then___Next IPrint sumEnd Sub" I=2#0#SUM=SUM+I27 A=7,B=3,C=4,则表达式 A MOD 3+B^3/C\5的值为____。

228 "下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。

For j=1 to 10s=s+jIf s>=10 then Exit ____。

Next j" FOR29 "下列程序段的运行结果是：Sub Form1_Click()Dim n as IntegerI=21:n=3Do While I>nI=I-nLoopPrint IEnd Sub打印结果_____。

" 330 Visual Basic中的常量分为两种，一种是直接常量，一种是____常量。

符号31 Visual Basic 提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个______。

滚动条32 一个程序最多可以有________窗体。

25533 将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。

TRUE34 要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。

CTRL35 表达式："1"+"2"="3"的值是_______。

FALSE36 ______属性用来设置窗体的标题。

它确定和改变显示在窗体的标题栏中的文本。

CAPTION37 假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。

TEXT1.SETFOCUS38 "执行下面的程序段后，s的值为____。

S=5For I=2.6 To 4.9 Step 2s=s+1Next I" 739 表达式“12345”<>“12345”&“ABC”的值是_____。

TRUE40 "下列程序用来计算1+2+3……+10的值，请补充完程序。

Dim t,k as singleK=0DO While k<10K=k+1:______loopprint t" T=T+K41 "下列程序段的执行后输出的结果为_______。

K = 1For I = 1 To 3A = I ^ I ^ KNext IPrint A" 2742 "下列程序是用来计算1＋2＋3……＋10的程序段，请补充完该程序。

Dim I, s, k As Integers = 0: k = 0For____To -1k = k+1:s = s+kNext IPrint s" I=-1043 执行inputbox函数后，会产生一个对话框，对话框上通常有两个按纽，它们是_____按纽和取消按钮。

确定44 "下列程序的执行结果是_____。

M1 = 1:m2 = 1Do While m2<>6m1 = m1*m2 : m2 = m2+1LoopPrint m1" 12045 "下列程序的执行结果是_____。

Private Function P(N As Integer)For I = 1 To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub" 1046 货币型数据的类型标识符为______。

@47 "以下程序用来输出1到100所有奇数的和，请补充完该程序。

Private Sub Command3_Click()Dim s As LongDim x As Integers = 0For x=1 to 100 step____s = s + xNext xPrint sEnd Sub" 248 假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于____状态。

选中49 激活属性窗口的快捷键是______。

F450 "下列程序的执行结果是_______。

A = 75If a>60 ThenI = 1ElseIf a>70 ThenI = 2ElseIf a>80 ThenI = 3ElseIf a>90 ThenI = 4End IfPrint I" 151 "下列程序段的运行后t的值为______。

Dim t,k as singlek=5 : t=1do While k>=-1t=t*k : K=K-1loop" 052 执行语句“a=6=5”后，变量a的值为______。

FALSE53 "下面程序段的输出结果是_____。

P=0:s=0Dop = p+2s = s+pLoop While p<11Print ""s=""&s" s=4254 "下面程序段的输出结果是______。

For X=1.5 To 5 Step 5Print X;Next X" 1.555 "执行下面的程序段后，s的值为______。