Question

VB的一些问题

一、 选择题
1.在VB中，下列合法的变量名是（ B ）
(A)4EF (B)integer (C)E-F (D)E_F

2. 如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（ ）属性。
(A)PasswordCha (B) Caption (C)Text ( D)Locked
3．豫剧Dim x As Integer作用是:将x定义为（ ）变量。
(A)单精度型 (B)整型 (C) 布尔型 (D)字符型
4.数学表达式 X2+3XY对应的VB算术表达式是：（ ）
(A) X+3X*Y
(B) X*X+3XY
(C) X*X+3*X*Y
(D) X*X+3*XY

5、VB集成开发环境中，提供控件的窗口是（ ）。
(A)工具箱 (B)工具栏
(C)属性窗 (D)工程管理器
二、填空题
1、Private Sub Form_Click()
Dim a As Integer
Static b As Integer
a = a + 6
b = a + b
Form1.Print "a="; a, "b="; b
End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
( ).

2、执行赋值语句y = “abc”+”def”后，变量a的值是 ( ).
三、写程序题
设有一个5*5的方阵,其中元素是由计算机随机生成的小于100的整数,并求其对角线之和.

Answer 1

一、 选择题
1.在VB中，下列合法的变量名是（ B是表示整型数字的变量类型保留字，不能做变量名用 ）
(D)E_F

2. 如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（ ）属性。
(A)PasswordCha (C)Text ( D)Locked
3．Dim x As Integer作用是:将x定义为（ ）变量。
(B)整型
4.数学表达式 X2+3XY对应的VB算术表达式是：（ ）
(C) X*X+3*X*Y

5、VB集成开发环境中，提供控件的窗口是（ ）。
(A)工具箱

二、填空题
1、Private Sub Form_Click()
Dim a As Integer
Static b As Integer
a = a + 6
b = a + b
Form1.Print "a="; a, "b="; b
End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
(a=6 b=6
a=6 b=6
a=6 b=6 ).

2、执行赋值语句y = “abc”+”def”后，变量a的值是 ( abcdef).

三、写程序题
设有一个5*5的方阵,其中元素是由计算机随机生成的小于100的整数,并求其对角线之和.

Private Sub Form_Load()
redim s(5,5)
ss=0
for i=1 to 5
for j=1 to 5
s(i,j)=int(100*Rnd)
if j=i then ss=ss+s(i,j)
next j
next i
MsgBox "ss=";ss
End
End Sub

Answer 2

VB中的连接符是
&
，而不是
：，你要搞清楚了、
冒号在VB中的作用是将代码写在同一行，比如：
Print
a(0):Print
a(1):Print
a(2):Print
a(3)
按照你那个写法是肯定不对的。

Answer 3

D,A,B,C,A

a=6 b=6
a=6 b=6
a=6 b=6

“执行赋值语句y = “abc”+”def”后，变量a的值是”
变量a哪来的，值是多少不知道

Answer 4

1 D, 2 A ,3 B ,4 C, 5 A ,
填空：
（1）
a=6 b=6
a=6 b=12
a=6 b=18
（2）
应该是 y 的值 "abcdef"
三、
Private Sub Form_Click()
dim num(1 to 5,1 to 5)
dim sun1,sun2
for i=1 to 5
for j=1 to 5
num(i,j)=int(rnd()*100)
print tab(2);num(i,j);spc(2);
if(i=j) then
sum1=sum1+num(i,j)
end if
if(i+j=6) then
sum2=sum2+num(i,j)
end if
next
print
next
print "和1为：" & sum1, "和1为：" & sum2
end sub

Answer 5

1 D
2 C
3 B
4 C
5 A

1
a=6 b=6
a=6 b=12
a=6 b=18

2
abcdef