以下程序中,单击按钮“Command1”后,在Text1中随机生成了由数字0~9组成的20位随机数字。
同时,在Text2中对该数字进行“加密”,加密规则为:对于每一位数字,加上5,结果保留个位。程序运行界面如图所示。
(1)
若要将按钮上的文本修改为“转换”,则应修改Command1对象上的属性。
(2)
实现以上功能的VB程序如下,请在画线处填入合适的代码。
Private Sub Command1_Click( )
Dim s1 As String, s2 As String, c As String
Dimi As Integer, s As Integer
For i=1 To 20
s1=s1+ ①
Next i
Text1. Text=s1
For i=1 To 20
c=Mid(s1, i, 1)
s= ②
s2=s2 & s
Next i
Text2. Text=s2
End Sub
以上程序段运行时,为了实现上述功能,画线处应填入的代码分别为:①;②。
(3)
若此程序仅生成4位数字7894,其他规则不变,则输出的结果为。
答案: 【1】Caption
【1】Int(Rnd*10)【2】(Val(c)+ 5)Mod 10
【1】2349