(1)该程序除窗体外使用了______(填数字)个对象。
(2)为实现上述功能,请在画线处填入合适的代码。
Private Sub Command1_Click()
Timer1.Enabled=______①
End Sub
Private Sub Timer1_Timer()
Dim s As String,c As String
Dim a As Integer,e As Integer,h As Integer
Randomize
s=“”
For a=1 To 30
E=Int(Rnd()*52+1)
If e<=26 Then
H=e+64
Else
H=______②
End If
c=______③
s=s+c
Next a
List1.AddItem s
End Sub
(3)为了减缓字符串的出现速度,可将Timer1的Interval属性值______(填字母:A.调大/B.调小)。
【答案】
(1)4 (1分)
(2)①True (1分)
②e+70 (1分)
③Chr(h) (1分)
(3)A (1分)
【本题解析】
本题考查VB程序语言基础知识。(1)除了窗体Forml以外,其他对象还有Listl、Commandl、标签框以及定时器Timer1共4个,注意Timer1在程序运行时不可见。(2)①启动定时器,其相应的代码是Timer1.Enabled=True。②该程序段的功能是生成范围为[1,52]的随机数e,经过处理后e的值分别对应大小写字母的ASCII码值范围。Else的情况属于小写字母,e的初始值是27,处理后要对应于97,因此h= e+70。③此处的功能是将ASCII码值h转换为字母,需要调用Chr()函数,故答案是Chr(h)。(3)定时器的Interval属性是毫秒数,其值越小则频率越高,为了减缓字符串出现的速 度,可以将该值调大,故答案是A。