二、填空题
1、VB是建立在BASIC语言基础上的_可视__化编程语言或编程环境。
2、VB程序一般以解释方式运行,也可编译成扩展名为_exe__的文件以编译方式运行。
3、在属性窗口,属性的显示方式分为_按字母顺序__和 “按分类顺序”。
4、工程资源管理器窗口顶部有3个按钮,分别为_查看代码__、“查看对象”和“切换文件夹”。
5、要新建工程时,在模块的“通用声明”段自动加入Option Explicit语句,应对_工具__菜单的_选项__的_编辑器__选项卡进行相应选项的选择。
6、对象的属性是指_对象的性质,来描述和反应对象特征的参数__。
7、在刚建立工程时,使窗体上的所有控件具有相同的字体格式,应对_form_ 窗体_的_fon__属性进行设置。
8、对文本框的ScrollBars属性设置为2(有垂直滚动条),但没有垂直滚动条显示,是因为没有将_MultiLine__属性设置为True。
9、在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置,但运行后没有效果,原因是这些属性_在运行时设计是无效的__。
10、当对命令按钮的Picture属性装入.bmp图形文件后,选项按钮上并没有显示所需的图形,原因是没有将_style__属性设置为1(Graphical)。
11、若已建立了Form1、Form2两个窗体,默认启动窗体为Form1。通过__工程_菜单的_工程属性__的_通用__选项卡,可将启动窗体设置为Form2.在程序中若要显示Form1窗体,则执行_Forml,show__语句。
12、在文本框中,通过_selstart__属性能获得当前插入点所在的位置。
13、要对文本框中已有的内容进行编辑,按下键盘上的按键,就是不起作用,原因是设置了_locked__属性值为True。
14、在窗体上已建立多个控件如Text1、Label1、Command1,若要使程序一运行时焦点就定位在Command1控件上,应对Command1控件设置_TebIndex__属性的值为__0_。
一、选择题
1、在一行语句内写多条语句时,每个语句之间用(B )符号分隔。A., B.: C.、 D.;
2、一条语句要在下一行继续写,用(C )符号作为续行符。A.+ B.- C. D.…
3、下面( A)是合法的变量名。A.X_yz B.123abc C.intege D.X-Y
4、下面( D )是不合法的整常数。A.100 B.&O
5、下面( B )是合法的字符常数。A.ABC$ B.”ABC C.ˋABCˊ D.ABC
6、下面( A )是合法的单精度型变量。A.num! B.sum% C.xinte$ D.mm#
7、下面( D)是不合法的单精度常数。A.100! B.
8、表达式16 / 4 – 2 ^ 5 * 8 / 4 MOD 5 \ 2的值为(B )。
A.14 B
9、数学表达式3≤ x ﹤10在VB中的逻辑表达式为( B )。A. 3≤x﹤10 B. 3<= xAND x ﹤10 C.x >= 3 OR x ﹤10 D.3<= x AND ﹤10
10、\、/、Mod、* 4个算术运算符中,优先级别最低的是( C )。A.\ B./ C.Mod D.*
11、与数学表达式ab/3cd 对应,不正确的VB算术表达式是( D )。A.a*b/( 3 * c * d )B.a/3 * b /c/d C.a * b/3/c/d D.a * b/3 * c * d
12、Rnd函数不可能为下列( B )值。A.0 B
13、Int(198.555*100+0.5)/100的值( C )。A.198 B.
14、已知A$="12345678",则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为( B )。A.123456 B
15、Msgbox函数返回值的类型是( A )。A.整型数值 B.字符串 C.变体 D.数值或字符串
16、InputBox函数返回值的类型是( B )。A.整型数值 B.字符串 C.变体 D.数值或字符串
17、表达式Len(“123程序设计ABC”)的值是( A )。A.10 B.14 C.20 D.17
18、以下关系表达式中,其值为False的是( A )。A."ABC">"AbC" B."女"<"男" C."BASIC"=UCase("basic") D."123"<"23"
19、下面正确的赋值语句是( C )。A.x+y=30 B.y=π*r*r C.y=x+30 D.3y=x
20、为了给x、y、z三个变量赋初值1,下面正确的赋值语句是( A )。A.x=1 :y=1:z=1 B.x=1,y=1,z=
21、赋值语句:a=123 + Mid("123456",3,2)执行后,a变量中的值是(D )。A."12334" B.123 C.12334 D.157
22、赋值语句:a=123 & Mid("123456",3,2)执行后,a变量中的值是( A A."12334" B.123 C.12334 D.157
23、语句:Print "Sqr(9)="; Sqr(9)的输出结果是( B )。A.Sqr(9)=Sqr(9) B.Sqr(9)=3 C."3"=3 D.3=Sqr(9)
24、若要处理一个值为50000的整数,应采用哪种VB基本数据类型描述更合适。( B )A.Integer B.Long C.Singe D.String
二、填空题
1、在VB中,1234、123456&、1.2345E+5、1.2345D+5 4个常数分别表示_整形_、_单精度型____、_长整形____和__双精度型___类型。
2、整型变量x中存放了一个两位数,要将两位数交换位置,例如,13变成31,实现的表达式是____、(x Mod 10)* 10 + x \ 10_。
3、数学表达式Sin15°+√ ̄x+e3 ̄/|x-y|-㏑(3x)的VB算术表达式为_Sin(15 * 3.14 / 180)+ Sqr(x + Exp(3)) / Abs(x - y)- Log(3 * x)____。
4、表示x是5的倍数或是9的倍数的逻辑表达式为 __x Mod 5 = 0 Or x Mod 9 = 0___。
5、已知a=3.5,b=5.0,c=2.5,d=true,则表达式:a>=0 And a+c>b+3 Or Not d的值是_False____。
6、Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别是__-4___、__3___、___-3__、___3__、__-4___、__4___。
7、表达式Ucase(Mid(“abcdefgh”,3,4))的值是__CDEF___。
8、在直角坐标系中,x、y是坐标系中任意点的位置,用x与y表示在第一或第三象限的表达式是__x > 0 And y > 0 Or x < 0 And y < 0___。
9、计算现在起离你毕业还有多少个星期的函数表达式是__DateDiff("d" , Now ,#
10、计算现在起离北京奥运会(以
11、表示s字符变量是字母字符(不区分大小写字母)的逻辑表达式为__Ucase(s)>= "A" Ucase(s)<= "Z"___。
一、选择题
1、VB提供了结构化程序设计的三种基本结构,三种基本结构是(D )
A、递归结构、选择结构、循环结构
B、选择结构、过程结构、顺序结构
C、过程结构、输入输出结构、转向结构
D、选择结构、循环结构、顺序结构
2、结构化程序由三种基本结构组成,下面属于三种基本结构之一的是( B )A、递归结构 B、选择结 C、过程结构 D、输入输出结构
3、下面程序段运行后,显示的结果是(A )
Dim x
If x Then Print x Else Print x+1
A、1 B、0 C、-1 D、显示出错信息
4、对于语句If x=1 Then y=1,下列说法正确的是( C )
A、x=1和 y=1 均为赋值语句
B、x=1和 y=1 均为关系表达式
C、x=1为关系表达式,y=1为赋值语句
D、x=1为,赋值语句,y=1为关系表达式
5、下面程序段,运行后显示的结果是( A )
Dim x
x=Int(Rnd)+5
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
Case 3
Print "通过"
Case Else
Print "不通过"
End Select
A、优秀 B、良好 C、通过 D、不通过
6、下面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
7、 下面程序段表示求两个数中的大数,( D )不正确。
A、Max = IIf (x > y, x, y) B、If x > y Then Max = x Else Max = y
C、Max = x D、If y > = x Then Max = y
If y >= x Then Max = y Max = x
8、下面语句执行后,变量w中的值是( C )
w = Choose ( Weekday("2007,5,1"), "Red" , " Green ", "Blue ", "Yellow" )
A、Null B、"Red" C、"Blue" D、"Yellow"
一、选择题
1、以下(B )是正确的。
A、For x = 1 To Step 10 B、For x = 3 To - 3 Step - 3
… …
Next x Next x
C、For x = 1 To 10 B、For x = 3 To 10 Step 3
re:… …
Next x Next y
If i = 10 Then GoTo re
2、下列循环结构能正常结束循环的是( C )
A、i = 5 B、i = 1 C、i = 10 D、i = 6
Do Do Do Do
i = i + 1 i = i + 2 i = i + 1 i = i - 2
Loop Until i < 0 Loop Until i = 10 Loop Until i > 0 Loop Until i = 1
3、下面程序段的运行结果为( B )
For i = 3 To 1 Step -1
Print Spc (5 - i);
For j = 1 To 2 * i - 1
Print " * ";
Next j
Print
Next i
A、 * B、* * * * * C、* * * * * D、* * * * *
* * * * * * * * * * * *
* * * * * * * *
4、当在文本框中输入“ABCD”4个字符时,窗体上显示的是(D )
Private Sub Text1_Change( )
Print Text1
End Sub
A、ABCD B、A C、AABABCABCD D、A
B AB
C ABC
D ABCD
5、下列那个程序段不能分别正确显示1!、2!、3!、4!的值( B )
A、For i = 1 To 4 B、For i = 1 To 4
n = 1 For j = 1 To i
For j = 1 To i n = 1
n = n * j n = n * j
Next j Next j
Next i Next i
C、n = 1 D、n = 1
For j = 1 To i j = 1
n = n * j Do While j < =4
Print n n = n * j
Next j Print n
j = j + 1
6、下列关于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 循环至少执行一次
7、下面的程序段的运行结果为( D )
Private Sub Command1_Click( )
For i = 1 To 5
n = 0
For j = i To 5
n = n + 1
Next j
Next i
Print n
End Sub
A、10 B、5 C、15 D、1
1、要使下列For语句循环执行20次,循环变量的初值应是________
For k = _______ To - 5 Step -2
2、下面程序段显示________ 个" * "
For i = 1 To 5
For j = 2 To i
Print " * "
Next j
Next i
3、下列第40号语句共执行了________ 次,第41号语句共执行了________ 次。
30 For j = 1 To 12 Step 3
40 For k = 6 To 2 Step -2
41 MsgBox (j & " " & k )
42 Next k
43 Next j
4、输入任意长度的字符串,要求将字符顺序倒置。例如,将输入的“ABCDEFG”变换成“GFEDCBA”。
Private Sub Command1_Click()
Dim a$ , I% , c$ , d$ , n%
a = InputBox ("输入字符串")
n = _______
For I = 1 To _______
c = Mid (a ,I ,1)
Mid(a ,I ,1) = _______
________ = c
Next I
Print a
End Sub
5、找出被3、5、7除,余数均为1的最小的5个正整数。
Private Sub Command1_Click( )
Dim CountN% ,n%
CountN = 0
n = 1
Do
n = n + 1
If ________ Then
Print n
CountN = CountN + 1
End If
End Sub
6、有一个长阶梯,如果每步跨2阶最后剩1阶,如果每步跨3阶最后剩2阶,如果每步跨4阶最好剩3阶,如果每步跨5阶最后剩4阶,如果每步跨6阶最后剩5阶,只有当如果每步跨7阶时恰好走完,显示这个阶梯至少要有多少阶。
【提示】
利用其肯定是7的倍数这个条件,然后根据同时满足除n 余m(n = 2,3,4,5,6;m =1,2,3,4,5)的逻辑关系即可。
Sub Command1_Click( )
Dim n% , m%
For n = 7 To 10000 Step 7
If n Mod 2 = 1 And ________ Then
Print n
________
End If
Next n
End Sub
7、期末某班在一周6天内考三门分别为x 、y、z的考试课程,规定一天只能考一门,课程依次按先考x,后考y,最后考z,最后一门课程最早周五考。用计算机排考试,列出满足条件的方案和方案数。
Sub Command1_Click( )
Dim x % , y% , z% , n%
n = 0
For x = 1 To 4
For y = ________ To 5
For z = 5 To 6
If _______ And y < z Then
Print x & Space(9) & y & Space(9) & z
________
End If
Next z
Next y
Next x
_______ "满足条件的方案数为;" & n
End Sub
8、某次大奖赛,有7个评委打分,如下程序对一名参赛者,输入7个评委的打分分数,去掉一个最高分、一个最低分后,求出平均分为该参赛者的得分。 Sub Command1_Click( Dim mark! ,aver! ,i% ,max1! ,min1! aver = 0 For i = 1 To 7 mark = InputBox ("输入第" & "位评委的打分") If i = 1 Then max1 = mark : ________ Else If mark < min1 Then
_______ ElseIf mark > max1 Then ___End If
_______Next aver = ________Print End Sub
9、下面程序的功能是判断100以内的孪生素数。所谓“孪生素数”是指两个数相差2的素数对,例如:3和5、11和13、29和31等。Private Sub Command1_Click Dim p1 As Boolean ,p2 As Boolean, i%, j p1 = True For i = 5 To 97 Step 2 For j = 2 To If i Mod j = 0 Then ________
Ne If j > Sqr(i) Then p2 = True Else p2 = False v If _______ Then
Print i - 2, i
End If
p1 = ________
Next i
End Sub
填空题答案
1、33
2、10
3、4、12
4、Len(a)、Int(n\2)、Mid(a,n-I+1,1)、Mid(a,n-I+1,1)
5、n Mod 3 = 1 And n Mod 5 = 1 n Mod 7 = 1、Until CountN = 5 或 While CountN < 5
6、n Mod 3 = 2 And n Mod 4 = 3 And n Mod 5 =4 And n Mod 6 = 5、Exit For
7、x + 1 、x <> y And y <> z And x <> z、n = n + 1、Label1 & =
8、min1 = mark、min1 = mark、max1 = mark、aver = aver + mark、(aver - max1 -min1)/ 5
9、Exit For 、 p1 And p2 、p2
1、如下数组声明语句,( B )正确。
A、Dim a[3,4] As Integer B、Dim a(3,4) As Integer
C、Dim a(n,n) As Integer D、 Dim a(3 4) As Integer
2、要分配存放如下矩阵的数据,( C )数组声明语句能实现(不能浪费空间)。
{1.1 2.2 3.3
4,4 5.5 6.6
7.7 8.8 9.9}
A、Dim a(9) As Single
B、Dim a(3,3) As Single
C、Dim a(-1 To 1, -5 To -3) As Single
D、 Dim a(-3 To -1,5 To 7) As Integer
3、如下数组声明语句,则数组a包含元素的个数有( A )
Dim a(3, -2 To 2 , 5)
A、120 B、75 C、60 D、13
4、以下程序的输出结果是( D )
Dim a
a = Array(1,2,3,4,5,6,7)
For i = Lbound(a) To Ubound(a)
a(i) = a(i) * a(i)
Next i
Print a(i)
A、49 B、0 C、不确定 D、程序出错
5、下列语句中(假定变量n有值),能正确声明可调数组的是(C )
A、Dim a() As Integer B、Dim a() As Integer
Redim a(n) Redim a(n) As String
C、Dim a() As Integer D、 Dim a(10) As Integer
Redim a(3,4) Redim a(n+10)
Redim Preserve a(4,4)
6、在窗体的通用声明段自定义了数据类型Students,下列(A )定义方式是正确的。
A、Private Type Students B、Type Students
Name As String *10 Name As String *10
Studno As Integer Studno As Integer
End Type End Type
C、Type Students D、 Type Students
Name String * 10 Name As String *10
Studno Integer Studno As Integer
End Type End Type
7、以下程序的输出结果是( D )
Option Base 1
Private Sub Command1_Click( )
Dim a, b(3,3)
a= Array (1,2,3,4,5,6,7,8,9)
For i = 1 To 3
For j = 1 To 3
b (i , j ) =a(i * j)
If (j >= i ) Then Print Tab (j * 3); Format (b(i,j),"###");
Next j
Next i
End Sub
联系客服