[计算机类试卷]国家二级VB机试(选择题)模拟试卷171及答案与解析.doc
《[计算机类试卷]国家二级VB机试(选择题)模拟试卷171及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(选择题)模拟试卷171及答案与解析.doc(22页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(选择题)模拟试卷 171及答案与解析 一、选择题 1 在窗体上画两个文本框,其名称分别为 Text1和 Text2,然后编写如下程序: Private Sub Form_Load() Text1 Text=“: Text2 Text=” : Text1 SetFocus End Sub Private Sub Text1_Change() Text2 Text=Mid(Text1 Text, 6) End Sub 程序运行后,如果在文本框 Text1中输入 ChinaBeijing,则在文本框 Text2中显示的内容是 ( A) ChinaBeijing ( B) Chin
2、a ( C) Beijing ( D) ChinaB 2 设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String strL As Integer tStr=“ strL=Len(xStr)i=1 Do While i0 Then PrintMid(num, P+1) Prim“END” End If 运行程序单击窗体,根据提示输入一个数值。如果不是输入实数,则输出 “END”;否则 ( A)用字符方式输出该实数 ( B)输出该实数的整数部分 ( C)输出该实数的小数部分 ( D)去掉实数中小数点,保留所
3、有数码输出 11 在窗体上画一个文本框,名称为 Textl,然后编写如下程序: Private Sub Form Load0 Private Sub Form Click() Text1 Text=“”: Textl SetFocus Dim a As String s As String End Suba=Textl Text: s=“” For k=1 To Lena=UCase(Mid(a, k, 1)+s Next k Text1 Text=s End Sub 程序运行后,在文本框中输入一个字符串,然后单击窗体,则文本框中 ( A)与原字符串相同 ( B)与原字符串中字符顺序相同,但所
4、有字母均转换为大写 ( C)为原字符串的逆序字符串,且所有字母转换为大写 ( D)为原字符串的逆序字符串 12 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl Click() aS=InputBox(“请输入一个二进制数 ”) n=Len(aS) For i=1 To n Dec: Dec*2+_(a$, i, 1) Next i Print Dec End Sub 程序功能为:单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个二进制数,并单击 “确定 ”按钮,则把该二进制数转换为等值的十进制数。这个程序不完整,应在横线处填入的内容是 (
5、A) Left ( B) Right ( C) Val ( D) Mid 13 以下程序的功能是随机产生 10个两位的整数: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer,iAs 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)
6、a(i)=Int(Rnd*100)+10 ( D) a(i)=Int(Rnd*101) 14 窗体上有一个名称为 Cornmandl的命令按钮, 单击该按钮时所实现的功能是产生 10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Coinmandl_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
7、i=1 To ( A)本程序实际产生的随机数是 0-99 ( B)若产生的随机数中有相同数,则 P是其中最后一个数的位置 ( C)程序有错, P的初值设置不对 ( D)程序有错, InputBox函数产生的数据与 x的类型不匹配 15 窗体上有一个名称为 Textl的文本框,一个名称为 Command1的命令按钮。窗体文件的程序如下: Private Type x aAs Integer: bAs Integer End Type Private Sub Command1 Click() Dim y As x y a: InputBox(“) Ify a 2=y a 2 Then y b=y
8、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的小数部分四舍五入,转换为整数返回 16 窗体上有两个名称分别为 Text1、 Text2的文本框。 Text1的 KeyUp事件过程如下; Private Sub Textlj(eyUp(KeyCode As Integer,Shift As Integer) Dim
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 选择题 模拟 171 答案 解析 DOC
