Visual Basic模拟题(三)

VB 模拟试题

一、选择题(每题2分，共30题) (01)以下说法正确的是：_____。D

A)属性的一般格式为：对象名_属性名称

B)属性是对象的特性，所有的对象都有相同的属性 C)属性值的设置只可以在属性窗口中设置 D)对象是有特殊属性和行为方法的实体

(02)设a=5，b=4，c=3，d=2，下列表达式的值是B 3>2*b or a=c and b<>c or c>d A)1 B)True C)False D)2

(03)语句5 \ 4 * 6 / 3 Mod 2的输出结果是( A ) A) 0 B) 1 C) 2 D) 3

(04)给变量x 赋值一个10到99之间的随机整数的表达式为:____C____

A)x=rnd*99

B)x=rnd*90+10 C)x=int(rnd*90)+10

(05)有如下程序：A Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer

a = 3:

b = 2:

c = 1 a = b: b = c: c = a Print a; b; c

End Sub

运行之后结果是： A)2 1 2 B)3 2 1 C)2 1 3 D)3 2 3

(06)下列程序执行的结果为：

___A__。 X=8:Y=1:Z=0

Print "A(";X+Z*Y;")"

A)A( 8 )

B)"A("8")"

C)A(8+1*0)

D)A ( 8

) (07)在窗体上画一个名称为

Command1的命令按钮，然后编写如下事件过程：C

Private Sub Command1_Click() x=InputBox("Input") Select Case x Case 1,3

Print "分支 1"

Case Is >4

Print "分支 2"

Case Else Print "Else 分支 " End Select End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是

A)分支1 B)分支2 C)Else 分支 D)程序出错

(08)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: B Private Sub Command1_Click() c="ABCD" For n=1 To 4 Print_____ Next End Sub

内容：

D CD BCD

ABCD

则在______ A)Left(c,n) B)Right(c,n) C)Mid(c,n,1)

D)Mid(c,n,n) (09)下列程序段的执行结果为__B__。 Dim A(3,3) For M=0 to 3 For N=0 to 3

If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0

Next N

Next M

For M=0 to 3 Print A(M,N); Next N Print Next M

A 1 0 0 1

B 1 0 0 0 0 1 1 0 0 1 0 1 0 1 1 0 0 0 1 0

1 0 0 1 0 1 0 1 C 1 0 1 D 1 0 0

0 1 0 0 1 0 1 0 1 0 0 1

(10)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：B Private Sub Command1_Click() a = 12345

Print Format$(a, "000.00") End Sub

程序运行后，单击命令按钮，窗体上显示的是 A)123.45

B)12345.00

C)12345

D)00123.45

(11)执行以下程序段

a$="abbacddcba"

For i=6 To 2 Step -2

X=Mid(a,i,i)

Y=Left(a,i)

z=Right(a,i)

z=UCase(X & Y & z) ' UCase()为把小写字母变成大写字母 Next i Print z

输出结果为 B A)AAA

B)BBABBA C)ABBABA D)AABAAB

(12)执行完下面的三重循环之后 For i=1 to 2 For j=1 to 2 a=0

For k=1 to 2 a=a+1

next k

next j

next i a 的值是: A A)2 B)5

C)7 D)9

(13)要从Do While …Loop 循环中跳出循环,要使用的语句是:C

A)Exit B)Exit Loop C)Exit Do D)Exit While (14)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 Model1代码如下： Public x As Integer

Public y As Integer

Sub S1() x =1 S2 End Sub Sub S2()

y=10

Form1.Show End Sub

Model2的代码如下： Sub Main() S1 End Sub

其中Sub Main 被设置为启动过程。程序运行后，各模块的执行顺序是 C

A) Form1→Model1→Model2 B) Model1→Model2→Form1 C) Model2→Model1→Form1 D) Model2→Form1→Model1

(15)单击命令按钮时，下列程序代码的执行结果为__C___。

Dim a As Integer, b As Integer, c As Integer

a=5:b=8:c=9

Call Proc1(a,b)

Print "a=";a;"b=";b;"c=";c

Call Proc2(a,b)

Print "a=";a;"b=";b;"c=";c End Sub

Public Sub Proc1(x As Integer, y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub x=2*x:y=y+2:c=x+y End Sub

A)

