Question

vb编程实现：在文本框内输入一个10以内的正整数n，单击“开始”按钮，判定输入数据的有效性，若越界，

vb编程实现：在文本框内输入一个10以内的正整数n，单击“开始”按钮，判定输入数据的有效性，若越界，给出相关的提示，并重新输入，否则随机产生一个大写字母，以此字母为首字母，连续产生n*n个字母，并给出说明文字。

Answer 1

vb.net的，没有使用vb.net特殊的语句vb应该能看懂
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Regex.Match(TextBox1.Text, "[0-9]").Value <> TextBox1.Text Then MsgBox("输入错误,请重新输入！") : Exit Sub
Dim My_str As String
Dim MyRandom As New Random
My_str = Chr(CInt(MyRandom.Next(65, 91)))
For i = 1 To TextBox1.Text * TextBox1.Text
My_str &= LCase(Chr(CInt(MyRandom.Next(65, 91))))
Next
MsgBox("首字母是 " & My_str.Substring(0, 1) & vbCrLf & "整个字符串是 " & My_str & vbCrLf & "共" & My_str.Length & "个字符")
End Sub
End Class
以上请参考，看是否符合要求.

Answer 2

Private Sub Command1_Click()
Dim n%, s$, j%
s = Chr(Rnd * 25 + 65)
n = Val(Text1.Text)
If n > 10 Then
i = MsgBox("输入错误", vbOKCancel + 16, "警告")
If i = 1 Then
Text1.Text = ""
Text1.SetFocus
ElseIf i = 2 Then

MsgBox "您输入错误，将产生N*N个字母"
For j = 1 To n * n
Print s;
If j Mod n = 0 Then Print
Next j
End If

End If

End Sub

以上，请参考，看是否符合要求.