1,有语句 Print val(“123ABC456”) 履行后,显示的是 ( B )
A.”123ABC456” B. 123
C.123ABC456 D.123456
2.下列语句中循环体的履行次数是( A )
a=3 : b=1
For I=b to a step -1
Print I
Next I
A.0 B.1 C.2 D.3
3.文本框Text1的KeyDown事件过程如下:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
…
End Sub
其中参数KeyCode的值表示的是发生此事件时( C )。
A)是否按下了Alt键或Ctrl键 B)按下的是哪个数字键
C)所按下的键盘键的键码 D)按下的是哪个鼠标键
4. 若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操纵是( C )。
A)用鼠标右键单击此按钮 B)按键盘上的Esc键
C)按键盘上的回车键 D)用鼠标右键双击此按钮
5,窗体上有一个文本框Text1,程序运行后,要求该文本框只能显示信息,没有能接受输入的信息,以下能实现该操纵的语句是( B )。
A.Text1.MaxLength=0 B.Text1.Enabled=False
C.Text1.Visible=False D.Text1.Width=0
6,将组合框1当前选择的项目内容赋值给变量A,语句是( A )。
A.A= Combo1.Text B.A= Combo1.Value
C.A= List1.Text D.A= List1.Value
7,表达式3+5 \ 6 * 7 / 8 Mod 9 的值是: ( A )
A. 4 B. 5
C. 6 D. 7
8,控件数组共用事件和门径,区分控件元素需要引用控件的( A )下标属性。
A.Index B.Name
C.Caption D.Visible
9,窗体上有一个名称为Hscroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操纵的事件过程是( A )。
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
10,以下叙述中错误的是( D )。
A)标准模块文件的扩展名是.bas
B)标准模块文件是纯代码文件
C)在标准模块中声明的全局变量可以在整个工程中使用
D)在标准模块中没有能定义过程
11,若非诚勿扰要隐藏窗体,实现的语句为( A )。
A. hide B. show C. load D. unload
12,以下选项中,没有合法的Visual Basic的变量名是( B )。
A)a56 B)_xyz C)a_b D)andif
13,在窗体上中添加一个名称为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,则窗体上显示的是( C )。
A. 分支1 B. 分支2 C. Else分支 D. 程序失足
14,以下程序段履行的成果是 ( A )
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
15,设a=“Visual Basic”,下面使b=“Basic”的语句是( B )。
A. b=Left(a,8,12) B. b=Mid(a,8,5)
C. b=Rigth(a,5,5) D. b=Left(a,8,5)
16,语句Print 8\2*3+1的运行成果是( C )。
A. 0 B. 1
C. 2 D. 3
17,设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是( B )。
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
Text1.Text = "Visual Basic"
18. Visual Basic是一种面向对象的可视化程序语言,采用了事件驱动的编程机制。( T )
19,在 For <控制变量>=<初值> To <终值> [Step <步长>] 结构中,循环次数为 Int((终值-初值)/步长+1)。 ( T )
20,数组是用一个统一的名字,没有同下标表示的,顺序排列的一组变量。 ( T )
21,数组是一组具有同一名字、没有同下标的下标变量。 ( T )
22,在同一过程中,数组与简单变量允许同名。 ( F )
23,InputBox 函数和MsgBox 函数一样,返回的是字符串。 ( F )
24. 在VB中,设置或修改一个对象的属性的门径有两种,它们分别是属性窗口修改,命令修改 或 语句修改。 ( T )
25,设置属性的语句花式为:“对象名.属性名=属性值”。 ( T )
26下列程序段的履行成果为 。
答案:3 2 1
答案:P=M mod N
28. 程序如下,当运路程序后,单击窗体,显示的成果是( )
Private Sub Form_Click()
Dim x As Integer, y As Integer
a% = 8
b = 3
Call test(6, a, b + 1)
Print "主程序"; 6; a; b
End Sub
Sub test(x As Integer, y As Integer, z As Integer)
x = 2
y = 4
z = 9
End Sub
答案:主程序 6 4 3
29. 下列程序段的履行成果为_________。
答案:2 3 4
30,从键盘输入若干个学生的考试成果,统计并输出最高分和最低分,当输入负数时结束输入,输出成果。请补充完整。
答案:x < min
min > x
31,小猴子有若干桃子,第一天吃掉一半多一个;第二天吃掉剩下的一半多一个;……如此,到第七天早上要吃时,只剩下一个桃子。问小猴子一开始共有几何个桃子?
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
答案:x=(x+1)*2
x=2*(x+1)
32,如下程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcde",单击"确定"按钮后在窗体上的输出成果为( )。
答案:EDCBA
答案:27
27. 输入二个正整数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
34,有过程swap,其功能为交换一维数组,即第一个与最后一个元素交换,第二个与倒数第二个元素交换,……请填空。
Sub swap( a() as integer)
M= Lbound(a)
N= Ubound(a)
J=0
For k=M to (N-M+1)/2
a(k)= a(N-J)
a(N-J)= T
J=J+1
Next
End sub
答案:T=a(M+J)
35,下列程序段的履行成果为 。
答案:2
36. 以下程序的运行成果为 。
答案:7
37. 下列程序段的履行成果为 。
答案:28
38.计算并输出数组Arr中10个数的正数之和pos与负数之和neg,程序如下,请补
充完整。
答案:neg=neg+arr(k)
33,下列程序段的履行成果为 。
39,编写判断奇偶性的function函数,在主过程输入一个整数,调用该函数计算,成果在主过程输出
Private Sub Command1_Click()
Dim a As Integer
Dim x As Integer
Dim m As Integer
a = Val(InputBox("输入a="))
x = ff(a)
If x = 0 Then
Print a; "是偶数"
Else
Print a; "是奇数"
End If
End Sub
Function ff(b As Integer) As Integer
Dim t As Integer
If b Mod 2 = 0 Then
t = 0
Else
t = 1
End If
ff = t
End Function
40,随机产生10个【10 ,50】之间的整数,用冒泡排序法对其进行排序。
Private Sub Command1_Click()
Dim t As Integer
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 41 + 10)
Next i
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next i
End Sub
42,主过程(如command_click)输入一行字符,编写一个子过程,该过程实现分别统计出其中英文字母、空格、数字、和其他字符的个数。
Private Sub Command1_Click()
Dim a As String
Dim b As String
b = InputBox("输入b=")
Print b
a = ff(b)
End Sub
Function ff(x As String) As String
Dim letter As Integer
Dim num As Integer
Dim ot As Integer
Dim sq As Integer
For i = 1 To Len(x)
Select Case Mid(x, i, 1)
Case "a" To "z", "A" To "Z"
letter = letter + 1
Case "0" To "9"
num = num + 1
Case " "
sq = sq + 1
Case Else
ot = ot + 1
End Select
Next i
Print "字母个数"; letter, "数字个数"; num, "空格格数"; sq, "其他字符个数"; ot
End Function
43,计算0~99范围内有几何个数,其每位数的乘积年夜于每位数的和。
Private sub command1_click()
For i =0 to 99
a =i mod 10
b= i\10
if a*b>a+b then
n = n+1
end if
next i
print n
End sub
44. 编程完成计算并输出1+3+5+7+……+99之和。
Private sub command1_click()
Dim i as integer,sum as integer
i = 1
sum = 0
do while i <= 99
sum = sum + i
i =i +2
loop
print sum
end sub
41,在窗体上输出一个n行、n列、主对角线和次对角线元素为1,其余元素均为零的矩阵。n由用户指定
Option base 1
Private sub command1_click()
Dim a()
Dim n as integer
n=inputbox(“”)
redim a(n,n)
for i =1 to n
for j= 1 to n
if i = j or i+j=n+1 then
print a(i,j)=1
else
print a(i,j)=0
end if
next j
next i
for i=1 to n
for j=1 to n
if j=n then
print a(I,j);
print
else
print a(I,j);
end if
next j
next i
End sub