- 1、本文档共23页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
南京工业大学vb期末题库.
09复材高材vb综合练习题第二套
满分:100分
姓名:________
1、单项选择题(本题共计49分)
1、执行下面的程序,单击窗体后在窗体上显示的结果是________。
Private Sub Form_Click()
Dim Strl As String, Str2 As String,I As Integer
Str1=”ab”
For I=Len(Str1)To 1 Step-1
Str1=Str1Chr(Asc(Mid(Str1,I,1))+I)
Next I
Print Str1
End Sub ( )
A、abce
B、abcd
C、abdb
D、abfd
2、下列语句中的语句可以用来正确地声明一个动态数组。 ( )
A、Private A(n) As Integer
B、Dim A() As Integer
C、Dim A(,) As Integer
D、Dim A(1 to n)
3、在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click( )
Dim a As Integer,b As Integer
Do While b 100
b=b+5
a=a+b
If b20 Then Exit Do
Loop
Print a,b
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是_________。 ( )
A、50 20
B、75 25
C、50 25
D、75 20
4、有如下程序:
Private Sub Command1_Click( )
score=65
select Case score
Case Is60
a$=F
Case 60 To 69
a$=D
Case 70 To 79
a$=C
Case 80 To 89
a$=B
Case else
a$=A
End Select
MsgBox a$
End Sub
程序运行后,消息对话框中显示的内容为_______。 ( )
A、A
B、B
C、C
D、D
5、下列程序:
Private Sub Form_Click( )
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
运行后输出的结果是__________。 ( )
A、1
B、15
C、90
D、120
6、下列程序
Private Sub Command1_Click( )
a=InputBox(请输入)
b=InputBox(请输入)
Print a+b
End Sub
运行时输入3和4输出的结果是 ________ 。 ( )
A、7
B、34
C、3+4
D、出错
7、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click( )
Static A As Integer
Static B As Integer
Cls
B = 2
B = B+3
A= 3+A
print A, B
End Sub
程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为___________。 ( )
A、3 5
B、6 6
C、9 5
D、3 3
8、在窗体上添加一个命令按钮,名为Command1,一文本框,名为Text1,则执行如下事件过程后,文本框中的输出为______。
Private Sub Command1_Click( )
For i = 1 To 4
x = 3
For j = 1 To 3
For k = 1 To 3
x = x+3
Next k
Next j
Next i
Text1.Text=Str(x)
End Sub ( )
A、6
B、12
C、18
D、30
9、在窗体中添加一个命令按钮,并编写如下程序代码:
Private Sub Command1_Click( )
Dim y As Integer
y = 0
Do While y7
y=y+2
Loop
MsgBox y
End Sub
程序运行后,消息对话框中显示__________。 ( )
A、0
B、7
C、8
D、2
10、设有如下语句: strl=InputBox(输入,,练习)从键盘上输入字符串示例后,strl的值是________。 ( )
A、“输入”
B、“”
C、“练习”
D、“示例”
11、在单击窗体中的按钮Command1第3次后,如下程序打印结果是____。
Private Sub Command1_Click( )
Static a AS Integer
a = a+1
Select Case a
Case 1:
文档评论(0)