VB考题by oh

版权所有，翻录必究
以下程序段执行的结果是 ( )
a=0 : b=1
Do
a=a+b
b=b+1
Loop While a<10
Print a;b
A.10 5
B.a b
C.0 1
D.10 30
下列语句中循环体的执行次数是（）
a=3 : b=1
For I=b to a step -1
Print I
Next I
A．0 B．1 C．2 D．3
文本框Text1的KeyDown事件过程如下：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
…
End Sub
其中参数KeyCode的值表示的是发生此事件时（）。

A）是否按下了Alt键或Ctrl键B）按下的是哪个数字键
C）所按下的键盘键的键码D）按下的是哪个鼠标键
以下选项中，不合法的Visual Basic的变量名是（）。

A）a56 B）_xyz C）a_b D）andif
控件数组共用事件和方法，区分控件元素需要引用控件的（）下标属性。

A．Index B．Name
C．Caption D．Visible
窗体上有一个名称为Hscroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。

下面能够实现上述操作的事件过程是（）。

A）Private Sub Hscroll1_Change()
Print Hscroll1.Value
End Sub
B）Private Sub Hscroll1_Change()
Print Hscroll1.SmallChange
End Sub
C）Private Sub Hscroll1_Scroll()
Print Hscroll1.Value
End Sub
D）Private Sub Hscroll1_ Scroll ()
Print Hscroll1. SmallChange
End Sub
设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。

要求程序运行时每秒在标签中显示一次系统当前时间。

以下可以实现上述要求的事件过程是（）。

A）Private Sub Timer1_Timer()
Label1.Caption=True
End Sub
B）Private Sub Timer1_Timer()
Label1.Caption=Time$
End Sub
C）Private Sub Timer1_Timer()
Label1.Interval=1
End Sub
D）Private Sub Timer1_Timer()
For k=1 To Timer1.Interval
Label1.Caption=Timer
Next k
End Sub
在窗体上中添加一个名称为Command1的命令按钮，然后编写如下程序：
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. 程序出错
窗体上有一个文本框Text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是（）。

A.Text1.MaxLength=0
B.Text1.Enabled=False
C.Text1.Visible=False
D.Text1.Width=0
设a=“Visual Basic”，下面使b=“Basic”的语句是（）。

A. b=Left(a,8,12)
B. b=Mid(a,8,5)
C. b=Rigth(a,5,5)
D. b=Left(a,8,5)
数组是一组具有同一名字、不同下标的下标变量。

（）
InputBox 函数和MsgBox 函数一样，返回的是字符串。

设置属性的语句格式为：“对象名.属性名＝属性值”。

Visual Basic是一种面向对象的可视化程序语言，采用了事件驱动的编程机制。

（）
在VB中，设置或修改一个对象的属性的方法有两种，它们分别是属性窗口修改，命令修改或语句修改。

（）
输入二个正整数N、N ，用辗转相除法求它们的最大公约数P。

Sub command1_click()
Dim M%,N%
M=val(inputbox(“M=”))
N=val(inputbox(“N=”))
Do
M=N
N=P
Loop While P<>0
P=M
Print P
End sub
猴子有若干桃子，第一天吃掉一半多一个；第二天吃掉剩下的一半多一个；……如此，到第七天早上要吃时，只剩下一个桃子。

问小猴子一开始共有多少个桃子？
private sub form_click()
Dim n%,i%
x=1
Print "第7天桃子个数：1个"
for i=6 to 1 step -1
_______________
print "第" & i & "天桃子数：" & x & "个"
next i
end sub
列程序段的执行结果为。

下列程序段的执行结果为。

随机产生10个【10 ，50】之间的整数，用冒泡排序法对其进行排序。

编写判断奇偶性的function函数，在主过程输入一个整数，调用该函数计算，结果在主过程输出
编程完成计算并输出1+3+5+7+……+99之和。

答案：
题号：1 分值：2 得分：2 答案：A 试卷：A
题号：2 分值：2 得分：0 答案：A 试卷：B
题号：3 分值：2 得分：0 答案：C 试卷：A
题号：4 分值：2 得分：2 答案：B 试卷：B
题号：5 分值：2 得分：0 答案：A 试卷：B
题号：6 分值：2 得分：0 答案：A 试卷：B
题号：7 分值：2 得分：0 答案：B 试卷：C
题号：8 分值：2 得分：0 答案：C 试卷：D
题号：9 分值：2 得分：0 答案：B 试卷：A
题号：10 分值：2 得分：2 答案：B 试卷：B
题号：11 分值：2 得分：0 答案：T 试卷：F
题号：12 分值：2 得分：0 答案：F 试卷：T
题号：13 分值：2 得分：0 答案：T 试卷：F
题号：14 分值：2 得分：2 答案：T 试卷：T
题号：15 分值：2 得分：0 答案：T 试卷：F
题号：16 分值：10 得分：0
答案:
P=M mod N
试卷:
题号：17 分值：10 得分：0
答案:
x=(x+1)*2
x=2*(x+1)
x=(1+x)*2
x=2*(1+x)
试卷:
题号：18 分值：10 得分：0 答案：27 试卷：题号：19 分值：10 得分：0 答案：28 试卷：。