vb题库4套

试卷编号：8950 所属语言：Visual Basic 试卷方案：09-10-2《程序设计基础—VB》模拟 试卷总分：100分 共有题型：6种
一、判断 共5题 （共计10分） 第1题 （2.0分） 在Sub过程中,可以用Return语句退出Sub过程.
答案：Y
第2题 （2.0分） 命令 Picture 1.Circle(500,800),800 能够在图片框Picture 1 中画出的图形是圆心在 (500,800)的一个圆.
Private Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a>100 print a
End Sub
A:100 B:120 C:201 D:101
答案：D
第9题 （2.0分） 文件号最大可取的值为 A:255 B:511 C:512 D:256
If n = m Then x(n, m) = 1 Else x(n, m) = 0
'**********FOUND********** Next n, m For n = 1 To 3 For m = 1 To 3
'**********FOUND********** Print x(m, n)
Next m Print Next n End Sub
四、程序改错 共1题 （共计10分） 第1题 （10.0分） '-----------------------------------------------'【程序改错】 '------------------------------------------------
'题目：以下程序用于建立一个三行三列的矩阵，使其两
第19题 （2.0分） 为了 在按下回车键时执行某个命令按钮的事件过程,需要把该命令 按钮的一个属性设置为True,这个属性是(). A:Value B:Default C:Cancel D:Enabled
答案：B
第20题 （2.0分） 窗体设计器是用来设计(). A:应用程序的代码段 B:应用程序的界面 C:对象的属性 D:对象的事件
Dim a(1 To 3, 4) As Integer
Print LBound(a, 1), UBound(a, 1), LBound(a, 2), UBound(a, 2)
End Sub
A:1 3 B:0 3 C:1 3 D:0 3
04 14 14 04
答案：A
第5题 （2.0分） 要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是 A:Timer1.Visible=False B:Timer1.Enabled=False C:Timer1.Interval=1000 D:Timer1.Index=0
答案：B
第6题 （2.0分） 形状控件所显示的图形不可能是(). A:圆 B:椭圆 C:圆角正方形 D:等边三角形
答案：D
第7题 （2.0分） 可用来改变坐标度量单位的是 A:Drawstyle属性 B:DrawWidth属性 C:Scale方法 D:ScaleMode属性
答案：D
第8题 （2.0分） 以下程序的输出结果是______.
'
9;-----------------------------------------------Option Explicit Private Sub Form_Click() Dim x(3, 3), n As Integer, m As Integer
For n = 1 To 3 For m = 1 To 3 '**********FOUND**********
=======(答案3)======= Print x(n, m); =========或========= Print x(m, n);
五、程序设计 共1题 （共计20分） 第1题 （20.0分） '------------------------------------------------'【程序设计】 '-------------------------------------------------
Print iA(m); Next m Print Next i End Sub
答案：
=======(答案1)======= k =========或========= k%
=======(答案2)======= i+1 =========或========= 1+i
=======(答案3)======= k=j =========或========= k%=j
答案：B
第10题 （2.0分） 决定控件上文字的字体、字形、大小、效果的属性是(). A:Font B:Caption
C:Name D:Text
答案：A
第11题 （2.0分） 下面是()合法的字符常数. A:ABC$ B:"ABC" C:'ABC' D:ABC
答案：B
第12题 （2.0分） 在下面关于窗体事件的叙述中,错误的是 A:用Hide方法不但可以隐藏窗体,而且可以清除 内存中的窗体 B:在多重窗体的程序中,各窗 体的德菜单是彼此独立的 C:对于多重窗体,需要单独保 存每个窗体 D:Resize事件在窗体的大小有 所改变时被触发
答案：C
第15题 （2.0分） 用键盘的光标键选中某一菜单项,并按回车将触发菜单的()的事件. A:KeyPress B:KeyDown C:Click D:KeyUp
答案：C
第16题 （2.0分） 工程资源管理器窗口中包含的文件类型有()种. A:2 B:3 C:4 D:5
答案：C
第17题 （2.0分）
答案：Y
第3题 （2.0分） Visual Basic程序的运行,仅能从某一窗体启动,如Form1窗体.
答案：N
第4题 （2.0分） 用For循环写的程序不能用While循环来写.
答案：N
第5题 （2.0分） Visual Basic的工程文件的扩展名为frm
答案：N
二、单项选择 共20题 （共计40分） 第1题 （2.0分） 下列多分支选择结构的Case语句,写法错误的是().
----------------------
六、VB窗体设计 共1题 （共计10分） 第1题 （10.0分） -------------------------------------------------------------------【窗体设计】 -------------------------------------------------------------------题目：请按照题目要求设计指定的窗体。
答案：
=======(答案1)======= If n = m Or m = 3 + 1 - n Then x(n, m) = 1 Else x(n, m) =0 =========或========= If n = m Or m = 1 - n + 3 Then x(n, m) = 1 Else x(n, m) =0 =========或========= If n = m Or m = 1 + 3 - n Then x(n, m) = 1 Else x(n, m) =0 =========或========= If n = m Or m = - n + 1 + 3 Then x(n, m) = 1 Else x(n, m) = 0 =========或========= If n = m Or m = - n + 3 + 1 Then x(n, m) = 1 Else x(n, m) = 0 =========或========= If n = m Or m = 3 - n + 1 Then x(n, m) = 1 Else x(n, m) =0 =========或========= if n = m or m = 3 - n + 1 then x(n,m) = 1 else x(n,m) = 0 =========或========= if n = m or m = 4 - n then x(n,m) = 1 else x(n,m) =0
A:Case 1,5,7,9 B:Case 8 To 12 C:Case Is < "Man" D:Case 5 To 2
答案：D
第2题 （2.0分） 如果Form1是启动窗体,并且Form1的Load事件过程中有语句Form2.Show, 则程序启动后(). A:发生一个运行时错误 B:发生一个编译错误 C:在所有的初始化代码运行后Form1是活动窗体 D:在所有的初始化代码运行后Form2是活动窗体
答案：C
第13题 （2.0分） 下列叙述正确的是(). A:对象是包含数据又包含对象数据进行操作的方法的物理实体 B:对象的属性只能在属性窗口中设置 C:不同的对象能识别不同的事件 D:事件过程都要由用户点击对象来触发
答案：C
第14题 （2.0分） 下面关于随机文件的描述正确的是 A:文件中的内容是通过随机数产生的 B:文件中的记录号通过随机数 产生 C:可对文件中的记录根据记录号 随机地读写 D:文件的每条记录的长度是随 机的
'题目：求两个数m,n的最大公约数p和最小公倍数q
'-------------------------------------------------
答案：---------------------nm = n * m If m < n Then t = m: m = n: n = t r = m Mod n Do While (r <> 0) m=n n=r r = m Mod n Loop p=n q = nm / n