楼上两位都没看清题目,小写没了。Private Sub Form_Load()Dim i As Integer, a As StringLabel1.AutoSize = True'设置为允许自动扩大标签控件a = "英文字母与ASCII对照表:" & Chr(13) & Chr(13)For i = 0 To 25a = a & Chr(Asc("A") + i) & " = " & Format(Asc("A") + i, "@@@") & IIf((i + 1) Mod 6, "", vbCrLf)Next ia = a & Chr(13) & Chr(13)For i = 0 To 25
Dim i As IntegerLabel1.AutoSize = True'设置为允许自动扩大标签控件Label1.Caption = ""For i = 0 To 25If Int(i / 6) = (i / 6) Then Label1.Caption = Label1.Caption & vbCrLfIf i = 0 Or Int(i