VB上机考试习题以及答案Word文件下载.docx

1、If Button = 2 Then Label1.Caption = X & , & YEnd If4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a（1 To 25）Cls a（i） = Int（Rnd * （99 - 10 + 1） + 10） Print a（i）;For i = 1 To 25 - 1 For j = 1 To 25 - i If a（j） a（j + 1） Then tmp = a（j）: a（j） = a（j + 1）: a（j + 1） = tmp5、利用随机函数产生50个 1,6 之间的整数, 分别统计出1的个数，2的个数，3的个

2、数，4的个数，5的个数和6的个数。Dim a（1 To 6）For i = 1 To 6 a（i） = 0For j = 1 To 50 x = Int（Rnd * （6 - 1 + 1） + 1） a（x） = a（x） + 1Next j Print i &出现了 a（i）;次6、在文本框中输入一些英语单词，统计空格的个数。Dim n%, x As String, s%n = Len（Text1.Text）x = Text1.TextFor i = 1 To n If Mid（x, i, 1） = Then s = s + 1Print 共出现了 s &个空格7、编程计算下列公式的值，其中

3、n （10）为从键盘输入的正整数。S=1!+3!+5!+（2*n-1）! Private Sub Form_Click（）n = Val（InputBox（请输入一个不大于10的整数）s = 0For i = 1 To 2 * n - 1 Step 2 p = 1 For j = 1 To i p = p * j s = s + pPrint s8、编程计算下列公式的值，其中n （ max Then max = a（i）: loc = i最大的数是; max在数组中是第 loc;个数14、利用随机函数产生并显示10个4位数的正整数，找出其中的最小数。Dim i%, min%, loc% a（i

4、） = Int（Rnd * （9999 - 1000 + 1） + 1000）min = 9999 If a（i） min Then min = a（i）:最小的数是 min15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。If Button = 1 Then Form1.BackColor = vbRedPrivate Sub Form_MouseUp（Button As Integer, Shift As Integer, X As Single, Y As Single）If Button = 1 Then Form1.BackColor = vbGre

5、en16、编制一个时钟程序，如下图：Label1.BackColor = vbWhiteTimer1.Enabled = TrueTimer1.Interval = 1000Private Sub Timer1_Timer（）Label1.Caption = Time17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。Dim i%Dim a（1 To 10） As Single a（i） = Val（InputBox（请输入第 i &For i = 10 To 1 Step -1 18、计算圆面积的程序。程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示

6、计算出的圆面积。Dim r%, a As SingleConst pi As Single = 3.14159r = Val（InputBox（请输入圆半径 vbCrLf &（1-9）：, 输入, 5）a = pi * r 2半径为 r;的圆面积为 a19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。Select Case True Case Option1.Value Label1.Caption = Time Case Option2.Value Label1.Caption = Format（Time, HH:MM:S

7、S AM/PM）End Select20、设计一个程序，用户界面如图所示。程序运行后，用户在文本框中输入一段文字，然后按需要单击选择框，用以改变文本的字体、字型、颜色以及大小。Private Sub Check1_Click（）If Check1.Value = 1 Then Text1.FontName = 黑体宋体Private Sub Check2_Click（）If Check2.Value = 1 Then Text1.FontUnderline = True Text1.FontUnderline = FalsePrivate Sub Check3_Click（）If Check3

8、.Value = 1 Then Text1.FontSize = 20 Text1.FontSize = 9Private Sub Check4_Click（）If Check4.Value = 1 Then Text1.ForeColor = vbGreen Text1.ForeColor = vbBlackPrivate Sub Command1_Click（）Text1.Text = Private Sub Command2_Click（） End20做出2个周期的正弦波形. Private Sub Form_Click（）Dim i%, x#, y#Const pi As String

9、 = 3.1415926Form1.Scale （-2 * pi, 1.2）-（2 * pi, -1.2）Form1.Line （-2 * pi, 0）-（2 * pi, 0）Form1.Line （0, 1.2）-（0, -1.2）For x = -2 * pi To 2 * pi Step 0.01 y = Sin（x） Form1.PSet （x, y）Next x21以窗体为中心,产生1000个半径颜色随机的同心圆.For i = 1 To 1000 x = Form1.ScaleWidth / 2 y = Form1.ScaleHeight / 2 r = Int（Rnd * y）

10、c = RGB（255 * Rnd, 255 * Rnd, 255 * Rnd） Form1.Circle （x, y）, r, cNext22.九九乘法表Dim i%, j%Form1.Caption = 九九乘法表Print Tab（48）; Caption-For i = 1 To 9 Print Tab（j - 1） * 12 + 1）; i;* j;= i * j;23求最大公约数和最小公倍数Private Sub command1_Click（）Dim m%, n%, r%, t%m = Val（Text1.Text）n = Val（Text2.Text）If m n Then t = m: m = n: n = tt = m * nDo r = m Mod n m = n n = rLoop Until r = 0Text3.Caption = 公约数: mText4.Caption = 公倍数 t / m24.用随机函数产生50个两位数,保存于一个一维数组中,要求找出其中的最大值,最小值及所在位置.