a=10 b=10 c=20 a=10 b=10 c=9 B)

a=10 b=10 c=20 a=20 b=12 c=32 C)

a=10 b=10 c=9 a=10 b=10 c=32 D)

a=10 b=10 c=9 a=20 b=12 c=32

(16) msgbox "确实要退出么？", 4+32+256, "关闭窗口" 语句执行后，标题是 C A) 确实要退出么？ B) 4+32+256

C) 关闭窗口

D) 标题没有显示内容

(17)通常是利用_____属性来获得选项按钮OptionButton 输入的数据。D

A)Caption B)Text C)Name D)Value

(18) 数组a(1 to 10)中已经有值，下面的程序完成的功能是 A

For i = 1 To 9

For j = i + 1 To 10

If a(i) < a(j) Then End If Next j Next i

A) 对数组a 用选择排序法由大到小排序 B) 对数组a 用冒泡排序法由大到小排序 C) 对数组a 用冒泡排序法由小到大排序 D) 对数组a 用选择排序法由小到大排序 (19)如何"锁定"文本框中的内容 A)把它的Enabled 设置为 TRUE B)把它的Enabled 设置为 C)把它的Locked 设置为 TRUE D)把它的Locked 设置为 (20)在窗体上画一个名称为List1的列表框，为了对列为(A ) B) For i=0 To ListCount-1 …… Next C) For i=1 To List1.listCount …… Next D) For i=1 To ListCount …… Next (21) 以下关于数组的描述不正确的是 C A) 数组元素在内存空间上是连续存放的 B) 数组在使用前必须要定义

C) for 组语句 D)

(22)Label 控件的默认属性是:___B__ A)Enabled B)Caption C)Name D)Font

(23) 第8次单击窗体时，窗体的标题栏上显示什么内容B

private sub form_click() static a as integer a=a+1

if a=1

then

form1.caption="第一次单击窗体" elseif a=2

then

form1.caption="第二次单击窗体" elseif a=3 then

form1.caption="第三次单击窗体" a=0

end if

end sub

A) B) 第二次单击窗体 C) 第三次单击窗体 D) 没有显示内容

(24) 为组合框Combo1增加一个列表项“电脑"，下列语句正确的是( C )。 A)Combo1.Text = "电脑" B)Combo1.ListIndex = "电脑C)Combo1.AddItem "电脑" D)Combo1.ListCount = "电脑"

(25)在窗体上布置两个文本框和两个命令按钮，编写如下程序，选项中关于此段程序的正确说法是_C___。 Private Sub Command1_Click() Dim b As Integer b=b+1 Text1.Text=b

End Sub

Static b As Integer

b=b+1

Text2.Text=b

End Sub

A)命令按钮1的事件过程中的b 是局部变量，过程调用每单击一次其值加1

B)命令按钮2的事件过程中的b 是静态变量，过程每次调用都重新初始化

C)命令按钮1的事件过程中的b 是局部变量，过程每次调用都重新初始化

D)命令按钮2的事件过程中的b 是非静态变量，过程每次调用都重新初始化

(26)将窗体的__D_属性设置为False 后，运行时窗体上的按钮、文本框等控件就不会对用户的操作做出响应。 A)Visible B)ControlBox C)WindowsShow

D)Enabled

(27)以下控件可作为其它控件容器的是__D__。 A)Image B)Data C)ListBox D)Frame

(28)在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是 D A Private Sub List1_Click()

Label1.Caption=List1.ListIndex End Sub

B Private Sub List1_Chilk()

https://www.360docs.net/doc/1810890509.html,=List1.ListIndex End Sub

C Private Sub List1_click() https://www.360docs.net/doc/1810890509.html,=List1.Text End Sub

D Private Sub List1_Click() Label1.Caption=List1.Text

End Sub

(29) 运行下面的程序，单击命令按钮，输出结果为( A )。

Static Function F(a As Integer) Dim c As Integer c = c + 1 F = a + c End Function

a = 2 For i = 1 To 3 Print F(a); Next i End Su

b A)3 4 5 B)3 3 3 C)2 2 2 D)2 3 4

(30) 下列有关数组的说法正确的是 C A)数组的维下界不可以是负数

B)模块通用声明处有Option Base 1,则模块定义语句Dim A(0 To 5)会与之冲突

