vb程序设计(含答案).doc

1、编写程序，将26个字母逆序输出。 教材p87 【例4-15】 2、编写程序，在窗体上随机输出一个10--99之间的两位整数。 Private Sub Form_Click() cl Randomize Print Int(Rnd() * 90) + 10 End Sub 3、在窗体的单击事件中编写程序，从键盘输入3个数，按从小到大的顺序输出到窗体上。 Private Sub Form_Click() cls a = Val(InputBox(a=)) b = Val(InputBox(b=)) c = Val(InputBox(c=)) If a b Then t = a: a = b: b = t End If If a c Then t = a: a = c: c = t End If If b c Then t = b: b = c: c = t End If Print 按从小到大排序后的结果:; a; 、; b; 、; c End Sub 4、编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。 Private Sub Command1_Click() Static i As Integer i = i + 1 Select Case i Case 1 Form1.Caption = 今天是星期一 Case 2 Form1.Caption = 今天是星期二 Case 3 Form1.Caption = 今天是星期三 Case 4 Form1.Caption = 今天是星期四 Case 5 Form1.Caption = 今天是星期五 Case 6 Form1.Caption = 今天是星期六 Case 7 Form1.Caption = 今天是星期日 i = 0 End Select End Sub 5、编写程序，将字符串山高人为峰按逆序峰为人高山输出。 Private Sub Command1_Click() cls s = 山高人为峰 s1 = For i = Len(s) To 1 Step -1 s1 = s1 Mid(s, i, 1) Next Print s1 End Sub 6、使用文本框输入长方形的长和宽,用MsgBox输出长方形的周长和面积. Private Sub Form_Click() l = Val(Text1.Text) h = Val(Text2.Text) MsgBox 长是 + Str(l) + 宽是 + Str(h) + _ 的长方形 + Chr(10) + 面积是: + Str(l * h) + _ Chr(10) + 周长是: + Str(2 * (l + h)) End Sub 7、 输入x，计算y的值。其中：y=1+3x (x=0); y=1-5x (x0)。 Private Sub Form_Click() cls x = Val(InputBox(x=)) If x = 0 Then y = 1 + 3 * x Else y = 1 - 5 * x End If Print x=; x; 时y=; y End Sub 8、在窗体的单击事件过程中，编写程序计算1！+2！+3！+ … +15! 9、编程计算从200到1000之间的所有4的倍数之和。 Private Sub Form_Click() cls Sum = 0 For i = 200 To 1000 Step 4 Sum = Sum + i Next Print 200-1000中4的倍数和是:; Sum End Sub 10、编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4个数的和及平均值。 Private Sub Form_Click() cls Sum = 0 For i = 1 To 4 x = Val(InputBox(接收4个数)) Sum = Sum + x Next Print 和是; Sum Print 平均值是; Sum / 4 End Sub 11、编写程序, 点击命令按钮Command1时，两个文本框text1与text2中的内容进行交换。 Private Sub Command1_Click() t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub 12、用InputBox函数