真题答案

Trans过程；在Trans过程中以num作为Do While的循环条件；在循环体中，调用Mod函数，将num的个位数字与k相乘，然后赋给k，第一次循环时，num的值是789，所以k的值为9，执行num = num ＼ 10后，num的值为78，循环三次后，num变为0，退出循环，k值等于9×8×7＝504，并将k的值作为返回值；当输入“987”或“879”时执行相同的操作，结果都为504。可以看出，此程序可用于求一个数值各位上数值的乘积。

(4) 下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
Randomize
Dim a(10)
For j=1 To 10
a(i) =Int( 【8】(99*Rnd)+1 )
If 【9】a(j)Mod5=0 Then k=k + 1
Print a(j)
Next j
Print
Print k / 10
End Sub
解析： 小于100的随机正整数用(99 * Rnd）+ 1来表示；求倍数用取模来表示，即a(j) Mod 5 = 0，用k作计数器，累计计算能被5整除的数的个数。
(5) 完成下面的程序，使显示结果如下图所示。
Private Sub Form_Click()
FontSize=18
Sample＄=" 【10】Wecome to Beijing! "
x=(ScaleWidth-TextWidth(Sample＄) ) /2
y=(ScaleHeight-TextHeight(Sample＄) ) /2
CurrentX=x
CurrentY=y
【11】Print Sample＄
End Sub


(6) 下列程序的功能是：当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，没有意义。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值！")
【12】 Select Case x
Case Is < 50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【13】 Case Else
Print "输入的数据出界！"
End Select
Print x, y
End Sub
(7) 下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量：
Dim PaintStart As Boolean
编写如下事件过程：
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【14】PaintStart=True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【15】PaintStart=False
End Sub
Private Sub Form_DblClick()
【16】Cls
End Sub
(8) 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗
体，程序如下：
Private Sub Command1_Click()
【17】Me.Hide或者Form1.Hide或者Unload Me
Form2. 【18】Show
End Sub
试补充完整。
(9) 以下程序的功能是从键盘输入若