点击下载此附件
Private Sub 乘法口诀_Click()
Dim I, J As Long
Dim A, B, C As String
For I = 1 To 9 '1到9的数字
A = I & ": " '用数字做序号,循环时用来将表达式复位。不需要序号可以设为 “A = Null”
For J = 1 To I '计算乘法表达式数量,数字是3就有3个表达式
B = J & "×" & I & "=" & J * I '显示乘法表达式,比如“1×3=3”
A = A & B & " " '将表达式连成行,以空格相隔。比如“1×3=3 2×3=6 3×3=9”
Next J '下一个表达式
C = C & A & Chr(13) & Chr(10) & Chr(13) & Chr(10) '连成一行的表达式换行
Next I '下一个数字
Me.Text1 = C & "在水一方 QQ:1206198663"
' MsgBox Me.Text1, , "乘法口诀" '运行模块,输出结果
End Sub
Private Sub 英文字母_Click()
Dim II, JJ As Long
Dim AA, BB, CC, DD, EE As String
For II = 65 To 90 '对应“A-Z”
JJ = II + 32 '对应“a-z”
AA = Chr(II) '大写字母
BB = Chr(JJ) '小写字母
CC = CC & " " & AA '大写字母字符串
DD = DD & " " & BB '小写字母字符串
EE = EE & " " & AA & BB '大小写字母混合字符串
Next II
Me.Text1 = "大写英文字母:" & CC & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"小写英文字母:" & DD & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"混合英文字母:" & EE & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"并排英文字母:" & CC & Chr(13) & Chr(10) & " " & _
DD & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"在水一方 QQ:1206198663"
' MsgBox Me.Text1, , "英文字母" '运行模块,输出结果
End Sub