刘亮VB编程题.doc

编程题（40题） 1、在文本框Text1中输入一个正整数N，按“计算”命令按钮Command1，产生N个0 ~ 100之间的随机整数，计算这N个随机整数的平均数，显示在标签Label1中。 将编写的程序存盘，工程文件名为Ex12nnnn.Vbp，窗体文件名为Ex12nnnn.Frm。 （当N足够大时，该平均值应趋向于50）。 Ex12nnnn.Vbp Ex12nnnn.Frm Private Sub Command1_Click ( ) N = Val (Text1.Text) Sum = 0 For k = 1 To N V = Int ( Rnd * 101 ) Sum = Sum + V Next k Label1.Caption = Sum / N End Sub 2、在文本框Text1中输入一正整数N，按“计算”命令按钮Command1，计算该数的阶乘N!，结果显示在标签框Label1中。按“结束”命令按钮Command2 结束程序。 Private Sub Command1_Click（） Private Sub Command2_Click（） N = Val (Text1.Text) End P = 1 End Sub For k = 1 To N P = P * k Next k Label1= P End Sub 在文本框 Text1中输入一个字符串，按“排列”按钮 Command1， 将输入字符串中每两个相邻的字符之间插入一个空格，结果显示在标签框Label1 中。按“结束”命令按钮Command2结束程序。 Private Sub Command1_Click（） Private Sub Command2_Click（） X = Text1.Text End L = Len (X) End Sub W = “” For k = 1 To L-1 V = Mid (X, k, 1) W = W + V + “ ” Next k W = W + Right (X,1) Label1.Caption = W End Sub 4、编写程序，从键盘输入任一x的值，求分段函数的值（可用InputBox函数）。 Private Sub Form_Click() Dim x As Double, y As Double x = Val(InputBox(Input x )) If x 0 Then y = 2 * x ElseIf x 0 Then y = Abs(x) Else y = 0 End If Print y End Sub 5、定义一个下界为1，上界为10的整数型一维数组A，将10个随机生成的两位数保存到数组A中，并将数组A各个元素显示在窗体上，然后，找出数组A中所有的偶数输出到窗体上。（ Int(Rnd*90)+10 ）。 Private Sub Command1_Click() Dim a%(1 To 10) For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i Print For i = 1 To 10 If a(i) Mod 2 = 0 Then Print a(i); Next i End Sub 6、定义一个下界为1，上界为10的整数型一维数组A，将10个随机生成的两位数保存到数组A中，并将其在窗体上按从小到大的顺序显示成一行。（ Int(Rnd*90)+10 ） Private Sub Command1_Click() Dim a%(1 To 10) For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i Print For i = 1 To 9 For j = i + 1 To 10 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j Next i For i = 1 To 10 Print a(i); Next i End Sub 7、　在文本框Text1和Text2中分别输入任意两个正整数M和N，单击