使用VB编制一个程序，实现以下功能：输入一个小于100的正整数.

VB编写程序实现以下功能：设有一个二维数组A(4，4)，每个数组元素为两位的随机正整数[10,100)。~

交换数据界面，下面是交换数据代码：
Private Sub Command1_Click()'交换第二列和第四列Text1.Text = ""Text2.Text = ""Label1.Caption = ""Dim AA(1 To 4, 1 To 4) As Integer, BB(1 To 4, 1 To 4) As IntegerText1.Text = "交换前的数据" & vbCrLfFor I = 1 To 4 For J = 1 To 4 Randomize AA(I, J) = Int(Rnd * 89 + 11) BB(I, J) = AA(I, J) Text1.Text = Text1.Text & AA(I, J) & Space(2) '显示交换前的数据 Next J Text1.Text = Text1.Text & vbCrLfNext IFor I = 1 To 4 For J = 1 To 4 If J = 2 Then BB(I, J + 2) = AA(I, J) '将第二行数据存储到第四行 ElseIf J = 4 Then BB(I, J - 2) = AA(I, J) '将第四行数据存储到第二行 End If Next JNext IText2.Text = "交换后的数据" & vbCrLfFor I = 1 To 4 For J = 1 To 4 Text2.Text = Text2.Text & BB(I, J) & Space(2) '显示交换后的数据 Next J Text2.Text = Text2.Text & vbCrLfNext IEnd Sub
查找字符界面，下面是统计字符的代码：
Private Sub Command2_Click()'统计结果Label1.Caption = ""Dim XX As String, YY As String, KK As Integer, DD() As String, KK1 As IntegerXX = Text1.TextYY = Text2.TextIf Len(XX) 1 Then MsgBox "文本框2输入的字符必须是1个字符！" Exit SubEnd IfKK = Len(XX)ReDim DD(1 To KK)KK1 = 0For I = 1 To KK DD(I) = Right(Left(XX, I), 1) If Asc(DD(I)) = Asc(YY) Then KK1 = KK1 + 1Next ILabel1.Caption = "文本框1中包含" & YY & "字符有" & KK1 & "个。"End Sub

Private Sub Command1_Click() Dim x As Integer x = Text1 While x > 0 s = s + x Mod 10 x = x \ 10 If x = 0 And s > 9 Then x = s s = 0 End If Wend Text2 = sEnd SubPrivate Sub Form_Load() Text1 = "" Text2 = "" Command1.Caption = "求数根"End Sub

Private Sub Command1_Click()

Dim n As Integer

n = 200

Do While n > 100 Or n < 0

n = InputBox("请输入一个小于100的正整数:")

Loop

MsgBox ("√" & n & "=" & Sqr(n))

End Sub

private sub form_click()
dim a as integer
dim b as single
do while 1
a=int(Val(inputbox("Enter", "请输入一个小于100的正整数",25)))
if a>0 and a<100 then exit do
loop
b=sqr(a)
msgbox a & "的平方根是：" & b
end sub
有什么问题请留言。

---

使用VB编制一个程序，实现以下功能：输入一个小于100的正整数.视频