上海市计算机二级vb试题及答案,上海计算机二级vb模拟题

上海计算机二级vb模拟题

(6页)

本资源提供全文预览，点击全文预览即可全文预览,如果喜欢文档就下载吧，查找使用更方便哦！

19.90 积分

一、选择题一、选择题 1.1.下列赋值语句下列赋值语句____________是是 有效的。有效的。 A.last=y/0 B.x+2=x+2 C.sum=sum - sum D.x+y=sum 2.2.能产生能产生1010到到7070(包含(包含1010与与7070)之间的随机整数的表达是)之间的随机整数的表达是 A.Int(Rnd*61+10) B.Int(Rnd*60+10) C.Int(Rnd*70) D.Int(Rnd*71) 3.3.可作为可作为VBVB变量名的是变量名的是 A．?xy B.4a C.a#a D.con sta 4.4.设在设在VBVB菜单编辑器中，定义了一个子菜单项名为菜单编辑器中，定义了一个子菜单项名为MenullMenull为了让其降一级菜单，应为了让其降一级菜单，应 使用的按钮是使用的按钮是 A．↑ B. ← C.→ D.↓ 5.5.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件 A．MouseDown B.click C.Load D.Mouseup 6.6.以下关于文本框的叙述中正确的是以下关于文本框的叙述中正确的是 A．当文本框的Enabled属性为Ture时，其Tab顺序不起作用 B．如果文本框的TabStop属性为False，则不能接受从键盘上输入的数据 C．可以用文本框的TabIndex属性改变Tab的顺序 D．当文本框获得焦点是触发lostfocus事件 7.7.以下控件中以下控件中____________没有没有setfocussetfocus方法方法 A．Command Button B.checkbox C.Label D.Textbox 8.8.下面语句正确的是下面语句正确的是____________ A．If X!=Y Then Print “x不等于y” B．If X≠Y Then Print “x不等于y” C．If X＞＜Y Then Print “x不等于y” D．If X＜＞Y Then Print “x不等于y” 9.9.若要获得列表框中被选中的列表项的内容可以直接通过访问若要获得列表框中被选中的列表项的内容可以直接通过访问____________属性来实现属性来实现 A．listcount B.Text C.Name D.ListIndex 10.10.在在VBVB代码书写中，如果一行太长需续行可以在末尾增加标记代码书写中，如果一行太长需续行可以在末尾增加标记 A．空格- B.空格+ C.空格& D.空格____二、填空题二、填空题 1 1 在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对窗体的在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对窗体的 ____________________ 属性进行设置。属性进行设置。 2 2 设设x x =“ABC“+=“ABC“+ Space(10)+“123“Space(10)+“123“，语句，语句y=y= Len(x)Len(x)执行后执行后y y的值为的值为________________________。。 3 3 将滚动条将滚动条HScrollBar1HScrollBar1的滑块位置所在的值显示在文本框的滑块位置所在的值显示在文本框Text1Text1中，可用语句：中，可用语句： Text1.TextText1.Text = = HScrollBar1._____________HScrollBar1._____________。。 4 4 写出表示写出表示x x是是5 5或或7 7的倍数的的倍数的VBVB表达式表达式________________________。。 5 5 在窗体上有一组合框控件在窗体上有一组合框控件MyComboMyCombo。在程序运行时，如果要删除该控件中的所有。在程序运行时，如果要删除该控件中的所有 项目内容，可以执行项目内容，可以执行 ________________________命令。命令。 6 6 当复选框未被选中时当复选框未被选中时, ,复选框复选框ValueValue属性的值为属性的值为________________________。。7 7 设置时钟触发事件的时间间隔用设置时钟触发事件的时间间隔用____________________属性。属性。三 完成 1 程序功能是对给定的一串单词，用逗号分隔输出到文本框中，将这些单词按ASCII码从 小到大排序，并在单词后加上“ * “号显示在标签中，如图所示。Private Sub Command1_Click()Dim i%, j%, n%, t$, str()str = Array(“my“, “book“, “basic“, “all“, “good“)Text1.Text = ““n =_________For i = 0 To nText1.Text = Text1 & str(i) & “, “Next iFor i = 0 To n - 1min =iFor j = _________ To nIf str(j) = 0 Then ' 两个实根delt = Sqr(delt)Label1.Caption = “X1=“ & (-b + delt) / 2 / a & vbCrLflabell.Caption = “X2=“ & (-b - delt) / 2 / aElseLabel1.Caption = “无实根“End If五、编程题五、编程题(36分) 1．在Form1窗体上放置通用对话框CommonDialog1，列表框List1、List2和文本框Text1。 设置文本框为多行。按下表建立菜单。 菜单标题菜单名称备注 应用Menu1一级菜单 …读文件Menu11二级菜单 …直观显示Menu12二级菜单…-bar分隔线…退出Menu13二级菜单 窗体2Menu2一级菜单 在Form2窗体上放置标签Label1和Label2，时钟控件Timer1，放置“记录“和“返回“两个命令按 钮。((1010分)分) 2．单击“读文件“菜单项，利用通用对话框，从“scoredata.Txt“数据文件中读出姓名和成绩， 分别添加到列表框List1和List2中((6 6分)分) ；单击“直观显示“菜单项，将List2中的每项成绩值附 加对应3级制的评定显示在Text1；单击List1中的某一姓名，列表框List2同步显示相应的成绩， 反之亦然。 ((6 6分)分) 百分制成绩与3级制对应关系：[80，100]为 优良，[60，80)为合格，[0，60)为不及格。3．单击“窗体2“菜单项时，显示Form2窗体，并隐藏Form1窗体；单击“退出“菜单项时， 结束程序的运行((2分)分) 。 4．进入Form2窗体，Label1动态显示当前时间，精确到0.1秒，并能从右向左循环移动((4 4 分)分) ；单击“记录“按钮，截取当前时间中的秒，如样例添加到Label2中(4分) ；单击“返回“按 钮，关闭当前窗体，返回到Form1。 ((1分)分) 5．在C:\ks目录下将工程保存为C.vbp、Form1窗体为C1.frm、Form 2窗体为C2.frm。 (文件名中符号1是数字1，不是字母L) 。(3分分) 关 键 词： 上海 计算机 二级 vb 模拟

 天天文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。