国家二级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. 为原字符串的逆序字符串修改ip地址
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
C. 49        D. 48
13. 设a=4，b=5，c=6，执行语句Print a<b And b<c窗体上显示的是
二级VBA. True        B. False
C. 出错信息        D. 0
嗨哦14. 以下关系表达式中，其值为True的是
A. XYZ>"XYz"
B. VisualBasic"visualbasic"
C. the="there"
D. Integer<"Int"
15. 把数学表达式表示为正确的VB表达似乎应该是
A. (5x+3)／(2y-6)        B. x*5+3／2*y-6
C. (5*x+3)÷(2*y一6)        D. (x*5+3)／(y*2-6)
16. 下面程序运行时，若输入395，则输出结果是    Private Sub Command1_Click()    Dim x％x=InputBox("请输入一个3位整数")    Print x Mod 10，x＼100，(x Mod 100)＼10    End Sub
A. 3 9 5        B. 5 3 9
C. 5 9 3        D. 3 5 9
17. 设a=2，b=3，c=4，d=5，下列表达式的值是a>b And cc
A. True        B. False
C. -1        D. 1计量单位有哪些
18. 设a=10，b=5，c=1，执行语句Print a>b>c窗体上显示的是
A. True        B. False
C. 1        D. 出错
19. 要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是