admin 管理员组文章数量: 1086019
2024年3月27日发(作者：treeview选中节点跳转窗体)
二级VISUAL BASIC-77
(总分100,考试时间90分钟)
选择题
1. 窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，
在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：
Private Sub Command1_Click()
=UCase(Mid(,5,4))
End Sub
在Text2中显示的是
A. form B. list
C. FORM D. LIST
2. 窗体上有1个名称为Command1的命令按钮，事件过程如下：
Private Sub Command1_Click()
m=-3.6
If Sgn(m) Then
n=Int(m)
Else
n=Abs(m)
End If
Print n
End Sub
运行程序，并单击命令按钮，窗体上显示的内容为
A. -4 B. -3
C. 3 D. 3.6
3. 设有如下程序：
Private Sub Form_Click()
num=InputBox("请输入一个实数"):p=InStr(num, ".")
If p＞0 Then
Print Mid(num,p+1)
Else
Print"END"
End If
End Sub
运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则
A. 用字符方式输出该实数 B. 输出该实数的整数部分
C. 输出该实数的小数部分 D. 去掉实数中小数点，保留所有数码输出
4. 在窗体上画一个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load()
="":us
End Sub
Private sub Form_Click()
Dim a As String, s As String
a=:s=""
For k=1 To Len(a)
s=UCase(Mid(a,k,1))+s
Next k
=s
End Sub
程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容
A. 与原字符串相同
B. 与原字符串中字符顺序相同，但所有字母均转换为大写
C. 为原字符串的逆序字符串，且所有字母转换为大写
D. 为原字符串的逆序字符串
5. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$=InputBox("请输入一个二进制数"):n=Len(a$)
For i=1 To n
Dec=Dec*2+______(a$,i,1)
Next i
Print Dec
End Sub
程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进
制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在
横线处填入的内容是
A. Left B. Right
C. Val D. Mid
6. 以下程序的功能是随机产生10个两位的整数：
Option Base 1
Private Sub Command1_Click()
Dim a(10)As Integer, i As Integer
Randomize
For i=1 To 10
a(i)=Int(Rnd*100)+1:Print a(i)
Next i
End Sub
运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是
A. a(i)=Int(Rnd*100)
B. a(i)=Int(Rnd*90)+10
C. a(i)=Int(Rnd*100)+10
D. a(i)=Int(Rnd*101)
7. 窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随
机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；
若没有找到，给出相应的提示。该命令按钮的单击事件过程如下：
Private Sub Command1_Click()
Dim a(10)As Integer, x As Integer
For i=1 To 10
a(i)=Int(Rnd*100)
Next
x=InputBox("输入100以内的整数:"):p=0
For i=1 To 10
If a(i)=x Then
p=i:Exit For
End If
Next
If p=0 Then
Print"没有找到与输入数据相同的数!"
Else
Print Str(x)+"在数组中的位置是"+Str(p)
End If
End Sub
对于上述事件过程，以下叙述中正确的是
A. 本程序实际产生的随机数是0-99
B. 若产生的随机数中有相同数，则p是其中最后一个数的位置
C. 程序有错，p的初值设置不对
D. 程序有错，InputBox函数产生的数据与x的类型不匹配
8. 窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的
程序如下：
Private Type x
a As Integer:b As Integer
End Type
Private Sub Command1_Click()
Dim y As x
y.a=InputBox("")
If y.a2=y.a/2 Then
y.b=y.a*y.a
Else
y.b=Fix(y.a/2)
End If
=y.b
End Sub
对以上程序，下列叙述中错误的是
A. x是用户定义的类型
B. InputBox函数弹出的对话框中没有提示信息
C. 若输入的是偶数，y.b的值为该偶数的平方
D. Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回
9. 窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode)):=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是
A. A B. a
C. C D. c
10. 窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，
在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：
Private Sub Command1_Click()
=UCase(Mid(, 5, 4))
End Sub
在Text2中显示的是
A. form B. list
C. FORM D. LIST
11. 窗体上有1个名称为Command1的命令按钮，事件过程如下：
Private Sub Command1_Click()
m=-3.6
If Sgn(m)Then
n=Int(m)
Else
n=Abs(m)
End If
Print n
End Sub
运行程序，并单击命令按钮，窗体上显示的内容为
A. -4 B. -3
C. 3 D. 3.6
12. 设有如下程序：
Private Sub Form_Click()
num=InputBox("请输入一个实数"):p=InStr(num, ".")
If p＞0 Then
Print Mid(num, p+1)
Else
Print"END"
End If
End Sub
运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出“END”；
否则
A. 用字符方式输出该实数 B. 输出该实数的整数部分
C. 输出该实数的小数部分 D. 去掉实数中的小数点，保留所有数码输出
13. 在窗体上画一个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load()
Text!.Text="":us
End Sub
Private Sub Form_Click()
Dim a As String, s As String
a=:s=""
Fork=1 To Len(a)
s=UCase(Mid(a,k,1))+s
Next k
=s
End Sub
程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容
A. 与原字符串相同
B. 与原字符串中字符顺序相同，但所有字母均转换为大写
C. 为原字符串的逆序字符串，且所有字母转换为大写
D. 为原字符串的逆序字符串
14. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$=InputBox("请输入一个二进制数")
n=Len(a$)
For i=1 To n
Dec=Dec*2+______(a$,i,1)
Next i
Print Dec
End Sub
程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进
制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在
横线处填入的内容是
A. Left B. Right
C. Val D. Mid
15. 以下程序的功能是随机产生10个两位的整数：
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer, i As Integer
Randomize
For i=1 To 10
a(i)=Int(Rnd*100)+1
Print a(i)
Next i
End Sub
运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是
A. a(i)=Int(Rnd*100)
B. a(i)=Int(Rnd*90)+10
C. a(i)=Int(Rnd*100)+10
版权声明：本文标题：二级VISUALBASIC-77_真题-无答案 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711480627a596232.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论