VB程序选择题
1、程序运行后，在Text1和Text2中分别输入123和321，然后单击命令按钮，则输出结果为(C )。
Private Sub Command1_Click()
a = Text1.Text + Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text1 Text = "" : Text2 Text = ""
End Sub
A) 444 B) 321123 C) 123321 D) 空
2、下列程序的执行结果是( C )。
Dim A, B, C, D, E
A = 20 :
B = 80 :
C = 70 :
D =
30
E = A + B > 160 Or (B * C > 200 And Not D > 60) Print E
A) 70 B) 80 C) True D) False
3、若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为( A )。
If a > 5 Then
If b < 4 Then c = a - b Else c = b - a
Else
If b > 3 Then c = a * b Else c = a Mod b
End If
A) 2 B) - 1 C) 1 D) 6
4、运行程序，若输入1，输出结果为( C )。
Private Sub Form_Click()
x = -1
t = InputBox(“请输入一个数：”)
Select Case t
Case Is > 0
Y = x + 1
Case Is = 0
Y = x + 2
Case Else
Y = x + 3
End Select
Print x;Y
End Sub
A) 1 4 B) 1 3 C) -1 0 D) -1 1
5、下列程序段的执行结果为( C )。
X = 5 : Y = -20
If Not x > 0 Then
x = y - 3
Else
y = x + 3
Print x - y; y - x
End If
A) 3 -3 B) 5 -8 C) -3 3 D) 25 -25
6、执行下列程序片段结果是( D )。
a = 5 :
b = 9 :
c = 14
a = a +
b :
c = c - b
If a - c > b - c Then a = b + c
If a - b > b - c Then b = a - c
Print a,b,c
A) 5 9 14 B) 23 9 14 C) 5 -9 9 D) 14 9 5
7、下列程序的输入值为5时，其运行结果为( C )。
Dim a as Integer
A = InputBox("请输入a的值")
Select Case A
Case 1 To 4
Print "D"
Case 5 To 10
Print "C"
Case 11 To 14
Print "B"
Case Else
Print "A"
End Select
A) A B) B C) C D) D
8、下列程序的执行结果为( A )。
A = 100 : b = 50
If a < b Then a = a - b Else b = b + a
Print a, b
A) 100 150 B) 50 50 C) 150 50 D) 150 150
9、以下错误的For……Next结构是( D )。
A) For k = 1 To 10 B) For x=10 To 3 Step -3
…………
Next k Next x
C) For x = 1 To 10 D) For x=3 To 10 Step -3
…………
Next x Next x
10、下列能正常结束循环的是( c )。
A) i = 5 B) i = 1
Do Do
i = i + 1 i = i + 2
Loop Until i < 0 Loop Until i = 10 C) i = 10 D) i = 6
Do Do
i = i + 1 i = i - 2
Loop Until i > 0 Loop Until i = 1 11、程序的执行结果为( D)。
Dim k As Integer
n = 5 : m = 1 : k = 1
Do Until k > n
m = m * 2
k = k + 1
Loop
Print m
A) 26 B) 28 C) 30 D) 32
12、如下事件过程运行结果是(C )。
Private Sub Form_Load()
Text1.Text = "" : Text1.SetFocus
For i = 1 To 10
Sum = Sum + i
Next i
Text1.Text = Sum
End Sub
A) 文本框Text1中输出55 B) 在文本框Text1中输出0 C) 出错 D)文本框Text1中输出不定值13、下列程序段的运行结果是( B )。
Private Sub Command1_Click()
Dim n as Integer
i = 21 : n = 3
Do While I > n
i = i - n
Loop
Print I
End Sub
A) 21 B) 3 C) 4 D) 24
14、程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、 -1，则输出结果为( C )。
Prevate Sub Command1_Click()
x = 0
Do Until x = - 1
a = Val(InputBox(“请输入A的值”))
b = Val(InputBox(“请输入B的值”))
x = Val(InputBox(“请输入x的值”))
a = a +
b + x
Loop
Print a
End Sub
A) 4 B) 3 C) 2 D) 1
15、下列程序的执行结果是( D )。
M1 = 1 : m2 = 1
Do While m2 <> 6
m1 = m1 * m2
m2 = m2 + 1
Loop
Print m1
A) 1 B) 2 C) 110 D) 120
16、下列程序段的执行时，输出结果是( C )。
For a = 0 To 1
For b = 1 To 2
For c = 1 To 3
I = I + 1
Next c
Next b
Next a
Print I
A) 10 B) 11 C) 12 D) 13
17、执行下面的程序段后，s的值为( A )。
S = 5
For I = 2.6 To 4.9 Step 2
S = S + 1
Next I
A) 7 B) 9.9 C) 7.6 D) 8
18、下面程序段的输出结果是( D )。
P = 0 : s = 0
Do
p = p + 2
s = s + p
Loop While p < 11
Print s
A) 39 B) 40 C) 41 D) 42
19、程序运行后，单击命令按钮，输出结果是( D)。
Private Sub Command1_Click()
For I = 1 To 4
x = 4
For j = 1 To 3
x = 3
For k = 1 To 2
x = x + 6
Next k
Next j
Next I
Print x
End Sub
A) 9 B) 13 C) 14 D) 15
20、单击窗体，程序的运行结果是( D )。
Private Sub Form_Click()
Text1.Text = "" : Text1.SetFocus
For I = 1 To 10
Sum = Sum + I
Next I
Text1.Text = Sum
End Sub
A) 0 B) 35 C) 45 D) 55
21、程序运行后，在文本框中输入“789”，然后双击列表框中的"456"，则输出结果为( D )。
Private Sub Form_Load ()
List1.AddItem"357" : List1.AddItem"246" : List1.AddItem"123" : Listl.AddItem"456"
Text1.Text = ""
End Sub
Private Sub List1_ DblClick ( )
a = List1.Text
Print a + Text1.Text
End Sub
A) 123456 B) 357246 C) 789456 D) 456789
22、下列程序的执行结果为( D )。
Dim intsum As Integer
Dim I As Integer
For I = 20 To 5 Step -5
intsum = 0
intsum = intsum + I
Next I
Print intsum
A) 50 B) 0 C) 20 D) 5
23、以下程序的运行结果是( A )。
Private Sub Command5_Click()
Dim x As Integer
For I = 1 To 20
If I Mod 5 = 0 Then
x = x + I
End If
Next I
Print x
End Sub
A) 50 B) 40 C) 30 D) 20
24、执行程序后，变量x的值为( B )。
K = 10 : x = 0
Do While k >= 5
x = x + 2
k = k - 1
Loop
Print x
A) 10 B) 12 C) 14 D) 16
25、执行程序后，在文本框Text1中输出的是( C )。
Private Sub Form_Load(C)
Text1.Text = "" : Sum = 0
For I = 1 To 10 Step 0.5
Sum = Sum + I
Next I
Text1.Text = I
End Sub
A) 9.5 B) 10 C) 10.5 D) 11
26、执行如下程序段后，Intsum的值为(A )。
Intsum = 0
For I = 1 To 10 Step 2
For j = 2 To 6 Step 2
If(I mod j) = 0 Then intsum = intsum + j Next j
Next I
A) 0 B) 22 C) 44 D) 55
27、下列程序执行后，n的值为(B )。
N = 0
For I = 1 To 100
If I mod 4 = 0 Then n = n + 1
Next I
A) 15 B) 25 C) 30 D) 35
28、下列程序的执行结果是( B )。
Dim s,n as Integer
S = 0 : n = 1
Do Until n > 5
S = S + n : n = n + 1
Loop
Print s
A) 10 B) 15 C) 20 D) 25
29、下列的程序片段，输出S的值为( C )。
For I = 1 To 2
For j = 10 To 12
s = I * j
Next j
Next I
Print s
A) 20 B) 22 C) 24 D) 26
30、有下列语句，其执行的结果为( A )。
Private Sub Command2_Click()
x = 5 : y = 10
Do
x = x * y
y = y + 1
Loop Until y > 10
Print x
End Sub
A) 50 B) 45 C) 40 D) 35
31、执行下列程序段后，X的值为( C )。
X = 5
For I = 1 To 20 Step 5
X = X + I \ 5
Next I
Print X
A)20 B)50 C)11 D)100
32、下列程序段，输出结果为( C )。
b = 1
Do Until b > 10
b = b * (b + 1)
Loop
Print b
A) 38 B) 40 C) 42 D) 44
33、程序的运行结果是(B )。
Private Sub Form_load
Text1.Text = "" : t = 1
For k = 10 To 6 Step - 2
t = t * k
Next k
Text1.Text = t
End Sub
A) 240 B) 480 C) 960 D) 1920
34、下列命令按纽事件过程执行后，输出的结果是( B )。
Private Sub Command1_Click()
For m = 1 To 10 Step 2
a = 0
For n = 0.5 To 9.5 Step 2
a = a + 2
Next n
Next m
Print a
End Sub
A) 8 B) 10 C) 12 D) 14
35、运行程序后，x和i的值分别是( C )。
x = 2
For i = 1 To 12 Step 2
x = x + i
Next i
Print x,i
A) 27 11 B) 38 11 C) 38 13 D) 27 13
36、执行程序段后，在标签框内将显示( B )。
Private Sub command1_click()
For I = 21 To 10 Step -3.5
s = s + i
Next i
Label1.Caption = int( s )
End Sub
A) 60 B) 63 C) 63.5 D) 64
37、以下程序输出的结果为( C )。
X = 1 : y = 4
Do While y <= 4
x = x * y
y = y + 1
Loop
Print x
A) 24 B) 6 C) 4 D) 1
38、循环执行的次数为( D)。
For I = 1 To 3
For j = 5 To 1 Step - 1
Print I + j
Next j
Next I
A) 12 B) 13 C) 14 D) 15
39、以下程序段执行后变量n 的值为( B )。
n = 0
For I = 1 To 20 Step 5
n = n + 1
Next I
A) 50 B) 4 C) 15 D) 5
40、有如下语句，执行后该段语句的循环次数是( A )。
Dim s,k,j as Integer
For k = 1 To 3
For j = 3 To 1 Step -1
S = k * j
Next j
Next k
A) 9 B) 10 C) 3 D) 4
41、下列循环语句将执行( A )次。
A = 1000
DO
Print a
A = A + 1
Loop While a <= 100
A) 1 B) 10 C) 100 D) 1000
42、有如下程序段，执行完该程序后，变量x的值为( C )。
K = 0
Do Until k >= 3
x = x + 2
k = k + 1
Loop
A) 2 B) 4 C) 6 D) 8
43、程序运行后，单击命令按钮，窗体上显示的是( C )。
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
A) 1 3.4 5.8 B) 1 4 6 C) 1 3 5 D) 无输出
44、执行下面的程序段后，x 的值为( A )。
X = 5
For I = 1 To 20 Step 2
x = x + I \ 5
Next I
A) 21 B) 22 C) 23 D) 24
45、下列程序段的执行结果是( D )。
Dim A(5, 5)
For I = 1 To 3
For j = 1 To 4
A(I, j) = I * j
Next j
Next I
For N = 1 To 2
For m = 1 To 3
Print A(m, N);
Next m
Next N
A) 1 2 3 4 5 6 B) 2 3 4 5 6 7
C) 3 4 5 6 7 8 D) 1 2 3 2 4 6
46、程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为( A )。
Private Sub Command1_Click()
Dim n() As Integer, a,b As Integer
a = InputBox("输入第一个数")
b = InputBox("输入第二个数")
ReDim n(a To b)
For k = Lbound(n,1) To Ubound(n,1)
n(k) = k
Print n(k);
Next k
End Sub
A) 2 3 B) 0 1 C) 1 2 D) 1 3
47、程序运行后，单击命令按钮，输出的结果为( B )。
Private Sub Command1_Click( )
Dim a( )
A = Array(7,8,9,10)
For k = 0 To 3
S = s + a(k)
Next k
Print s
End Sub
A) 24 B) 34 C) 39 D) 40
48、程序运行后，单击命令按钮，输出结果是( B )。
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
A) 3 B) 4 C) 5 D) 6
49、程序运行后，单击命令按纽，输出结果为( B )。
Private Sub Command1_Click( )
Dim a
A = array(1,2,3,4,5)
For k = 1 To 4
S = s + a(k)
Next k
Print s
End Sub
A) 10 B) 14 C) 15 D) 120
50、运行程序，单击命令按钮，输出结果是( B )。
Option Base 1
Private Sub Commandl_Click()
Dim a
a = Array(1,2,3,4)
j = 1
For I = 4 To 1 Step - 1
s = s + a(I) * j
j = j * 10
Next I
Print s
End Sub
A) 4321 B) 1234 C) 1000 D) 4000
51、下列程序段的执行结果为( C )。
Dim A(10, 10)
For I = 2 To 4
For J = 4 To 5
A(I, J) = I * J
Next J
Next I
Print A(2, 5) + A(3, 5) + A(4, 5)
A) 25 B) 35 C) 45 D) 42
52、程序执行后，m1,m2的值为( D )。
Option Base 1
Dim a As Variant
Private Sub Form_KeyPress(KeyAscii As Integer)
a = Array(237,126,87,48,498)
m1 = a(1) : m2 = 1
If KeyAscii = 13 Then
For I = 2 To 5
If a(I) > m1 Then
m1 = a(I)
m2 = I
End If
Next I
End If
Print m1; m2
End Sub
A) 237 1 B) 48 4 C) 126 2 D) 498 5
53、单击命令按钮之后，下列程序代码的执行结果为( C )。
Private Function P(N As Integer)
For i = 1 To N
s = s + i
Next i
P = s
End Function
Private Sub Command1_Click()
S = P(2) + P(3) + P(4) + P(5)
Print S;
End Sub
A) 20 B) 24 C) 34 D) 35
54、下列程序的执行结果是( B )。
Private Function P(N As Integer)
For I = 1 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
A) 9 B) 10 C) 11 D) 12
55、程序运行后，单击命令按钮，输出结果为( B )。 Sub inc(a As Integer)
Static x As Integer
X = x + a : Print x;
End Sub
Private Sub Command1_Click()
inc 2
inc 3
inc 4
End Sub
A) 2 3 4 B) 2 5 9
C) 4 3 2 D) 9 5 2
56、程序运行后，单击命令按钮，在输入对话框中输入"234"，输出结果为( C )。
Function fun(ByVal num As Long) As Long
Dim k As Long
k = 1: num = Abs(num)
Do While num
k = k * (num Mod 10)
num = num \ 10
Loop
fun = k
End Function
Private Sub Command1_Click()
Dim n As Long, r As Long
n = InputBox("请输入一个数")
r = fun(n)
Print r
End Sub
A) 234 B) 23 C) 24 D) 25
57、程序运行后，单击命令按钮，在窗体上显示是( C )。
Sub SS(ByVal X, ByVal Y, Z)
X = X + 2 : Y = Y * 3 : Z = X * Y End Sub
Private Sub Command1_Click()
A = 1 :
B = 2 :
C = 3
Call SS(A,B,C)
Print A;B; C
End Sub
A) 3 6 18B) 1 2 3
C) 1 2 18D) 3 6 3
58、单击命令按钮，输入数据5,则运行结果为( D )。
Function fact(x as Integer) as long
Dim p As Long ,I As Integer
p = 1
For I = 1 To x
p = p * I
Next I
fact = p
End Function
Private Sub Command1_Click()
I% = Val(InputBox("请输入数据"))
a = fact( BI )
Print a
End Sub
A) 0 B) 1 C) 24 D) 120
59、程序运行后，单击命令按钮，输出结果为(B )。
Sub S(x As Single, y As Single)
t = x
x = t * y
y = t / y
End Sub
Private Sub Commandl_Click ( )
Dim a As Single , b As Single
a = 5 :
b = 4
S a,b
Print a;b
End Sub
A) 10 1.25 B) 20 1.25 C) 20 1 D) 20 2
60、单击命令按钮，程序的运行结果是( C )。
Function gys(ByVal x As Integer, ByVal y As Integer) As Integer
Do While y <> 0
reminder = x / y
x = y : y = reminder
Loop
gys = x
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 10 :
b = 2
x = gys(a, b)
Print x
End Sub
A) 10 B) 2 C) 5 D) 2
参考答案
1 -10 C C A C A D C A D C 11-20 D C B C D C A D D D 21-30 D D A B C A B B C A 31-40 C C B B C B C D B A 41-50 A C C A D A B B B B 51-60 C D C B B C C D B C
《VB程序设计》综合复习资料习题
《VB程序设计》综合复习资料习题
《VB程序设计》综合复习资料 第一章Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化B．面向对象C．面向图形D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 第 2 页共 32 页
2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） A．文本框失去焦点B．文本框获得焦点 C．设置文本框的焦点D．改变文本框的内容 2、应用程序设计完成后，应将程序保存，保存的过程是（） A．只保存窗体文件即可 B．只保存工程文件即可 第 3 页共 32 页
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
《VB程序设计》习题答案-林卓然编著
《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)
vb程序设计试题(含答案)
第一套试题 一、选择题（每题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 )
2016年计算机二级《VB》基础练习题及答案(2)
2016年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在Textl中显示输入的字符为“*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 参考解析： 【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。 【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。 2[单选题]在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。 A.外模式 B.内模式 C.概念模式 D.逻辑模式 参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 3[单选题]以下关系表达式中，其值为True的是()。 A.1f.XYZ”>”XYz” B.”VisualBasic”<>”visualbasic” C.P the-.=’’there·t D.”Integer”<”Int” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的A SCIl码从左到右一一比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较
VB程序设计 试题与答案-1
《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. 下面过程定义语句合法的是____________。
VB练习题(上机)含答案
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
VB程序设计考试题库 优质文档
优质文档VB程序设计考试题库——考试专用 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer
VB考试题及答案
VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).
A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile
VB程序设计试题及答案一
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 ……
vb练习题及答案.doc
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程序设计试题及答案(一)
VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用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 … … Next x Next x
vb试题及答案
VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。
[整理]VB程序设计复习题及答案.
中南大学现代远程教育课程（专科）考试复习题及答案 《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程序设计基础》模拟精彩试题
《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。
vb题库及答案
| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",