Question

求VB题解答

7.语句Z=y+1代表_________
A） 变量Z取得y+1的值
B） 变量Z取得变量y的值，然后再加上1的一个表达式
C） 将变量Z存入变量y中，再加上1的表达式
D）将变量Z存入变量y+1中

8.下列程序的运行结果是_________
A=5
B=-5
C=NOT A=B
PRINT C
A） True
B） -5
C） 0
D） 无法输出

9.在窗体上画一个命令按钮（名称为Command1）编写如下事件过程：
Private Sub Commmand1_Click()
b=1
c=3
print a=b+c
End Sub
程序运行后，单击命令按钮，输出的结果是______
A） a=3
B） a=b+c
C） 3
D） False

10.设有如下的程序段：
a$=”BeijingShanghai”
b$=Mid(a$,instr(a$,”g”)+1)
执行上面的程序段后，变量b$的值为________
A） Beijing
B） Shanghai
C） BeijingShanghai
D）显示出错信息

11.下列语句的输出结果是_________
a=sqr(3.61)
Print Format(a,”000.000”)
A）1.900
B）1.9
C）001.900
D）001.9

12.执行下面的代码，在图片框中显示的是_______
Private Sub Command_Click()
Picture1.print “Bbb”
End Sub
A)名为”Bbb”的图形文件
B)文本”Bbb”
C)不显示任何信息
D)出错

13. 在VB中，下列____控件属于容器控件
A） Grid
B） TextBox
C） Frame
D） CheckBox

14. 下列程序的输出结果是_______
Private Sub Command1_Click()
For I=1 to 3
Print chr(Asc(“a”)+I-1)
Next
End sub
A) ABC
B) 97 98 99
C) abc
D) bcd

15. 设 a=10，则执行x=iif(a>7,-1,0)后，x的值是______
A） 7
B） 10
C） 0
D） -1

16. 阅读程序：
Function func(n As Integer) As Integer
Sum=0
For I=1 to n
Sum=Sum+(I+1)*I
Next I
Func=Sum
End Function
Private Sub Command1_Click()
Dim a As Integer
a=3
s=func(a)
print s
End Sub
程序运行后，单击命令按纽，输出结果为：_______
A） 15
B） 20
C） 8
D） 30

17.假设在窗体上已经添加了通用对话框CommonDialog控件并设置好属性，其名称是CommonDialog1，在程序中要显示“打开”对话框，使用语句是：
A） CommonDialog1.Action=1
B） CommonDialog1.Action=2
C） CommonDialog1.Action=3
D） CommonDialog1.Action=4

18.在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：
Private Sub func(L as label,ByVal a As integer)
L.Caption=”1234”
a=a*a
End Sub
Private Sub Form_Load()
Label1.Caption=”ABCD”
Label2.Caption=10
End Sub
Private Sub Command1_Click()
a=val(Label2.Caption)
call func(label1,a)
label2.caption=a
End Sub
程序运行后，单击命令按纽，在两个标签Label1和Label2中显示的内容分别是____
A) ABCD和10
B) 1234和100
C) ABCD和100
D） 1234和10

19. 要判断在文本框内是否按下了回车键，可以在文本框的____事件过程中进行判断
A) Change
B) Click
C) KeyPress
D) GotFocus

20. 下列控件可以用来显示文件的是_____
A） DirListBox
B） FileListBox
C） DriveListBox
D）ListBox

Answer 1

答案：

B,A,D,B,C,B,C,C,D,B,A,D,C,B

所有需要调试的题目我都用VB测试过。没问题的！