Question

急求大学课程VB6.0试题库！！特别是关于如何编写程序代码的试题

Answer 1

1、如下程序
Private x As Integer
Private Sub Command1_C1ick()
Static y As Integer
Dim z As Integer
n=10
z=n+z
y=y+z
x=x+z
Label1.Caption=x
Label2.Caption=y
Label3.Caption=z
End Sub
（1）运行程序，连续三次单击命令按钮后，则三个标签中显示的内
容分别是（ ）
（A）10 10 10 （B）30 30 30 （C）30 30 10 （D）10 30 30
（2）将Static y As Integer改为Dim y as Integer,则三个标签中
显示的内容为（ ）
（A）10 10 10 （B）30 30 30 （C）30 10 10 （D）10 30 30
（3）程序中使用了几个控件（ ）
（A）1 （B）2 （C）3 （D）4
2、Private Sub Form_Click ( )
Dim title%
title = Val(InputBox (＂请输入一个数＂))
fee = Count1(title)
Print fee
Print title
End Sub
Function Count1(title%) as integer
If title < 40 Then
title = title / 2
Else
title = 2 * title
End If
Count1 = title
End Function
（1）运行时从键盘输入20，输出时fee的结果是 （ ）
（A）10 （B）20 （C）30 （D）显示出错信息
（2）保持键盘输入不变的情况下，将Function Count1(title)改为Function Count1(ByVal title),输出时title的结果是 （ ）
（A）10 （B）20 （C）30 （D）显示出错信息
（3）Count1的类型是 （ ）
（A）Integer （B）Long （C）Variant （D）Boolean
3、Private Sub Command1_Click ( )
Dim n as Integer
n = 12
ReDim a(n)
a = Array (45,2,7,1,13,42,98,0,65,33,0,0)
call fun(a(),n)
Print a(9)
End Sub
Sub fun(a(),n as Integer)
mx = 1
mn = 1
Print UBound(a)
For k = 2 To n-2
If a(k) > a(mx) Then mn =k
If a(k) < a(mn) Then mn = k
Next k
Print mn
a(n-1) = a(mx)
a(n-2) = a(mn)
End Sub
（1）语句Print UBound(a)的结果是（ ）
（A）13 （B）12 （C）11 （D）0
（2）程序运行后a(9)的结果为（ ）
（A）0 （B）33 （C）65 （D）程序出错
（3）程序运行后mn的值为（ ）
（A）12 （B）11 （C）10 （D）9
4、 Dim x0%, y0%
Private Sub picture1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 1 Then
x0 = X: y0 = Y
ElseIf Button = 2 Then
x0 = 0: y0 = 0
ElseIf Button = 4 Then
Cls
End If
End Sub
Private Sub picture1_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 1 Then
rad = Rnd * 2
picture1.PSet(x0,y0)
picture1.Circle(x0,y0), Sqr((x0 - X)^2 + (y0 - Y)^2), , , , rad
ElseIf Button = 2 Then
picture1.Line(x0, y0) - (X, Y), , B
End If
End Sub
(1)程序执行时，在picture1上按下鼠标左键，然后移动一定距离后释放，则（ ）
(A)将清除picture1上的所有图形和文字
(B)将画出一个以鼠标按下点为圆心的椭圆
(C)将画出一个以鼠标按下点为圆心，鼠标按下点到释放点间距离为半径的圆
(D) 将画出一个以鼠标按下点为圆心的扇形
(2)程序执行时，在picture1上单击鼠标右键，则( )
(A)将画出一个以点（0，0）到点（x，y）的直线为对角线的空心矩形
(B)将画出一个以点（0，0）到点（x，y）的直线为对角线的实心矩形
(C) 将画出一条自（0，0）点到鼠标释放点（x，y）的直线
(D) 将清除窗体上的所有图形和文字
(3)程序执行时，在窗体上单击鼠标中键，则( )
(A) 将清除picture1上的所有图形和文字
(B) 将清除窗体上的所有图形和文字
(C) 窗体无变化
(D) 将出现黑屏
5、在D盘有一个名叫test.txt的文件，内容为“Visual basic is easy”
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim strs$, i%, j%, n%, stra$, strb$, count%, t$, strt$()
Open "d:\test.txt" For Input As #1
ReDim strt(LOF(1))
Do While Not EOF(1)
n = n + 1
Input #1, strt(n)
Loop
For i = 1 To n
strs = strs & strt(i)
Next i
For i = 1 To Len(strs)
stra = Mid(strs, i, 1)
strb = Mid(strs, i + 1, 1)
If stra = "s" Then
If strb >= "a" And strb <= "z" Then
count = count + 1
strt(count) = strb + stra
End If
End If
Next i
For i = 1 To count
For j = i To count - i
If strt(j) > strt(j + 1) Then
t = strt(j): strt(j) = strt(j + 1): strt(j + 1) = t
End If
Next j
Next i
For i = 1 To count
Print strt(i)
Next i
Close #1
End Sub
（1）option explicit的作用为（ ）
（A）表明此模块内变量必须先声明后使用
（B）表明此模块没有通用过程
（C）表明此模块的通用过程不能被其他模块调用
（D）表明此模块变量不声明可以直接使用
（2）程序运行后stra的值为（ ）
（A）e （B）a （C）s （D）y
（3）程序运行后count的值应为（ 39 ）
（A）0 （B）3 （C）4 （D）2
（4）窗体上显示的结果为（ 40 ）
（A）is us ys （B）ys us is （C）is is as （D）as ys is