VB复习资料(2)

A、1个“$”B、4个“$” C、不显示内容D、“*”

B 61、表达式 25.28 Mod 6.99 的值是______。（1分） A、1B、4 C、5D、出错

C 62、下面关系运算中，输出结果为“True”的是______。（1分） A、\、\C、\、\

C 63、与传统的程序设计语言相比较，Visual Basic最突出的特点是______。（1分） A、结构化的程序设计B、数据处理 C、面向对象的可视化编程D、中文支持 C 64、可以让Image图像控件自动改变大小以适应图形尺寸的属性是______。（1分） A、AutosizeB、AutoRedraw C、StretchD、Width A 65、变量未赋值时，数值型变量的值为______。（1分） A、OB、空串\C、NullD、没任何值 B 66、下列各组中，两个函数功能完全相反的是______。（1分） A、Str(x)和Val(x)B、Asc(x)和Chr(x) C、LTrim(x)和RTrim(x)D、Timer(x)和Time(x) C 67、比较两个数中较大的数的程序段，错误的是______。（1分） A、IF x >y Then max=x Else max=yB、max=IIF(x>y , x, y) C、IF x >y Then max=x : max=yD、max=x: If x< y Then max=y C 68、在下列语句中，正确的是______。（1分） A、Text1.Text+Text2.Text=Text3.TextB、Command1.Name=\C、Label1.Caption=4567D、x=InputBox(please input) D 69、在VB中，以10为底的x的常用对数表达式是______。（1分） A、Log(X)B、Log10(X) C、Log(X) / Log(e)D、Log(X) / Log(10) D 70、执行程序段：a$ = \c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 11)，变量c$的值为______。（1分） A、Visual BASIC ProgramingB、Quick Basic programing C、QUICK Basic ProgramingD、Quick BASIC Programing C 71、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员，能正确表示该条件的布尔表达式是______。（1分）

A、T >= 1.7 And W <= 52.5B、T <= 1.7 Or W >= 52.5 C、T > 1.7 And W < 52.5D、T > 1.7 Or W < 625

D 72、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。在Command1_Click()中能完成这个功能的命令为______。（1分）

A、Label1.Left = 100B、Label1.Left = Label1.Left - 100 C、Label1.Move 100D、Label1.Move Label1.Left + 100

6

B 73、以下______是正确的For ? Next结构。（1分） A、For x=1 To Step 10 ? Next xB、For x=3 To -3 Step -3 ? Next x

C、For x=1 To x=10 ? Next xD、For x=3 To 10 Step 3 ? Next y

D74、以下关于MsgBox的叙述中，错误的是___ ___。（1分）

A、MsgBox函数返回一个整数B、通过MsgBox函数可以设置信息框中图标和按钮的类型 C、MsgBox过程语句没有返回值D、MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数

