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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(10) 人氣()