高中信息技术招聘VB编程题可研报告.docVIP

编程题（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，单击命令按钮Command1,使较大的数显示在标签框Label1上 ，较小的数显示在标签框Label2上。 Private Command1_Click Dim M As Integer,N As Integer M Val Text1.Text :N Val Text2.Text If M N Then Label1.Caption M: Label2.Caption N 8、在文本框 Textl 中输入一个字符串，按排列按键 Commandl 将输