vb练习试卷上机练习题08例题

1、在窗体的单击事件中完成：利用随机函数产生 30 个三位整数，求出最大值、最小值和平均值Dim a(30) Randomize For i = 1 To 30a(i) =(Rnd * 900) + 100Pra(i); NextPrMax = a(1) Min = a(1) Sum = a(1) For i = 2 To 30If a(i) Max Then Max = a(i)If a(i) = 0 And a = 60 And a = 70 And a = 80 And a = 90 Then Text2.Text = 优秀 End IfEnd Function3、在窗体的单击事件中完成：打

2、印出 1001000 之间的所有符合如下条件的数：其各位数字的立方和等于该数本身，例如 153，因为 13+53+33=153。（这样的数称为“水仙花数”）Dim n AsegerFor n = 100 To 1000a = n 100b = (n - a * 100) 10c = n - 100 * a - b * 10If n = a 3 + b 3 + c 3 ThenPrn; =; a; 3+; b; 3+; c; 3Next4、设计一个通过滚动条调整所画圆环填充色的程序。运行界面，命令按扭用于在框中画圆环，三个滚动条分别用于控制红、绿、蓝的颜色，并把调整后的颜色做为填充色填充到所画的

3、圆环中。Private Sub form_load HScroll1 min=0 HScroll1 max=255 HScroll2 min=0 HScroll2 max=255 HScroll3 min=0HScroll3 max=255End SubPrivate Subd1_Click()Picture1.FillStyle = 0Picture1.FillColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Picture1.Circle (1400, 1300), 1000Picture1.FillStyle = 0P

4、icture1.FillColor = RGB(192, 192, 192)Picture1.Circle (1400, 1300), 500 End SubPrivate Sub HScroll1_Scroll()CallEnd Subd1_ClickPrivate Sub HScroll2_Scroll()CallEnd Subd1_ClickPrivate Sub HScroll3_Scroll()CallEnd Subd1_Click5、在窗体的单击事件中完成：输出 1100 之间不能被 3 整除的整数，每行显示 4 个，且要求对齐。Dim i AsegerFor i = 1 To 1

