一、判断共19题（共计19分）
第1题（1.0分）题号:684
在窗体的form_load事件过程里定义的变量是局部变量。
第2题（1.0分）题号:380
VB规定窗体文件的扩展名是 .vbp。
3题（1.0分）题号:681
对于动态数组，在过程中可多次使用redim语句改变数组的大小。
第4题（1.0分）题号:285
所有的控件在程序运行以后都是可见的。
第5题（1.0分）题号:677
通常用show方法来显示通用对话框
第6题（1.0分）题号:683
控件数组中的各个元素由caption属性区分。
第7题（1.0分）题号:680
通用对话框控件在运行的时候，是不可见的。
第8题（1.0分）题号:361
设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C
的值是 False。
第9题（1.0分）题号:313
“菜单编辑器”中至少要填“名称”和“标题”这两个框，才
能真确完成菜单栏的设计。
第10题（1.0分）题号:325
VB若同一个工程有许多窗体，可以指定任一窗体为启始窗体。
第11题（1.0分）题号:335
通过改变属性窗口中的Name属性，可以改变窗体上显示的标题。
第12题（1.0分）题号:324
如果一个菜单项的Visible属性为False，则它的子菜单也不会显示。
第13题（1.0分）题号:678
鼠标mousedown事件可以返回一个参数button用于判断用户按下的是鼠标的左键、右键、还是滑轮。
第14题（1.0分）题号:254
有的对象属性既可在属性窗口中设定又可在程序代码中设定。
第15题（1.0分）题号:686
时钟控件的interval属性的单位是毫秒。
第16题（1.0分）题号:248
对象的可见性用enabled属性设置，可用性用visible属性设置。
第17题（1.0分）题号:682
Dim（4,5）定义数组元素个数是20个。
第18题（1.0分）题号:685
dim a（1 to 5）定义的数组是2维数组。
第19题（1.0分）题号:679
用户可以通过设置菜单项的hide属性值为false来使该菜单项失效。
二、单项选择共46题（共计46分）
第1题（1.0分）题号:1044
双击窗体的任何地方，可以打开的窗口是（）。
A:代码窗口
B:属性窗口
C:工程管理窗口
D:以上3个选项都不对
第2题（1.0分）题号:1071
VB认为下面（）组变量是同一个变量。
A:A1和a1
B:SUM和SUMMARY
C:AVER和AVERAGE
D:A1和A_1
第3题（1.0分）题号:1118
决定控件上文字的字体、字形、大小及效果的属性是（）。
A:TEXT
B:CAPTION
C:NAME
D:FONT
第4题（1.0分）题号:1013
下列（）是窗体的扩展名。
A:frm
B:bas
C:cls
D:dll
第5题（1.0分）题号:2298
关于VB源代码的编写,下列说法错误的是
A:一个语句必须写在一行中,不可分成多行来书写
B:同一行可以写多个语句
C:可以适当添加注释有利于程序的维护和调试
D:VB源代码中不区分字母的大小写
第6题（1.0分）题号:2313
如果在窗体上画一个命令按钮Command1,然后编写如下实事件代码: Private Sub Command1_ Click ()
x=2
For i=1 To 10 Step 2
x=x+i
Next i
Print x
End Sub
那么,程序运行后,单击命令按钮,其窗体上显示的结果是
A:26
B:27
C:38
D:57
使"程序设计"在当前窗体上输出的语句是
A:Print "程序设计"
B:Picture1.Print "程序设计"
C:Printer.Print "程序设计"
D:Text.Print "程序设计"
第8题（1.0分）题号:724
下面( ) 是合法的变量名.
A:X_yz
B:123abc
C:integer
D:X-Y
第9题（1.0分）题号:1006
以下关于vb 语言的说法中，正确的是（）。
A:vb 是一种面向过程的语言
B:vb 是一种面向对象语言
C:vb是一种低级语言
D:vb 是一种机器语言
第10题（1.0分）题号:1052
设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）。
A:cmdc
B:cmdb
C:cmdA
D:Command1
第11题（1.0分）题号:736
下面正确的赋值语句是( ) .
A:x+y=30
B:y= * r * r
C:y=x+30
D:3y=x
第12题（1.0分）题号:995
要想清除文本框中的内容则可利用（）进行。
A:Caption
B:Text
C:Clear
D:Cls
第13题（1.0分）题号:1068
MSGBOX函数中有4个参数，其中必须写明的参数是（）。
A:指定对话框中显示按钮的数目
B:设置对话框标题
C:提示信息
D:所有参数都是可选的
下面( ) 是合法的单精度型变量
A:num!
B:sum%
C:xinte$
D:mm#
第15题（1.0分）题号:2301
用InputBox()函数设计的对话框,其功能是
A:只能接收用户输入的数据,但不会返回任何信息
B:能接收用户输入的数据,并能返回用户输入的信息
C:既能用于接收用户输入的信息,又能用于输出信息
D:专门用于输出信息
第16题（1.0分）题号:961
将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。A:Visible
B:Value
C:Caption
D:Enabled
第17题（1.0分）题号:1176
执行下面的程序段后，x的值为（）。
x=5
For i=1 To 20 Step 2
x=x+i\5
Next i
A:21
B:22
C:23
D:24
第18题（1.0分）题号:967
由For k=10 to 0 step 3:next k循环语句控制的循环次数是（）。A:12
B:0
C:-11
D:-10
第19题（1.0分）题号:2309
Do循环语句是根据条件决定循环的语句的,下列说法正确的是
A:While和Until都是在条件变为真的之前重复循环
B:Until是当条件为真时执行循环,而While是在条件变为真的之前重复C:While和Until都是当条件为真时执行循环
D:While是当条件为真时执行循环,而Until是在条件变为真的之前重复第20题（1.0分）题号:1177
用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是（）。A:6
B:7
C:8
D:9
第21题（1.0分）题号:2307
以下Case语句中错误的是
A:Case 0 To 10
B:Case Is>10
C:Case 3, 5, Is>10
D:Case Is>10 And Is<50
第22题（1.0分）题号:2303
可以实现从键盘输入一个作为双精度变量a的值的语句是A:a=InputBox()
B:a=InputBox("请输入一个值")
C:a=Val(InputBox("请输入一个值") )
D:a=Val(InputBox() )
第23题（1.0分）题号:1092
窗体的Caption属性的作用是（）。
A:确定窗体的名称
B:确定窗体的标题
C:确定窗体的边界类型
D:确定窗体的字体
第24题（1.0分）题号:933
函数Int(10*Rnd)是在（）范围内的整数。
A:[0,1]
B:[1,10]
C:[1,9]
D:[0,9]
第25题（1.0分）题号:1128
以下（）程序段可以实施X、Y变量值的变换。
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
第26题（1.0分）题号:939
循环结构For I%= -1 to –17 Step –2 共执行（）次。A:5
B:6
C:8
D:9
第27题（1.0分）题号:1022
下面（）是日期型常量。
A:"12/19/99"
B:12/19/99
C:#12/19/99#
D:{12/19/99}
第28题（1.0分）题号:742
VB提供了结构化程序调计的三种基本结构,三种基本结构是( ) .
A:递归结构、选择结构、循环结构
B:选择结构、过程结构、顺序结构
C:过程结构、输入输出结构、转向结构
D:选择结构、循环结构、顺序结构
第29题（1.0分）题号:1055
表达式Mid("SHANGHAI",6,3)的值是（）。
A:SHANGH
B:SHA
C:ANGH
D:HAI
第30题（1.0分）题号:705
有程序代码如下:Text.Text="Text1.text"则Text1、Text、"Text1.text"分别代表 . A:对象、值、属性
B:对象、方法、属性
C:对象,属性、值
D:属性、对象、值
第31题（1.0分）题号:1172
表达式4+5\6*7/8Mod9的值是（）。
A:4
B:5
C:6
D:7
第32题（1.0分）题号:740
语句:Print"Sqr(9)=" ;Sqr(9)的输出结果是( ) .
A:Sqr(9)= Sqr(9)
B:Sqr(9)=3
C:"3"=3
D:3= Sqr(9)
第33题（1.0分）题号:739
赋值语句:a=123 &Mid("123456",3,2)执行后,a变量中的值是( ) .
A:"12334"
B:123
C:12334
D:157
第34题（1.0分）题号:2312
执行语句For i=1 to 3: i=i+1 :Next i后变量i的值是
A:3
B:4
C:5
D:6
第35题（1.0分）题号:703
在Visual Basic中最基本的对象是( ) ,它是应用程序的基石,是其他控件的容器. A:文本框
B:命令按钮
C:窗体
D:标签
第36题（1.0分）题号:2310
关于Do……Loop Until循环正确的描述是
A:不论"条件表达式"是否为"真",至少要执行一次循环体
B:如果"条件表达式"的值为假,则一次循环体也不执行
C:如果"条件表达式"的值为真,则一次循环体也不执行
D:如果"条件表达式"的值为真,则要继续执行循环体
第37题（1.0分）题号:2302
在默认情况下,InputBox()函数返回值的类型为
A:逻辑类型
B:字符串型
C:数值型
D:变体类型
第38题（1.0分）题号:735
表达式Len("123程序设计ABC")的值是( ) .
A:10
B:14
C:20
D:17
第39题（1.0分）题号:2308
下面程序段执行结果为( )x=Int(Rnd() + 3)
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
Case 3
Print "及格"
Case Else
Print "不及格"
End Select
A:优秀
B:良好
C:及格
D:不及格
第40题（1.0分）题号:960
要改变控件的宽度，应修改该控件的（）属性。
A:Top
B:Width
C:Left
D:Height
第41题（1.0分）题号:1087
在一个语句行内写多条语句时，语句之间应该用（）分隔。
A:逗号
B:分号
C:顿号
D:冒号
第42题（1.0分）题号:2311
执行下列程序段输出结果是( )x%=2
Do while x<8
Print "*";
x=x+4
Loop
A:*
B:**
C:***
D:****
第43题（1.0分）题号:729
数学表达式3≤x<10在VB中的逻辑表达式为( ) .
A:3<=x<10
B:3<=x ANDx<10
C:x>=3 OR x<10
D:3<=x AND<10
第44题（1.0分）题号:2299
以下说法错误的是
A:注释语句用来对程序或程序中某些语句做注释,使程序便于理解B:注释语句是非执行语句
C:任何字符都可以放在注释行中作为注释内容
D:注释语句不能放在执行语句的后面
第45题（1.0分）题号:936
改变控件在窗体中的上下位置应修改控件的（）属性。
A:Top
B:Left
C:Wide
D:Height
第46题（1.0分）题号:1007
下列的逻辑表达式中不正确的是（）。
A:A
B:X C:1>2 AND 3>1 D:X>Y AND 1=2 三、程序填空共9题（共计90分） 第1题（10.0分）题号:526 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目：在窗体上建立两个文本框Text1(输入数)及Text2(显示结果)， ' 一个命令按钮Command1("判断")。单击按钮时判断Text1中输入的数值 ' 是否是4的倍数。'请在【】处填入正确的内容 '------------------------------------------------------- 'Private Sub Command1_Click() Dim x As Integer '**********SPACE********** If IsNumeric(Text1.Text) = 【?】 Then Text2.Text = "输入错误" Exit Sub End If '**********SPACE********** x = val(【?】) '**********SPACE********** If 【?】 = 0 Then Text2.Text = "是4的倍数" Else Text2.Text = "不是4的倍数" End If End Sub 答案： 1). False 2). Text1.Text 或 Text1 3). x Mod 4 第2题（10.0分）题号:527 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目：窗体上建立了一个文本框Text1，用于显示结果。单击按钮弹出输入对话框录入0-6之间的数值，判断输入值为星期几。请在【】处填入正确的内容 '------------------------------------------------------- Private Sub Command1_Click() Dim x As Integer '**********SPACE********** x = Val(【?】("请输入星期几(0～6)")) '**********SPACE********** Select Case 【?】 Case Is = 0 Text1.Text = "星期日(Sunday)" Case Is = 1 Text1.Text = "星期一(Monday)" Case Is = 2 Text1.Text = "星期二(Tuesday)" Case Is = 3 Text1.Text = "星期三(Wednesday)" Case Is = 4 Text1.Text = "星期四(Thursday)" Case Is = 5 Text1.Text = "星期五(Friday)" Case Is = 6 Text1.Text = "星期六(Saturday)" '**********SPACE********** Case 【?】 Text1.Text = "输入错误" End Select End Sub 答案： 1). InputBox 2). x 3). Else 第3题（10.0分）题号:519 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目：该程序通过For循环计算一个表达式的值，这个表达式是' 1/2+2/3+3/4+4/5 '请在【】处填入正确的内容 '------------------------------------------------------- Private Sub Command1_Click() '**********SPACE********** Dim 【?】 As Double, x As Double Dim n As Long Dim i As Integer '**********SPACE********** sum = 【?】 n = 0 For i = 1 To 5 x = n / i n = n + 1 '**********SPACE********** sum = 【?】 Next Form1.Print sum End Sub 答案： 1). sum 2). 0 3). sum + x 或 x + sum 第4题（10.0分）题号:524 Option Explicit '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目：下面是一个体操评分程序，10位评委，除去一个最 ' 高分和一个最低分，计算平均分 (设满分为 10 分) 。'请在【】处填入正确的内容 '------------------------------------------------------- 'Private Sub Command1_Click() Dim s As Integer Dim Max, Min As Integer Dim i, n, p As Integer '**********SPACE********** 【?】 Min = 10 For i = 1 To 10 n = Val(InputBox(" 请输入分数： ")) '**********SPACE********** If n > Max Then【?】 If n < Min Then Min = n s = s + n Next i '**********SPACE********** s = s - Max 【?】 p = s / 8 Print "最高分："; Max Print "最低分："; Min Print "最后得分："; p End Sub 答案： 1). Max = 0 2). Max = n 3). - Min 第5题（10.0分）题号:531 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------ '题目：打印出 100-999 之间的所有水仙花数 ' 如果一个数的百位，十位，个位数的立方和等于这个数本身 ' 则这个数为水仙花数 '请在【】处填入正确的内容 ------------------------------------------------------- 'Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer '**********SPACE********** For i = 100 To 【?】 '**********SPACE********** a = Int(i / 【?】) b = Int((i - 100 * a) / 10) '**********SPACE********** c = i - 100 * a - 【?】 If a * a * a + b * b * b + c * c * c = i Then Print i End If Next i End Sub 答案： 1). 999 2). 100 3). 10 * b 或 b * 10 第6题（10.0分）题号:41 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目：下面过程max()用于求3个数中最大值，利用这个过程求5 ' 个数中最大值。 '------------------------------------------------------- Private Sub Form_Click() Print "5个数34、124、68、73、352的最大值是：" max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1 End Sub '**********SPACE********** Public Function max(【?】) If a > b Then m = a Else m = b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 答案： 1). max(max1, 73, 352) 2). ByVal a As Integer, ByVal b As Integer, ByVal c As Integer 或 a As Integer, b As Integer, c As Integer 或 a %,b%,c% 或 ByVal a %，ByVal b%，ByVal c% 3). m > c 或 c < m 第7题（10.0分）题号:523 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目：下面的程序用于求三个数中最大数 '请在【】处填入正确的内容 '------------------------------------------------------- Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox("请输入第一个数： ")) b = Val(InputBox(" 请输入第二个数： ")) c = Val(InputBox("请输入第三个数： ")) '**********SPACE********** 【?】 = a min = a '**********SPACE********** If b > max Then 【?】 If b < min Then min = b '**********SPACE********** If 【?】 Then max = c ' If c < min Then min = c Print "最大数为： "; max Print "最小数为："; min End Sub 答案： 1). max 2). max = b 3). c > max 或 max < c 第8题（10.0分）题号:56 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目：代码功能：输入数字1-7,显示其对应的星期几(例:输入 ' 1,显示星期日,如果输入其它内容，一律显示"输入错误") '------------------------------------------------------- Private Sub Command1_Click() dim x as integer dim y as string x=val(text1.text) '**********SPACE********** 【?】 case 1 y="今天是星期日" case 2 y="星期一" case 3 y="星期二" case 4 y= "星期三" case 5 y="星期四" case 6 '**********SPACE********** 【?】 case 7 y= "星期六" '**********SPACE********** 【?】 y = "输入错误" end select Text2.Text = y End Sub 答案： 1). select case x 2). y="星期五" 3). Case Else 第9题（10.0分）题号:57 '------------------------------------------------------- '【程序填空】题目：代码功能：求1!+2!+……10!的值。 '------------------------------------------------------- Private Sub Form_Click() '**********SPACE********** 【?】 s = 1 For I = 2 To 10 t = t * I '**********SPACE********** 【?】 '**********SPACE********** 【?】 Print s End Sub 答案： 1). t = 1 2). s = s + t 3). Next I 或 Next 四、程序改错共10题（共计100分） 第1题（10.0分）题号:454【程序改错】 '------------------------------------------------ '题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。'------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 Private Sub CreateRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10 Print "数据：" For I = 0 To N '**********FOUND********** X(I) = Int(Rnd() * 90) Print X(I); Next I Print Print "排序：" For I = 0 To N - 1 For J = I + 1 To N '**********FOUND********** If X(I) > X(J) Then '**********FOUND********** Temp = X(I) X(J) = X(I) X(I) = Temp End If Next J Print X(I); Next I Print End Sub Private Sub Command1_Click() CreateRND End Sub 答案： 1). X(I) = Int(10 + Rnd() * 90) 或 X(I) = Int(10 + Rnd * 90) 或 x(i)=int(rnd*90+10) 或 x(i)=int(rnd()*90+10) 2). If X(I) < X(J) Then 或 If X(I) <= X(J) Then 或 If X(J) > X(I) Then 或 If X(J) >= X(I) Then 3). temp = X(J) 第2题（10.0分）题号:146 '------------------------------------------------ '【程序改错】'题目：用辗转相除法求两个整数的最大公约数。 '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Function gcd(m As Integer, n As Integer) As Integer Dim r As Integer r = m Mod n Do While r <> 0 '**********FOUND********** n = m n = r r = m Mod n Loop '**********FOUND********** gcd = r End Function Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = InputBox("输入一个整数") b = InputBox("输入一个整数") a = Val(a) b = Val(b) '**********FOUND********** Call gcd(a, b) Print a, b, c End Sub 答案： 1). m = n 2). gcd = n 3). c = gcd(a, b) 第3题（10.0分）题号:463 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：以下程序功能是输入三个数，由大到小排序。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Dim A As Integer Dim B As Integer Dim C As Integer Private Sub Form_Click() Dim nTemp As Integer A = Val(InputBox("Please input first integer", "输入正整数")) B = Val(InputBox("Please input second integer", "输入正整数")) C = Val(InputBox("Please input third integer", "输入正整数")) '**********FOUND********** If A <= C Then nTemp = A A = B B = nTemp End If '**********FOUND********** If B <= C Then nTemp = A A = C C = nTemp End If '**********FOUND********** If A <= B Then nTemp = B B = C C = nTemp End If Print "The integers in order is"; A; B; C End Sub 答案： 1). If A <= B Then 或 If B >= A Then 或 if AA Then 2). If A <= C Then 或 If C >= A Then 或 if A 3). If B <= C Then 或 If C >= B Then 或 If B '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程 ' fact实现 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Form_Click() dim i as integer,s as Long '**********FOUND********** For i = 2 To 8 s = s + fact(i) Next i Print s End Sub '**********FOUND********** Public Function fact( ) dim t as Long dim i as integer t = 1 For i = 1 To n t = t * i Next I '**********FOUND********** fact=i End Function 答案： 1). For i = 2 To 8 Step 2 2). Public Function fact(ByVal n As Integer) 或 Public Function fact(n As Integer) 或 Public Function fact(n%) 或 Public Function fact(ByVal n%) 3). fact = t 第5题（10.0分）题号:135 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：程序功能：求1+2+3……，直到其和超出3000为 ' 止，并输入结果。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Form_Click() Cls Dim i As Integer Dim s As Single i = 0 '**********FOUND********** s =1 Do '**********FOUND********** i = i + 2 s = s + I '**********FOUND********** Loop s > 3000 Print "从1 到:"; i; "的和是"; s End Sub 答案： 1). s =0 2). i = i + 1 3). Loop until s > 3000 或 Loop until 3000 < s 第6题（10.0分）题号:136 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：程序功能为打印下列图形： ' * ' ** ' *** ' **** ' ***** '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Form_Click() Cls Dim i As Integer Dim j As Integer '**********FOUND********** For i = 1 To 7 '**********FOUND********** For j = 1 To 5 Print "*"; '**********FOUND********** Next i Print Next i End Sub 答案： 1). For i = 1 To 5 2). For j = 1 To i 3). Next j 第7题（10.0分）题号:122 '------------------------------------------------ '【程序改错】 二级VB程序设计练习 程序填空 1．下面程序按每行10个数打印出30个介于-300到300间无重复的随机整数，并显示其中的最小值。数组b(30)存放所产生的无重复的随机整数，运行结果如图所示。 Private Sub Command1_Click() Dim b(30), j As Integer, k As Integer Dim y As Integer, x As Single, min As Integer For j = 1 To 30 lb: x = Rnd If x > 0.5 Then y = 1 Else y = -1 b(j) = y * Int(Rnd*301) k = 1 Do While k If b(j) = b(k) Then Goto lb k = k + 1 Loop Print b(j); If j Mod 10=0 Then Print Next j min = b(1) For j = 1 To 30 If b(j) < min Then min=b(j) Next j Print min End Sub 2．下面程序用于对9位的号进行校验。参数mno存放号，mjy存放产生的校验位，tag判断校验正确否，若校验正确tag置1，否则为0。产生校验位的算法为：取号右边的8位之和关于9的模作为校验值，号最左边的一位为校验位。 Public Sub foe(ByVal mno As String, mjy As Integer, Tag As Integer) Dim msum As Integer, m As String msum = 0 for j=2 to 9 m = Mid(mno, j, 1) 程序填空〖第1题〗『程序填空』(1分)(题号:59) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- ' 功能：输入一个数,若大于0,则显示"+"；若小于0， ' 则显示 "-"；若等于"0",则显示"零"。 '------------------------------------------------------- Private Sub Command1_Click( ) x = Val Select Case x '**********SPACE********** Case is > 0 = "+" Case Is < 0 '**********SPACE********** = "-" '**********SPACE********** Case is = = "零" End Select End Sub 答案： 1). Case Is > 0 2). = "-" 3). Case 0 或 Case Else 或 Case Is = 0 〖第2题〗『程序填空』(1分)(题号:60) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能：输入任何一个英文字母x, ' 若x的值为"a","c","d-f" ,则显示x的大写字母； ' 若x的值为"m","o","p-z",则显示x的小写字母； ' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。 '------------------------------------------------------- Private Sub Command1_Click() x = '**********SPACE********** 【】 '**********SPACE********** Case 【】 = UCase(x) Case "m", "o", "p" To "z" = LCase(x) Case Else '**********SPACE********** 【】 End Select End Sub 答案： 1). Select Case x 2). "a", "c", "d" To "f" 3). = Trim(x) + "a" 或 = x + "a" 〖第3题〗『程序填空』 《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0) VB程序阅读题与程序填空题综合练习 1、阅读下面程序，当单击窗体之后，窗体上输出的是。 Private Sub Form_Click( ) Dim i As Integer, j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 10 If j > = 5 Then i = i +4: Exit For j = j + 1 k = k + 1 Next If i > 8 Then Exit For Next Print k End Sub 2、阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别 是和；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是和。 Private Sub Form_Click( ) Dim x As Integer, y As Integer x = 1 : y = 0 Do While x < 3 y = y + x 'A语句 x = x + 1 'B语句 Loop Text1.Text = x Text2.Text = y End Sub 3、下面程序段中，k循环共执行次，在窗体上显示的结果是。 Dim b As Integer, k As Integer b = 1 For k =1 To 5 b = b * k If b > = 15 Then Exit For Else k = k + 1 End If Next k Print k, b 4、以下是按钮cmdl的Click事件过程，求1~100之间的所有质数。质数的个数显示在窗 体上，在划线处填上缺少的内容。 Private Sub cmdl_Click( ) Dim intNum As Integer, int1 As Integer, int2 As Integer intNum = 0 For int1 = For int2 = 2 To int1 \2 If (int1 Mod int2) = 0 Then intNum=1 End If Next If sNum = sNum + 1 End If Next Print End Sub 5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。请在画线处中填入适当的内容。 Private Sub CmdExit_ ( ) End Sub 6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。在画线处填入正确的内容。 Private Sub Comandl_Click( ) Dim int1 As Integer int1 =val (txt1.Text) Select Case int1 Case txt2.Text = "值为0" Case txt2.Text = "值在1和10之间（包括1和10）" Case txt2.Text = "值大于10" 《Visual Basic 程序设计》寒假作业 一、选择题 1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。 A． Sub swap(By Val m，By Val n) B． Sub swap(m, By Val n) C． Sub swap(m, n) D． Sub swap(By Val m, n) 2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。 A．按参数传递 B．按数值传递 C．按地址传递 D．按位置传递 3．Sub过程与Function过程最根本的区别是_______。 … A． Sub过程可以直接使用过程名调用，而Function过程不可以 B． Function过程可以有参数，而Sub过程不可以 C．两种过程参数传递方式不同 D． Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。 A． ByVal B． ByRef C． Value D． reference 5．可以执行“工具”菜单中的_______命令来建立通用过程。 A．添加过程 B．通用过程 C．添加模块 D．添加窗体 】 6．假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是_______。A，2 A． Cir 3,8 B． Call Cir x, y C． Call Cir 2*x, y D． Call Cir (3,8, y) 7. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private x As Integer Private Sub Command1_Click() a = 6: b = 4 Call sub1(a, b) = a ： = b End Sub Private Sub sub1(ByVal x As Integer, ByVal y As Integer) a = x * x b = y * y End Sub 程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23 25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 三、填空题 1、【程序说明】 下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。 Private Sub Form_Click() Dim n As Integer, a As Integer, b As Integer, c As Integer Dim x As Integer For a =0 to 9 '个位数数码 For b = 0 To 9 '十位数数码 For c = ----1---- If a<>b And b<>c And a<>c Then x =a+10*(b+10*c) n = ----2---- ----3---- If n mod 15 = 0 Then Print End If Next c,b,a Print "总共有这样的三位数"; n; "个" End Sub 1、1 to 9 2、n+1或1+n 3、print x; 2、【程序说明】简单 窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。 Private Sub Command1_Click() '确定按钮 Static n As Integer ---const-1----mypwd As String = "123456" '预设密码为自定义常量 n = n + 1 Label2.Visible = True If ---__ text1.text=mypwd____ ---- Then Label2.Caption = "密码正确" Else If n < 3 Then Label2.Caption = "密码错误！" Text1.Text = "" Else --end--3---- End If End If End Sub 1、CONST 2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1 中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型 《程序设计语言VB》单选题 1. Visual Basic是一种面向（）的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2. 在Visual Basic6.0中规定工程文件的扩展名是（）。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是（）。 A. for B. frm C. vbp D. bas 4. 如何使一个标签或按钮控件在运行时不可用（）。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5. 控件的字体可在属性窗口的（）属性中调整？ A. Font B. Color C. Text D. Caption 6. 若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A. Value B. Cancel C. Default D. Enabled 7. 在VB中，记录对象数据的是（）。 A. 方法 B. 事件 C. 属性 D. 语句 8. 在文本框上显示文本的属性是（）。 A. Value B. Text C. Print D. Enabled 9. InputBox函数返回值的类型为（）。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串（视输入的数据而定） 10. 设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11. 下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12. 语句PRINT "25*4"的输出结果是（）。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13. 只能用来显示字符信息的控件是（）。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14. 下列可作为Visual Basic变量名的是（）。 A. A%A B. 4A C. ?xy D. Stemp 15. 下列哪个符号不能作为VB中的变量名（）。 A. timefly B. pass4 C. min4max D. R[8] 16. 在窗体内声明的变量是（）。 A. 局部变量 B. 模块变量 C. 公共变量 D. 任意变量 17. 语句Dim x As Integer作用是:将x定义为（）变量。 A. 单精度型 B. 整型 练习题 一、选择题 1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。 A．Sub swap(By V al m，By V al n) B．Sub swap(m, By V al n) C．Sub swap(m, n) D．Sub swap(By V al m, n) 2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。 A．按参数传递B．按数值传递C．按地址传递D．按位置传递 3．Sub过程与Function过程最根本的区别是_______。 A．Sub过程可以直接使用过程名调用，而Function过程不可以 B．Function过程可以有参数，而Sub过程不可以 C．两种过程参数传递方式不同 D．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。 A．ByV al B．ByRef C．V alue D．reference 5．可以执行“工具”菜单中的_______命令来建立通用过程。 A．添加过程B．通用过程C．添加模块D．添加窗体6．假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是_______。A，2 A．Cir 3,8 B．Call Cir x, y C．Call Cir 2*x, y D．Call Cir (3,8, y) 7．在窗体模块的通用声明中声明变量时，不能使用_______关键字。 A．Dim B．Public C．Private D．Static 8. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private x As Integer Private Sub Command1_Click() a = 6: b = 4 Call sub1(a, b) Label1.Caption = a Label2.Caption = b End Sub Private Sub sub1(ByV al x As Integer, ByV al y As Integer) a = x * x b = y * y End Sub 程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。 A．36和4 B．6和4 C．36和8 D．6和8 9．以下叙述中错误的是_______。 A．不能在标准模块中定义Static型变量。 B．语句Dim a, b As Integer声明了两个整形变量 二、填空题：（每空1分，共20分） 程序代码基础部分： 1．Visual Basic 中的变量按其作用分为__ 、__ 、__ 。全局变量、模块变量（或窗体级变量）、局部变量（过程级变量） 2．声明单精度常量PI 代表3.14159的语句为__ __ __ _。 Const PI!=3.14159或Const PI As Single = 3.14159 3．声明定长为10个字符变量Str v 的语句为： 。 Dim Strv as String*10 4．把条件为1≤X ≤5 写成Visual Basic 表达式为： 。x>=1 and x<=5 5．把条件1≤X<12写成Visual Basic 关系表达式为__ 。 x>=1 and x<12 6．数学表达式（2 π r+e -5 ）lnx 对应的Visual Basic 表达式是：__ 。（2*3.14*r+exp(-5))*Log （x ） 7．数学表达式 c)-b)(s -a)(s -s(s 对应的Visual Basic 表达式是： __ 。sqr （s*（s-a ）*（s-b ）*（s-c ）） 8．数学表达式b a x e r ++-ln )2(8π对应的Visual Basic 表达式是： 。（2*3.14*r+exp(-8)）*log(x)/(a+b) 9．数学表达式5+(a+b)2 对应的Visual Basic 表达式是 。 5+(a+b)^2 10．数学表达式2a （7+b ）对应的Visual Basic 表达式是 。 2*a*（7+b ） 11．数学表达式C ×A B 对应的Visual Basic 表达式是 。 C*A^B 12．写出 Visual Basic 表达式 (Abs(a*b-c^3))^3 对应的数学表达式的形式 。 │ab-c 3 │3 13．写出 Visual Basic 表达式 x^2+3*x*y/(2-y) 对应的数学表达式的形式 。 x 2 +3xy/(2-y) 14．设变量x,y,a,b,的值分别为1，2，3，4，则表达式x<0 or not y<0 and a>0 的值是 __ 。 True 15．设变量x,y,a,b,的值分别为1，2，3，4，则表达式 x+y>a+b and not yA OR Not C>B 的值是 。 false 17．表达式93\7 MOD 2^3的值是 。 5 18．设a=7,b=3,c=4,则表达式a mod 3+b^3/c\5的值是 。 2 19．设a=1,b=2,c=3, 则表达式 a+b>c and b=c 的值是 。 false 20．判断变量X 是不是能被5整除的偶数，其逻辑表达式是 ＿＿＿＿＿＿。 X MOD 5=0 AND X MOD 2=0或X MOD 10=0 21．已知a,b 都是整型变量，如果a 不能被b 整除，则相应的Visual Basic 逻辑表达式是： 。 a MOD b<>0 22．已知a,b,c 都是整型变量，如果a 和b 都大于c, 则相应的Visual Basic 逻辑表达式是： 。 a>c and b>c 23．已知a 、b 、c 都是整型变量，使用Visual Basic 逻辑表达式描述“a 小于b 或小于 c ”： 。 a V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… 程序填空 〖第1题〗『程序填空』(1分)(题号:59) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- ' 功能：输入一个数,若大于0,则显示"+"；若小于0， ' 则显示 "-"；若等于"0",则显示"零"。 '------------------------------------------------------- Private Sub Command1_Click( ) x = Val(Text1.Text) Select Case x '**********SPACE********** Case is > 0 Label1.Caption = "+" Case Is < 0 '**********SPACE********** Label1.Caption = "-" '**********SPACE********** Case is = Label1.Caption = "零" End Select End Sub 答案： 1). Case Is > 0 2). Label1.Caption = "-" 3). Case 0 或 Case Else 或 Case Is = 0 〖第2题〗『程序填空』(1分)(题号:60) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能：输入任何一个英文字母x, ' 若x的值为"a","c","d-f" ,则显示x的大写字母； ' 若x的值为"m","o","p-z",则显示x的小写字母； ' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。'------------------------------------------------------- Private Sub Command1_Click() x = Text1.Text '**********SPACE********** 【?】 '**********SPACE********** Case 【?】 Label1.Caption = UCase(x) Case "m", "o", "p" To "z" Label1.Caption = LCase(x) Case Else '**********SPACE********** 【?】 End Select End Sub 答案： 1). Select Case x 2). "a", "c", "d" To "f" 3). Label1.Caption = Trim(x) + "a" 或 Label1.Caption = x + "a" 〖第3题〗『程序填空』(1分)(题号:36) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- 第1题'功能：求1!+2!+ (10) 的值。 Private Sub Form_Click() '**********SPACE********** 【?】 s = 1 For I = 2 To 10 t = t * I '**********SPACE********** 【?】 '**********SPACE********** 【?】 Print s End Sub 答案：1). t = 1 2). s = s + t 3). Next I 或Next 第1题功能：下面的程序用于求三个数中最大数 Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox("请输入第一个数：")) b = Val(InputBox(" 请输入第二个数：")) c = Val(InputBox("请输入第三个数：")) '**********SPACE********** 【?】= a min = a '**********SPACE********** If b > max Then 【?】 If b < min Then min = b '**********SPACE********** If 【?】Then max = c If c < min Then min = c Print "最大数为："; max Print "最小数为："; min End Sub 答案：1). Max 2). max = b 3). c > max 或max < c 第1题（10.0分）题号:504'【程序填空】 '功能：写出程序运行后，单击窗 体，Form1上显示的内容 ' sum 函数的功能为累加 求和 ' isum = 1 ' isum = 3 ' isum = 6 ' isum = 10 ' isum = 15 '---------------------------------------- --------------- Private Sub Form_Click() Dim I As Integer, isum As Integer '**********SPACE********** For I = 1 To 【?】 isum = sum(I) '**********SPACE********** Form1.Print "isum ＝ " 【?】 Next I End Sub Private Function sum(n As Integer) Static j As Integer '**********SPACE********** 【?】j + n sum = j End Function 答案：1). 5 2). + isum 或& isum 3). j = 第1题（10.0分）题号:507 Option Explicit【程序填空】 '功能：本程序实现功能：将 顺序文本文件“MYFILE.TXT” 的 ' 内容一个字符一个字 符地读入文本框txtTest中 '---------------------------------------- --------------- Private Sub Form_Click() Dim InputData As String * 1 txtTest.Text = "" '**********SPACE********** Open App.Path & "\MYFILE.TXT" For 【?】As #1 '**********SPACE********** Do While 【?】EOF(1) Input #1, InputData '**********SPACE********** txtTest.Text = txtTest.Text + 【?】 Loop Close #1 End Sub 答 案：1). Input 2). Not 3). InputData 第1题（10.0分）题号:57' 【程序填空】 '功能：求1!+2!+……+10!的值。 '---------------------------------------- --------------- Private Sub Form_Click() '**********SPACE********** 【?】 s = 1 For I = 2 To 10 t = t * I '**********SPACE********** 【?】 '**********SPACE********** 【?】 Print s End Sub 答案： 1). t = 1 2). s = s + t 3). Next I 或Next 第1题（10.0分）题号:502' 【程序填空】 '功能：用输入对话框输入x，根 据如图公式计算对应的y，VB程序填空复习题
VB题库程序填空
《VB程序设计》考试题型练习 答案
vb程序阅读题与填空题
VB--过程练习题
vb程序设计试题(含答案)
vb练习题及答案.doc
VB程序设计 试题与答案-1
vb程序填空题
[整理]VB程序设计复习题及答案.
程序的设计语言VB单项选择题与答案
VB 过程练习题
VB-填空题及答案
VB程序设计试题及答案一
VB题库—程序填空
VB程序填空
相关主题
文本预览