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