[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷31及答案与解析.doc
《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷31及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(数据类型及运算)模拟试卷31及答案与解析.doc(19页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(数据类型及运算)模拟试卷 31及答案与解析 一、选择题 1 窗体上有两个名称分别为 Text1、 Text2的文本框。 Text1的 KeyUp事件过程如下: Private Sub Textl_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 2 窗体上有名称分别为 T
2、ext1、 Text2的文本框,名称为 Commandl的命令按钮。运行程序,在 Textl中输入 “FormList”,然后单击命令按钮,执行如下程序: Private Sub Commandl_Click() Text2 Text=UCase(Mid(Text1 Text, 5, 4) End Sub 在 Text2中显示的是 ( A) form ( B) list ( C) FORM ( D) LIST 3 窗体上有 1个名称为 Commandl的命令按钮,事件过程如下: Private Sub Commandl_Click() m=-3 6 If Sgn(m)Then n=Int(m)
3、 Else n=Abs(m) End If Print n End Sub 运行程序,并单击命令按钮,窗体上显示的内容为 ( A) -4 ( B) -3 ( C) 3 ( D) 3 6 4 设有如下程序: Private Sub Form_Click0 num=InputBox(”请输入一个实数 ”): P=InStr(num, ” ”) Ifp0 Then Print Mid(num, P+1) Else Print”END” End If End Sub 运行程序,单击窗体,根据提示输入一个数值。如果输入的不是实数,则程序输出 “END”:否则 ( A)用字符方式输出该实数 ( B)输出该
4、实数的整数部分 ( C) 输出该实数的小数部分 ( D)去掉实数中的小数点,保留所有数码输出 5 在窗体上画一个文本框,名称为 Text1,然后编写如下程序: Private Sub Form_Load() Text1 Text=”: Textl SetFocus End Sub Private Sub Form_Click() Dim a As String, s As String a=Text1 Text: s=” For k=1 To Len(a) s=UCase(Mid(a, k, 1)+s Next k Text1 Text=s End Sub 程序运行后,在文本框中输入一个字符串
5、,然后单击窗体,则文本框中的内容 ( A)与原字符串相同 ( B)与原字符串中字符顺序相同,但所有字母均转换为大写 ( C)为原字符串的逆序字符串,且所有字母转换为大写 ( D)为原字符串的逆序字符串 6 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() aS=InputBox(”请输入一个二进制数 ”) n=Len(a$) For i=1 To n Dec=Dec*2+_(a$, i, 1) Next i Print Dec End Sub 程序功能为:单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个二进制数,并单击 “确
6、定 ”按钮,则把该二进制数转换为等值的十进制数。这个程序不完整,应在横线处填入的内容是 ( A) Left ( B) Right ( C) Val ( D) Mid 7 以下程序的功能是随机产生 10个两位的整数: Option Base 1 Private Sub Commandl_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(
7、i)=Int(Rnd*100) ( B) a(i)=Int(Rnd*90)+10 ( C) a(i)=Int(Rnd*100)+10 ( D) a(i)=Int(Rnd*101) 8 窗体上有一个名称为 Commandl的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Commandl_Click() Dim a(10)As Integer,x As Integer For i=1 To 10 a(i)=Int(Rnd*100) N
8、ext 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的类型不
9、匹配 9 在 Visual Basic中,表达式 3*2 5 Mod 3的值是 ( A) 1 ( B) 0 ( C) 3 ( D)出现错误提示 10 表达式 2*32+4*2 2+32的值是 ( A) 30 ( B) 3 1 ( C) 49 ( D) 48 11 设 a=4, b=5, c=6,执行语句 Print a”XYz” ( B) ”VisualBasic”bc窗体上显示的是 ( A) True ( B) False ( C) 1 ( D)出错 17 要求如果 x被 7除余 2,则输出 x的值,下列语句中不能实现此功能的语句是 ( A) Ifx mod 7=2 Then Print x
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 数据类型 运算 模拟 31 答案 解析 DOC
