VB填空题期末测验总结

1、VB填空题期末测验总结作者:日期:个人收集整理，勿做商业用途1、 *产生50个60100的随机数，统计其中被6整除余2的个数，并将这些数输出。Private Sub command1_click()Dim x, n As IntegerDim counter As IntegernFor=1 To 50x = lnt(Rnd *41+60)xIf IMod 6=2 Thencounter = counter + 1End IfNext nPrint counterEnd Sub2、*对10个100以内的整数用选择法按递增顺序排序。Private Sub Command1_Click()Dim

2、a(10) As Integer, t As IntegerDim i As Integer, j As IntegerFor i =1 To 10Irnd、， 、 * 101)Print a(i);Next i: PrintFor i =1 To 910For j = i +1 To Ia(j) = tIf a(i) > a(j) Then t = a(i):a(i) = a(j):Next jNext iFor i =1 To 10Print a(i);Next i: PrintEnd Sub3、*删除已知数组a中的某个元素。Private Sub Command1_Click()D

3、im a() As Variant,n As Integer,Key As Integera = Array(1, 6,8,3,5,9,10, 2,7,4)n = UBound(a)Key = InputBox("请输入要删除的数")For i= 0 To nIf Key = a(i) Then Exit ForNext iIf i = n +1 Then MsgBox ("找不到此数")|Exit SubFor j = i +1 To na(j -1)= a(j)Next jnn = I-1ReDim Preserve a(n)For i = 0 To

4、 nPrint a(i);Next i: PrintEnd Sub4、*统计二维数组a(5 X 5)的左下三角中奇数元素的个数。Private Sub Command1_Click()Dim a(5,5) As IntegerFor i = 1 To 5For j =1 To 5l_a(i, j) = Int(Rnd *100): Print a(i, j)Next jPrintNext in = 0For i =1 To 5For j = 1 To iIfa(i, j)Mod 2 = IThen n = n + 1Next jNext iPrint"左下三角中奇数元素的个数为：&q

5、uot;nEnd Sub5、*设计一个求两个数的最大公约数的函数过程。* 程序代码如下：Option Base 1Imaxgcd(ByVai m%, ByVai n%) As IntegerIf m < n Then t = m: m = n: n = tDor = m Mod nIf r =0 Then Exit Dom = nn = rLoopgcd = fEnd Function6、*下面程序计算1!+3!+5!+.+9! 的值，请将其补充完整。* 程序代码如下：Dim nt As SinglePrivate Sub aa(ByVal n As Single)Dim iAs Int

6、egernt =1For i= 1 To nnt = nt * iNext iEnd SubPrivate Sub Form_Click()Dim sum As Single, n As Integersum = 0Forn =aasumNext nPrint sumEnd Sub7、*控件属性改变，如图vx_3.jpg所示Private Sub Command1_Click()If Commandl.Caption ="字号"ThenfontsizeLabell.=30Commandl.Caption ="颜色"elseforecolorLabell.

7、= vbRedCommandl.Caption ="字号"End IfEnd Sub3、*随机产生 n个两位整数，求岀其中的最大值和最小值。Private Sub Command1_Click()Dim a(100) As Integer, n As Integer, i As IntegerDim min As Integer, max As Integer=lnputBox(vbCrLf+ vbCrLf +"n=")Print"产生的随机数为RandomizeFor i =1 To na(i) = Int(Rnd *Print a(i);N

8、ext i: Print90)+10minFora(1):=2Ifa(i)>maxThenmax=a(i)Ifa(i)<minThenmin=a(i)Next iPrint"最大值为"maxPrint"最小值为"minEnd Sub4、*使用双循环实现三角形输出* *Private Sub Command1_Click()nFor I=1 To 5Print Tab(25 -i);nFor j =1To iPrint "*"Next jPrintNext iEnd Sub7、*编写一个显示随机数的程序，如图vx_2.jpg

9、所示。*运行过程：*点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中Private Sub Command1_Click()Timerl.Enabled = True1000Timer1.Interval =End SubI form_Load()Label1.ForeColor= vbWhiteLabel1.BackColor= vbGreenEnd SubI timer_ ()Label1 = Val(lnt(Rnd *90000+10000)End Sub2、*对10个100以内的整数用冒泡法按递减顺序排序。Private Sub Command1_Click()

10、Dim a(10) As Integer, t As IntegerDim i As Integer, j As IntegerFor i =1 To 10a(i) = Int(Rnd *101)Print a(i);Next i: PrintFor i =1 To 9For j =1 To 10- i=a(jIf a(j) < a(j + 1) Then I= a(j):a(j)+1): a(j + 1)= tNext jNext iFor i =1 To 10nPrint a( I);Next i: PrintEnd Sub4、*杨辉三角形如图所示vx_5.jpg:*完成下面程序。Private Sub Form_Click()Dim a(1 To 10,1 To 10) As Integer, i%, j%For i= 1 To 10a(i,1)= 1个人收集整理，勿做商业用途iEnda(i.N