上海计算机二级VB模拟题

一、选择题1. 下列赋值语句_是 有效的。A.last=y/0 B.x+2=x+2 C.sum=sum - sum D.x+y=sum2.能产生10到70（包含10与70）之间的随机整数的表达是A.Int(Rnd*61+10) B.Int(Rnd*60+10)C.Int(Rnd*70) D.Int(Rnd*71)3.可作为VB变量名的是A?xy B.4a C.a#a D.con sta4.设在VB菜单编辑器中，定义了一个子菜单项名为Menull为了让其降一级菜单，应使用的按钮是A B. C. D.5.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件AMouseDown B.click C.Load D.Mouseup6.以下关于文本框的叙述中正确的是A当文本框的Enabled属性为Ture时，其Tab顺序不起作用B如果文本框的TabStop属性为False，则不能接受从键盘上输入的数据C可以用文本框的TabIndex属性改变Tab的顺序D当文本框获得焦点是触发lostfocus事件7.以下控件中_没有setfocus方法ACommand Button B.checkbox C.Label D.Textbox8.下面语句正确的是_AIf X!=Y Then Print “x不等于y”BIf XY Then Print “x不等于y”CIf XY Then Print “x不等于y”DIf XY Then Print “x不等于y”9.若要获得列表框中被选中的列表项的内容可以直接通过访问_属性来实现Alistcount B.Text C.Name D.ListIndex10.在VB代码书写中，如果一行太长需续行可以在末尾增加标记A空格- B.空格+ C.空格& D.空格_二、填空题1 在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对窗体的 _ 属性进行设置。2 设x =ABC+ Space(10)+123，语句y= Len(x)执行后y的值为_。3 将滚动条HScrollBar1的滑块位置所在的值显示在文本框Text1中，可用语句：Text1.Text = HScrollBar1._。4 写出表示x是5或7的倍数的VB表达式_。5 在窗体上有一组合框控件MyCombo。在程序运行时，如果要删除该控件中的所有项目内容，可以执行 _命令。6 当复选框未被选中时,复选框Value属性的值为_。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 n Text1.Text = Text1 & str(i) & , Next i For i = 0 To n - 1 min =i For j = _ To n If str(j) str(min) Then min =_ End If Next j t = str(i) str(i) = str(min) str(min) = t Next iFor i = 0 To n - 1 min =i For j = _ To n If str(j) str(min) Then min =_ End If Next j t = str(i) str(i) = str(min) str(min) = t Next i Label1.Caption = 排序后的结果： & vbCrLf vbCrLf回车换行 For i = 0 To n Label1.Caption = Label1.Caption & _ Next iEnd Sub2 从键盘输入x值，求出级数的前10项之和，并输出结果。Private Sub Command1_Click() Dim x As Single x = InputBox(请输入X值：) s = 1 t1 = 2 t2 = x t3 = 2 p = -1 For i = 1 To _ s = _ p = -p t1 = t1 + 1 t2 = t2 * x * x t3 = _ Next i Print sEnd Sub3 下述程序的功能是：找出100以内（含100）自然数对，使两个成对的自然数满足其和与差都是平方数，如26和10，其和为36与差为16均为平方数。程序的思想是：函数过程pf判断自然数是否是平方数，对于自然数i,j,调用函数过程pf，若i + j和j-i同时是平方数，则在列表框内显示i,j。Private Sub Command1_Click() For i = 1 To 100 For j = _ To 100 If _ Then List1.AddItem i & & j End If Next j Next iEnd SubPublic Function pf(x As Integer) As Boolean Dim y As Integer, p As Boolean _ If y * y = x Then _ Else p = False End If _End Function四、程序改错题(共10分，每处2分)启动工程文件C:ksexm3.vbp，程序存在5个错误，请调试改正，并按原文件名和位置保存。正确结果见样例。改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。改错题1（Command1_Click()事件）： 随机产生10个大写英文字母存放在数组a中，然后按升序排序输出。程序中有3个错误，请调试改正 Dim a(1 To 10) As String, i As Integer, j As Integer Picture1.Cls Picture1.Print 随机产生10个大写英文字母 For i = 1 To 10 a(i) = Int(Rnd * 26 + 65) Picture1.Print a(i); ; Next i Picture1.Print VbCrlf; 按升序排序输出 For i = 1 To 9 For j = 1 To 10 If a(j) = 0 Then 两个实根 delt = Sqr(delt) Label1.Caption = X1= & (-b + delt) / 2 / a & vbCrLf labell.Caption = X2= & (-b - delt) / 2 / a Else Label1.Caption = 无实根 End If五、编程题（36分）1在Form1窗体上放置通用对话框CommonDialog1，列表框List1、List2和文本框Text1。设置文本框为多行。按下表建立菜单。菜单标题菜单名称备注应用Menu1一级菜单读文件Menu11二级菜单直观显示Menu12二级菜单-bar分隔线退出Menu13二级菜单窗体2Menu2一级菜单在Form2窗体上放置标签Label1和Label2，时钟控件Timer1，放置记录和返回两个命令按钮。（10分）2单击读文件菜单项，利用通用对话框，从scoredata.Txt数据文件中读出姓名和成绩，分别添加到列表框List1和List2中（6分）；单击直观显示菜单项，将List2中的每项成绩值附加对应3级制的评定显示在Text1；单击List1中的某一姓名，列表框List2同步显示相应的成绩，反之亦然。（6分）百分制成绩与3级制对应关系：80，100为 优良，60，80）为合格，0，60）为不及格。3单击窗体2菜单项时，显示Form2窗体，并隐藏Form1窗体；单击退出菜单项时，结束程序的运行（2分）。4进入Form2窗体，