VB程序题型总结.doc

1.随机产生一个3位正整数，然后逆序输出。例如，产生734，输出437。提示：利用运算符“Mod”和“\”将一个3位数分离出三个个位数，然后将各位连接成一个逆序的3位数。 Private Sub Button1_Click() Handles Button1.Click Dim a, b, c As Integer Randomize() TextBox1.Text = Int(Rnd() * 900 + 100) a = Val(TextBox1.Text) \ 100 b = (Val(TextBox1.Text) - a * 100) \ 10 c = TextBox1.Text Mod 10 MsgBox(逆序产生的数为： c b a) End Sub 2.编写一个程序， 输入a、b、c三个数，要求按由大到小的顺序显示 Private Sub Button1_Click() Handles Button1.Click Dim a, b, c, t As Single a = TextBox1.Text b = TextBox2.Text c = TextBox3.Text If a b Then t = a : a = b : b = t If a c Then t = a : a = c : c = t If b c Then t = b : b = c : c = t MsgBox(a b c) End Sub 4.利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为M只鸡和兔，鸡和兔的总脚数为N只，求鸡和兔各有多少只？ Private Sub TextBox2_LostFocus() Handles TextBox2.LostFocus Dim x, y, M, N As Integer M = Val(TextBox1.Text) N = Val(TextBox2.Text) If N Mod 2 0 Then MsgBox(输入的总脚数非偶数，请重新输入, , 提示) y = N / 2 - M x = M - y If x 0 Or y 0 Then MsgBox(求得的解是荒唐解，请重新输入数据！, , 提示) Else Label2.Text = x Space(4) y End If End Sub 自己的思路（答案是对的）： Private Sub Button1_Click() Handles Button1.Click Dim x, y, M, N As Integer M = TextBox1.Text N = TextBox2.Text If (4 * M - N) / 2 Mod 1 = 0 And (N - 2 * M) / 2 Mod 1 = 0 Then x = (4 * M - N) / 2 y = (N - 2 * M) / 2 MsgBox(鸡有 x 只；兔子有 y 只) Else MsgBox(请重新输入M,N) End If End Sub 5.用单循环显示有规律图形，如图所示。 Private Sub Button1_Click() Handles Button1.Click Dim s As String = ★★★★★★★★★★★★★★★★★★★★ Dim zs As String Dim i As Integer Label1.Text = For i = 0 To 9 Step 1 zs = Mid(s, 1, 2 * i + 1) Label1.Text = Space(18 - 2 * i) zs vbCrLf Next End Sub 自己的方法（答案正确）：