B 75、语句Print 4 + 5 \\ 6 * 7 / 8 Mod 9的值是______。（1分） A、4B、5 C、6D、7 A 76、Print DateDiff(\#1/31/2004#)的输出结果是______。（1分） A、OB、1 C、-1D、2 C 77、以下关于InputBox函数的叙述中，错误的是______。（1分） A、InputBox函数的“提示信息参数”不能缺省B、每执行一次InputBox函数，只能输入一个值 C、InputBox 函数的返回值是数值型的D、要保存InputBox函数的返回值必须赋予一个变量 A 78、Print Format(32556, \ \的输出结果是______。（1分） A、3255632556B、32556—32556 C、32556-325D、--32556325 B 79、Single（单精度）型数据占__ ____个字节。（1分） A、2B、4 C、8D、10 B 80、每个对象的事件名称______。（1分） A、都要由用户定义B、有的由用户定义，有的由系统定义 C、都是由系统预先定义D、是不固定的 A 81、能够盛放其他控件，而且是最基本的对象是______。（1分） A、窗体B、图像 C、标签D、文本 A 82、abc％，abc!，abc$，abc#分别声明abc是______。（1分） A、整型、单精度、字符串、双精度变量B、整型、整型、字符串、双精度变量 C、单精度、整型、字符串、双精度变量D、整型、双精度、字符串、双精度变量 A 83、在程序运行模式能够______。（1分） A、中断程序B、添加程序 C、输入程序D、编辑程序

A 84、不属于一个工程文件（*.vbp）里的文件是______。（1分） A、*.txt文件B、*.bas文件 C、*.cls文件D、*.frm文件

A 85、已知下列程序段：a = 3: b = 4: Print b > a ，输出的结果是______。（1分）

7

A、TrueB、False

C、4>3D、显示出错信息

B 86、用户自定义数据类型时，其成员不能是______。（1分） A、定长字符串和数组B、变长字符串和数组 C、货币型和日期型D、变长字符串和货币型 B 87、表达式Val(\的值是______。（1分） A、.123B、12.3 C、OD、.123E2CD

C 88、程序如下：k = 0: Do Until k > 10: k = k + 1: Loop的循环体执行次数是______。（1分） A、9B、10 C、11D、无数次 B 89、设n=10，执行n=IIF(n=3,n,-n)后，n 的值为______。（1分） A、10B、-10 C、3D、-3 B 90、能产生[10，32]之间随机整数的函数表达式为______。（1分） A、Int(Rnd*22)+10B、Int(Rnd*23)+10 C、Int(Rnd*22)+11D、Int(Rnd*23)+11 B 91、如果将布尔常量值True赋给一个整型变量，则整型变量的值为______。（1分） A、OB、-1 C、TrueD、False C 92、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是______。（1分） A、ForecolorB、BackColor C、BackStyleD、BorderStyle C 93、决定窗体标题栏显示内容的属性是______。（1分） A、TextB、Name C、CaptionD、BackStyle C 94、语句X = X + 1的正确含义是______。（1分） A、变量X的值与X + 1的值相等B、将变量X的值存到X + 1中去 C、将变量X的值加1后赋给变量XD、变量X的值为1 B 95、执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是______。（1分） A、232 232032B、232 232 C、232.32 232.32D、显示出错信息 C 96、下列数据中，______是日期型数据。（1分） A、\、Date(\C、#01/30/2004#D、01/30/2004

注：

1. 当题目为“求值”或“输出值为XX”时，最好自己用VB软件实验。

8

二、填空题

1、* 求S=1！+2！+?10! * 程序段如下： s = 0 t = 1

For i = 1 To 10 t= t * i s = s + t Next i Print s

2、* 使用双循环实现正三角形输出 * *** ***** ******* ********* *********** ************* *************** ***************** ******************* * 程序代码如下： Private Sub Command1_Cick() For i = 1 To 10 Print Tab(25 - i); For j = 1 To 2 * i - 1 Print \ Next j print Next i End Sub 3、* 执行如下语句： D = inputbox(\, \y before yesterday\ 将显示一个输入对话框（见图 t2-2-2.jpg ），在对话框的输入区中显示的信息是Yesterday。 4、* 设在窗体上面有两个文本框（Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程，则程序运行结果为：123321。 Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a

End Sub Private Sub Form_Load() text1 .Text = \ Text2.Text = \ Print a End Sub 5、* 根据π/4=1-1/3+1/5-1/7+?..+(-1)n-1/(2n-1)，分别求n=1000、1500、2000、2500时π的近似值。 * 程序代码如下：： Private Sub Form_Click() For i = 1000 To 2500 Step 500 s = 0 f = 1 For j = 1 To i t = 1 / (2 * j - 1) s = s + f * t f = -f Next j Print \4 * s Next i End Sub 6、* 求SUM=1×2×3+4×5×6+7×8×9+?28×29×30 * 程序段如下： sum=0 I = 2 Do While I <= 30 Sum = Sum + (I - 1) * I * (I + 1) I = i+ 3 Loop Print \总和为：\7、* 在图形控件内输出左下角三角形式的九九乘法表 * 程序代码如下： Private Sub Picture1_Click() Dim se As String Picture1.Print Tab(35); \九九乘法表\ Picture1.Print Tab(35); \ For i = 1 To 9 For j = 1 To i se = i & \\ print Tab((j - 1) * 9 + 1);se; Next j Picture1.Print 9

Next i End Sub

8、* 下面程序用于求小于和等于50的自然数的平方和，请填空。 * 程序段如下：

private sub form_click() Dim sum as long sum=0 for i=1 to 50 sum=sum+i^2 next i print sum end sum

9、* 求s=1+(1+2)+(1+2+3)+?+(1+2+3+?+N) * 程序代码如下：

Private Sub Command1_Click() N = InputBox(\输入N:\ Sum = 0 For i = 1 To N Sum1 = 0 For j = 1 To i Sum1 = Sum1 + j Next j

Sum = Sum + Sum1 Next i

Text2.Text = Sum End Sub

10、* 古代数学家在编写《算经》时，提出了一个不定方程问题，即著名的“百鸡问题”：

* 鸡翁一，值钱五，母鸡一，值钱三，雏鸡三，值钱一。百钱卖百鸡，问鸡翁、母、雏，各几何？ * 程序代码如下： Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(5); \公鸡\母鸡\小鸡\ For i = 0 To 20 For j = 0 To 30 k = 100 - i - j

If 5 * i + 3 * j + k / 3 = 100 Then

Print Tab(5); i; Tab(15); j; Tab(25); k End If Next j Next i End Sub

11、* 下列程序段的执行结果是“HELLO! ZHANG! GOOD MORNING!”。 A = \ B = \ C = Left(A, 5) + \ D = Right(A, 7) E = Mid(A, 6, 4)

F = Mid(B, Len(B) - 6, 5) + \ G = E + \ H = C + \ Print H + \

12 、* 程序运行后，窗体上显示的是：x= 4 y= 13。 Private Sub Form_Click() Dim x%, y%, z% z = 5

x = Sgn(z) + 3 If x = 3 Then y = x ^ 2 + 5 ElseIf x = 4 Then y = 4 * x - 3 Else y = x End If Print \End Sub 13 、* 判断正整数M是否为素数。 * 程序段如下： Private Sub Form_Click() Dim x%, y%, z% m = InputBox(\ FLAG = 1

For i = 2 To Sqr(m) If m Mod i = 0 Then FLAG = 0 Exit For End If Next i

If FLAG = 1 Then Print \ Else

Print \ End If End Sub

14 、* 在窗体上画一个名称为Command1的命令按钮10

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB复习资料(2)在线全文阅读。