Private Sub Command1_Click()
Dim k, s, i As Integer
Label1.Caption = Text1.Text
For i = 1 To 9
If Val(Text1.Text) <= 9 Then
s = Val(Text1.Text * i)
End If
List1.AddItem ("=" & s)
Next i
End Sub
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
End Sub
q1:我要將command的功能改為在輸入text1後按enter直接執行?
q2:list要如何才能將九九乘法表完整列出?
ps.使用版本vb6.0
Dim k, s, i As Integer
Label1.Caption = Text1.Text
For i = 1 To 9
If Val(Text1.Text) <= 9 Then
s = Val(Text1.Text * i)
End If
List1.AddItem ("=" & s)
Next i
End Sub
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
End Sub
q1:我要將command的功能改為在輸入text1後按enter直接執行?
q2:list要如何才能將九九乘法表完整列出?
ps.使用版本vb6.0
全站熱搜
留言列表