Private Sub Command1_Click()
Dim x As String
x = ""
For i = 0 To 25
x = x & zimu(i) & vbCrLf
Next
RichTextBox1.Text = x
End SubFunction zimu(ByVal i As Integer) As String
zimu = String(30, Chr(i Mod 26 + 65)) & vbCrLf
End Function
Dim x As String
x = ""
For i = 0 To 25
x = x & zimu(i) & vbCrLf
Next
RichTextBox1.Text = x
End SubFunction zimu(ByVal i As Integer) As String
zimu = String(30, Chr(i Mod 26 + 65)) & vbCrLf
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货