C)模块通用声明处有Option Base l,模块中有Dim A(0 To 5),则A 数组第一维下界为0

D)模块通用声明处有Option Base 1,模块中有Dim A(0 To 5),则A 数组第一维下界为1 二、填空题（每题8分，共4题） 第1题：

以下程序的功能是：单击窗体时，弹出输入对话框，用户不断从键盘上输入学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。

Private Sub Form_Click()

Dim x As Single,amax As Single,amin As Single

x=InputBox("请输入一个分数") amax=x : amin=x

'*************FOUND

Do While x>=?

If x>amax Then

amax=x

End If

'**************FOUND

*************

If x

Then

amin=x

End If

x=InputBox("请输入一个分数") Loop

Print "Max=";amax,"Min=";amin End Sub 第2题：

该程序的功能为：有一个二维整型数组a(1 to 10,1 to 10),要求将该数组中主对角线以上的数组元素都变为原来的2倍,主对角线以下的元素都变为原来的相反数,主对角线的数组元素都设为0.注意:主对角线指从左上角到右下角的对角线.如下面数组中用0表示的为主对角线. 0 1 1 1 1 1 0 1 1 1 1 1 0 1 1 1 1 1 0 1 1 1 1 1 0 程序如下:

Private Sub Command1_Click()

Dim a(1 To 10, 1 To 10) As Integer Dim i As Integer, j As Integer

'下面的语句是给数组a 赋予初值 For i = 1 To 10 For j = 1 To 10 a(i, j) = i * j Next j Next i

For i = 1 To 10 For j = 1 To 10

If ? Then

a(i, j) = -a(i, j)

ElseIf i < j Then

a(i, j) = a(i, j) * 2 Else

'************FOUND ************ a(i, j) = ?

End If

Next j Next i End Sub 第3题

在窗体上有一个标签(Label1)、一个计时器(Timer1)和二个命令按钮(名称分别为Command1和Command2)。如果单击“开始”命令按钮，则可使标签每隔0.2秒闪烁一次；如果单击“停止”命令按钮，则标签停止闪烁。

Private Sub Form_Load() Timer1.Enabled = False

'************FOUND ****************

Timer1.? = 200

'注意：上行程序代码表示标签每隔0.2秒闪烁一次 Label1.Caption = "注意！" Command1.Caption = "开始" Command2.Caption = "停止" End Sub

Private Sub Command1_Click()

Timer1.Enabled = TRUE End Sub

'************FOUND Timer1.Enabled = ?

'上行程序代码表示停止闪烁 End Sub

'**************FOUND Private Sub Timer1_?() End Sub 第4题

下面过程的功能是计算 1！-2！+3！-...-10！ 的和。 Dim i As Integer, flag As Integer, sum As Double, p As Double sum = 0 flag = 1

'****** FOUND p = ?

For i = 1 To 10

p = p * i

'****** FOUND ********* sum = sum +?

flag = -flag Next i Print sum End Sub

三、程序设计题(8分)

打开考生文件夹下的窗体文件prob01.frm 。编一个求n!的函数过程，然后调用它计算10!-7!-6!的值，并把结果显示在Label2里。

要求：在‘******和’*******之间编写程序，使其实现上述功能，但不能修改程序中的其它部分，也不能修改控件的属性。必须运行该程序，只有运行结果正确才得分。

Private Sub Form_Click()

Dim a As Double, b As Double, c As Double, d As Double

a=jch(10)

b=jch(7)

c=jch(6)

Label2.Caption = d

End Sub

'****请把求n!的函数过程编写在两排星号之间，把程序补充完整 '******** 答案

一、选择题 1-5 DBACA 6-10 ACBBB 11-15 BACCC 16-20 CDACA 21-25 CBBCC 26-30 DDDAC 二、填空题 第1题

1答案： 0 （4分） 2答案： amin （4分） 第2题

1答案： i>j 或者j

1答案 Interval （3分） 2答案 False （2分） 3答案 Timer （3分） 第4题

1答案 1 （4分）

2答案 flag*p 或者 p*flag （4分） 三、程序设计题参考答案

'********请在两排星号之间写入内容，把程序补充完整

Function jch(n As Integer) As Long Dim i As Integer, t As Long t = 1

For i = 1 To n '计算 n! t = t * i Next i jch = t End Function '**************

结果是

3623040