上海计算机二级VB模拟题.doc

一、选择题 下列赋值语句______是 有效的。 A.last=y/0 B.x+2=x+2 C.sum=sum - sum D.x+y=sum 2.能产生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 sta 4.设在VB菜单编辑器中，定义了一个子菜单项名为Menull为了让其降一级菜单，应使用的按钮是 A．↑ B. ← C.→ D.↓ 5.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件 A．MouseDown B.click C.Load D.Mouseup 6.以下关于文本框的叙述中正确的是 A．当文本框的Enabled属性为Ture时，其Tab顺序不起作用 B．如果文本框的TabStop属性为False，则不能接受从键盘上输入的数据 C．可以用文本框的TabIndex属性改变Tab的顺序 D．当文本框获得焦点是触发lostfocus事件 7.以下控件中______没有setfocus方法 A．Command Button B.checkbox C.Label D.Textbox 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.若要获得列表框中被选中的列表项的内容可以直接通过访问______属性来实现 A．listcount B.Text C.Name D.ListIndex 10.在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 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)