5、00If i Mod 3 0 ThenPrFormat(i, 0), FORMAT 为一格式控制函数 书上 53 页有a = a + 1If a Mod 4 = 0 Then Pr End IfNext7、设计程序，求S=1+(1+2)+(1+2+3)+(1+2+3+n)的值，n 由键盘输入。方法一Function a(n) For i = 1 To n b = b + i Next ia = bEnd FunctionPrivate Subs = 0d1_Click()n = Val(InputBox()For j = 1 To n s = s + a(j) Next jPrsEnd Sub

6、*方法二Private Subd1_Click()n = Val(InputBox() for i = 1 To nb = i + b s = s + b Next i PrsEnd Sub8、在窗体的单击事件中完成：输入一个大于等于 6 的偶数，将它分解成二个素数之和。Function prime(ByRef n As For i = 2 To n - 1If n Mod i = 0 Then Exit ForNext ieger) AsIf i n - 1 Or n = 1 Or n = 2 Then prime = TrueElseprime = False End IfEnd Func

7、tionPrivate Sub Form_Click()Dim a Aseger, x AsegerDo While x 6 Or x Mod 2 0 x = Val(InputBox(x=)LoopFor a = 2 To x 2If prime(a) And prime(x - a) Then Pra; +; (x - a); =; xExit For End IfNext a End Sub9、在窗体的单击事件中完成：输入 10 个数，再输入一个数x，查找x 是否在这 10 个数中，若是，显示“x是第y 个数”（其中 x,y 为具体的数），若不是显示“没找到”Dim a(10)Priva

8、te Sub Form_Click()For i = 1 To 10a(i) = InputBox(请输入第 + Str(i) + 个)Next ix = InputBox(请输入X) For i = 1 To 10If x = a(i) Then Exit For Next iIf i = 10 ThenPrX 是第; i; 个数 ElsePr没找到 End IfEnd Sub12、设计一个程序，在框中画出函数y=ln(x)，。Private SubDrawWidth = 50d1_Click()Picture1.Scale (0, 100)-(1000, 0)For i = 1 To 10

9、00 Step 0.001 Picture1.PSet (i, Log(i) Next13 编程，在窗体的单击事件中完成：输入 n，再输入 n 组数（每组 3 个整数），要求输出每组数中的最小值。如： 输入：2输入：10，5，15 输出：min(10,5,15)=5输入：12，14，7 输出：min(12,14,7)=7 Dim a(1 To 3)Dim b(1 To 3)Private Subd1_Click()n = Val(InputBox(请输入组数 N)For i = 1 To na(1) = Val(InputBox()a(2) = Val(InputBox()a(3) = Val

10、(InputBox() Call min(a()Next End SubFunction min(b()If b(2) b(1) Then temp = b(1)b(1) = b(2)b(2) = temp End IfIf b(3) b(1) Then temp = b(1)b(1) = b(3)b(3) = temp End IfPrmin( + Trim(Str(a(1) + , + Trim(Str(a(2) + , _+ Trim(Str(a(3) + )= + Trim(Str(b(1) End FunctionEnd Sub15、编程，在窗体的单击事件中完成：输入 n，再输入 n

11、 个实数x，对这n 个数的每一个x，完成以下操作：计算分段函数的值。若 x0，y 等于 x+1 的平。y 要求四舍五入保留小数两位。如：输入：3输入：-5.8，输出：21.87输入：0，输出：0输入：0.5，输出：0.71 (或.71)Private Subd1_Click()n = Val(InputBox()For i = 1 To nx = Val(InputBox()If x 0 Then y = Sqr(x + 1) PrFormat(y, 0.00) NextEnd Sub17、制作一个简易定时器，界面09:12:00）；。当选择“时间”时，在文本框中输入具体要定时的时间（如当选择

12、“分钟”时，在文本框中输入要定时几分钟（如 5），当单击“开始”按钮后，使“开始”按钮和文本框不可用，并启动定时装置，使得可以在如 09:12:00 或 5 分钟后发出报时，报时使用命令 beep(不需要参数)，每一秒响一声。使用“重置”按钮使“开始”按钮和文本框可用，并停止定时装置。Dim nPrivate Sub Form_Load() Timer1.Enabled = False Timer1.erval = 1000 End SubPrivate Subd1_Click()Timer1.Enabled = True Text1.Enabled = FalseEnd SubPrivate

13、 Subd2_Click()Timer1.Enabled = False Text1.Enabled = True End SubPrivate Sub Option2_Click() n = Val(Text1.Text) * 60 End SubPrivate Sub Timer1_Timer() If Option1.Value = True ThenIf Trim(Str(Time() = Trim(Text1.Text) Then BeepEnd IfElse option2.value=true n = n - 1If n Max Then Max = a(i)If a(i) =

14、0 And a = 60 And a = 70 And a = 80 And a = 90 Then Text2.Text = 优秀 End IfEnd Function4.设计一个通过滚动条调整所画圆之填充色的程序。运行界面，命令按扭用于在框中画圆，三个滚动条分别用于控制红、绿、兰的颜色，并把调整后的颜色做为填充色填充到所画的圆中。Private Sub HScroll1_Change()Picture1.FillColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Picture1.FillStyle = 0Picture1

15、.Circle (500, 500), 500, RGB(255, 0, 0)End SubPrivate Sub HScroll2_Change() Call HScroll1_ChangeEnd SubPrivate Sub HScroll3_Change() Call HScroll1_ChangeEnd Sub*以下 40 题为上学期上机考题库,本次上机考要求不能从中抽取题目。*1.编写函数Sum(X)，求当1X1 时，Sum（X）=1+X3/3!+X5/5!+X21/21!，当 X1 或 X= -1 And x Len(s1) Then Text3.Text = not foundE

16、lses3 = Left(s1, i - 1) + Mid(s1, i + Len(s2), Len(s1) - i - Len(s2) + 1) Text3.Text = s3End IfEnd SubPrivate Subd1_Click()ss1 = Trim(Text1.Text) ss2 = Trim(Text2.Text) Call delestr(ss1, ss2) End Sub3.已有从小到大排列好的 30 个两位整数，键盘输入 x，若 x 已在其中，则显示 x 的序号，否则将x组中，使其仍然有序，并输出数组元素。数Private SubDim a(1 To 31) For

17、i = 1 To 30d1_Click()a(i) =Next(Rnd * 90) + 10For i = 1 To 29 For j = i + 1 To 30 If a(j) a(i) Thentemp = a(i) a(i) = a(j) a(j) = temp End IfNext j, i 30 个数徘序a(31) = Val(InputBox() 输入 XFor i = 1 To 30If a(31) = a(i) Then Exit For NextIf i = 1 ThenPrX 已存在，为第 + Str(i) + 个 ElseFor i = 1 To 30 For j = i

18、 + 1 To 31 If a(j) a(i) Thentemp = a(i) a(i) = a(j) a(j) = temp End If NextNext End IfFor i = 1 To 31 Pra(i)Next End Sub4.编程说明：在窗体的单击事件中完成：随机产生 100 个三位正整数，按从在到小的顺序在窗体上输出。每行 5 个。当其中的数能被 3 整除时，用红色显示这些数。Private Sub Form_Click() Dim a(1 To 100)For i = 1 To 100a(i) =Next(Rnd * 900) + 100For i = 1 To 99Fo

19、r j = i + 1 To 100 If a(j) a(i) Thentemp = a(i) a(i) = a(j) a(j) = temp End IfNext j, iFor i = 1 To 10If a(i) Mod 3 = 0 Then ForeColor = RGB(255, 0, 0) Pra(i);ElseForeColor = RGB(0, 0, 0) Pra(i);End IfIf i Mod 5 = 0 Then Pr NextEnd Sub5.编程说明：在窗体的单击事件中完成：分别统计窗体上的文本框中（不超过 200 个）的字符和汉字的个数。（字符的 ascii 值为

20、 32 至 125）。Private Subd1_Click()For i = 1 To Len(Text1.Text)If Asc(Mid(Text1.Text, i, 1) = 32 Then x = x + 1Elsey = y + 1 End IfNextPrx, y End Sub6.找出 11000 之间的全部“同构数”。若一个数出现在平方数的右端，则称此数为同构数。如：1 在 12 =1的右端，5 在 52=25 的右端，25 在 252=625 的右端等。Private SubFor i = 1 To 1000d1_Click()If Trim(Str(i) = Right(T

21、rim(Str(i 2), Len(Trim(Str(i) Then Pri 2, iEnd If Next End Sub8.设计程序，求sum=1+(1+2)+(1+2+3)+(1+2+3+n)的值,n 值用InputBox 函数输入。方法一 Function a(n) For i = 1 To n b = b + i Next ia = bEnd FunctionPrivate Subs = 0d1_Click()n = Val(InputBox()For j = 1 To n s = s + a(j) Next jPrsEnd Sub*方法二Private Subd1_Click()n

22、 = Val(InputBox() for i = 1 To nb = i + bs = s + b Next i PrsEnd Sub9.求下述数列的前n 项之和,n 的值用InputBox 函数输入:2345 + n- (-1)(n+1) n!s=1 - + -2!3!4!5!Function a(n) a=1For i = 1 To n a = a * iNext iEnd FunctionPrivate Subs = 0d1_Click()n = Val(InputBox()For i = 1 To ns = s + (-1)(i+1)*i/a(i) Next iPrsEnd Sub1

23、8.输入框输入 30 个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b 中的数据按从大到小的顺序排列，并一每行 5 个数据在窗体上输出。Private Sub Dim a(1 To 30) Dim b(1 To 30) j = 1For i = 1 To 30d1_Click()a(i) = Val(InputBox()If a(i) =(a(i) Then b(j) = a(i)j = j + 1 End If Nextk = j - 1For i = 1 To k - 1 For j = i + 1 To k If b(j) a(i) Then temp = a(i

24、)a(i) = a(j)a(j) = a(i) End If Next j, iFor i = 1 To k Prb(i);If i Mod 5 = 0 Then Pr NextEnd Sub19.编写计算阶乘的Function 过程，利用 Taylor 级数计算正弦函数的近似值，直到最后一项小于 10-6 为止。x3x5x7x2n+1sin(x)1 - + - + + (-1)n3!5!7!(2n+1)!Private Subd1_Click()y = Val(InputBox() Prabc(y)End Sub Function abc(x) i = 3s = 1b = -1a = 1Do

25、 Until a = 10 (-6) s = s + b * x i / jc(i) b = -bi = i + 2a = Abs(b * x i / jc(i)Loop abc = sEnd Function Function jc(k) jc = 1For i = 1 To k jc = jc * k NextEnd Function21.设计一个通过滚动条调整背景颜色的程序，并把调整后的颜色在一个文本框中动态地显示出来，运行界面。单击“结束”按钮，程序运行结束。Private Sub Form_Load() HScroll1.Min = 0HScroll1.Max = 255HScrol

26、l2.Min = 0HScroll2.Max = 255HScroll3.Min = 0HScroll3.Max = 255 End SubPrivate Sub HScroll1_Change()Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Change()Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End SubPrivate Sub HScroll

27、3_Change()Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub24.窗体上有一个标鉴框，一个定时器和二个命令按钮，单击“开始”按钮，使标鉴框从窗体的左边向右方向移动，同时标鉴框的颜色在随机地发生变化，到达窗体左边界，又再次从左向右移动。单击“结束”，结束整个程序的运行。大致程序如下Dim xyPrivate Subd1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub EndEnd Subd2_Click()Private Sub Form

28、_Load() Timer1.Enabled = False xy = 1End SubPrivate Sub Timer1_Timer()Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) If xy = 1 ThenLabel1.Left = Label1.Left + 200If Label1.Left Form1.Width - Label1.Width Then xy = 0End If End IfIf xy = 0 ThenLabel1.Left = Label1.Left - 200 If Label1.Left =

29、10 Then xy = 1 End IfEnd Sub25.窗体上有二个标鉴框、一个文本框、一个列表框和三个命令按钮，实现如下功能：“添加”按钮：将文本框中的内容添加到列表框中，如果列表框中的项目数超过了 30，则显示“个数已到，不能再输入”的信息。“排序”按钮：对列表框中的列表项按从大到小次序进行排列“删除”按钮：删除列表框中所选的列表项Private Subd1_Click()If List1.ListCount a(j) Then temp = a(j)a(j) = a(i) a(i) = temp End IfNext j, i List1.Clear For i = 0 To nL

30、ist1.AddItem a(i) NextEnd SubPrivate Subd3_Click()For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) = True Then List1.RemoveItem iEnd If Next End SubPrivate Sub Form_Load()List1.MultiSelect = 2 属性窗口中修改此值End Sub27.在窗体上放置一个图象框、一个和定时器控件。当单击窗体后，提示：“系统正在数据，请稍等。”，在图像框上一格一格的间隔增加（画实心矩形），模拟显示系统正在

31、数据。当在图像框上满了后，用消息框提示“数据完成！”并把Dim IPrivate Sub Form_Load() Timer1.erval = 1000中的内容改为“数据完成！”Label1.Caption = 系统正在 End SubPrivate Sub Timer1_Timer() Picture1.Scale (0, 0)-(20, 20)Picture1.FillStyle = 0数据，请稍等。Picture1.FillColor = RGB(0, 0, 255) If I = Form1.Width Then Picture1.Left = 0End IfIf TimeLeft =

32、 0 ThenMsgBox 时间到，不能再输入!, vbCritical text1.enabled=falsetext2.enabled=false Timer1.Enabled = FalseEnd IfTimeLeft = TimeLeft - 1 End Sub34.试编制小动画程序: 先在窗体上放一个, 每过 0.5 秒内容由VB 上机到轮流变化, 并且使向窗体右下角移动, 窗体上再放一个停止命令按钮,单击该按钮可结束程序运行. Private Sub Form_Load()Timer1.erval = 500 Label1.Caption = VB 上机 Label1.Left =

33、 0End SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left + 50 Label1.Top = Label1.Top + 50If Label1.Caption = VB 上机 ThenLabel1.Caption = ElseLabel1.Caption = VB 上机 End IfEnd Sub35.在窗体上设计一个文本框、一个框、一个“画圆”命令按钮和一个“显示文本”命令按钮。程序运行后，单击“画圆”按钮，界面如图 1 所示，隐藏文本框，显示框，并以框的中心为圆心，以图片框的 25%的宽度（或高度）为半径画一个圆；单击“显示

34、文本”按钮，界面如图 2 所示，隐藏框，显示文本框，并在文本框中显示“Visual BASIC”文信息。Private Subd1_Click()Picture1.Visible = True Text1.Visible = False Picture1.Scale (0, 0)-(1, 1)Picture1.Refresh 或 Picture1.AutoRedraw = True 或 Picture1.Picture = LoPicture1.Circle (0.5, 0.5), 0.25, RGB(255, 0, 0)End Subicture()Private Subd2_Click()

35、Picture1.Visible = False Text1.Visible = TrueText1.Text = Visual BASIC + Chr(13) + Chr(10) + End SubPrivate Sub Form_Load() Text1.MultiLine = TrueText1.FontSize = 20Picture1.AutoRedraw = True 或 picture1 refresh 或 Picture1.Picture = Lo End Sub38.如图，制作一个动画小程序。在窗体上有一个计时器控件，命令按钮icture()d1 和一个控件名称为label1,控件的背景色如图。程序开始时，控件位于窗体最左边中心线上，d1 的标题为“开始”，当单击“开始”时，标题变为“结束”，沿着窗体水平中心线从左向右移动，当的右边接触到窗体的最右边时