VB期末参考代码-大题

1、【程序填空】1.'功能：以下程序段用于实现矩阵转置，即将一个n x m的矩阵的行和列互换Private Sub Form_Click()Const n = 3Const m = 4Dim a(n, m), b(m, m) As IntegerFor I = 1 To nFor j = 1 To ma(I, j) = Int(Rnd * 90) + 10Next jNext iFor I = 1 To nFor j = 1 To mB(I,j)=a(I,j)Next jNext IPrint "矩阵转置前"For I = 1 To nFor j = 1 To mPri

2、nt a(I, j);Next jprintNext IPrint "矩阵转置后"For I = 1 To mFor j = 1 To nPrint b(I, j);Next jPrintNext IEnd Sub1.'功能：输入数字1-7,显示其对应是星期几(例 :输入1,显示星期日,如果输入其它内容，一律显示" 输入错误")Private Sub Command1_Click()dim x as integerdim y as stringx=val(text1.text)Select case xcase 1y=" 今天是星期日&

3、quot;case 2y="星期一"case 3y=" 星期二 "case 4y= " 星期三 "case 5y=" 星期四"case 6y=" 星期五"case 7y= " 星期六 "Case elsey = "输入错误"end selectText2.Text = yEnd Sub1.功能：求 1!+2!+10!的值。Private Sub Form_Click()T=1s = 1For I = 2 To 10t = t * IS=s+tNext iP

4、rint sEnd Sub1.'功能：以下程序段用于计算n 的阶乘：n！ 。 ( 1！ =1)Public Function fac(n As Integer) As IntegerIf n = 1 Thenfac = 1Elsefac = n * fac(n-1)End IfEnd FunctionPrivate Sub Command1_Click()Print "fac(4)=" fac(4)End Sub1. 功能： 以下程序的功能是：生成 20 个 200 到 300 之间的随机整数，输出其中能被5整除的数并求出它们的和Private Sub Comman

5、d1_Click()Dim s As IntegerDim x As Integer, i As Integers = 0For i = 1 To 20RandomizeX = Int(rnd * 100 + 200)If X mod 5 = 0 ThenPrint Xs = s + XEnd IfNext iPrint "Sum = " sEnd Sub1.' 功能：在窗体上画一个标签(名称为Label1 )和一个计时器(名称为Timer1 ) ，然后编写如下几个事件过程：要求：每一秒钟Label1 更新显示一次系统时间Private Sub Form_Load(

6、)Timer1.Enabled = FalseTimer1.Interval = 1000End SubPrivate Sub Form_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Label1.Caption = NowEnd Sub1.功能：窗体上建立了两个文本框Textl（输入字符串）及Text2（转换Z果），一个命令按钮Command1（" 清除 "） 。录入 Text1 内容时，将录入内容大写字母转为小写，小写转为大写。Private Sub Command1_Click()Text1.

7、Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim s As String * 1s = chr(KeyAscii)Select Case sCase "A" to "Z"s = LCase(s)Case "a" To "z"s = Ucase(s)Case Elses = "*"End SelectText2.Tex

8、t = Text2.Text + sEnd Sub1. 功能：窗体上建立了一个文本框Text1(" 输入口令") 和一个命令按钮Command1(" 检查") 。判断密码是否正确，并显示相应提示在加载窗体时设置密码框最大长度为8，密码显示字符为“*”dim x as stringPrivate Sub Command1_Click()x = Text1.TextIf x = "12345678" ThenMsgBox (" 欢迎你用机!")ElseMsgBox (" 对不起，口令错")End I

9、fText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()Text1.Text = ""Text1.maxlength = 8Text1.Psswordchar = "*"End Sub1. 功能：下面的程序段用于打印出以下图形*Private Sub Form_Click()Dim i%, j%, k%For i = 0 To 3For j = 0 To 2 - iPrint " "Next jFor k = 1 To 2*i+1Print "

10、;*"Next kPrintNext iFor i = 0 To 2For j = 0 To iPrintNext jFor k = 0 To 4 - 2 * iPrint "*"Next k printNext iEnd Sub1. 功能：下面的程序段用于求矩阵相乘C=AXB,设A、B、C分别为mXp、pXn、mx n的矩阵。Private Sub Form_Click()Const m = 4, p = 3, n = 2Dim a(1 To m, 1 To p) As IntegerDim b(1 To p, 1 To n) As IntegerDim c(1

11、 To m, 1 To n) As IntegerDim i As Integer, j As Integer, k As Integer, sum As IntegerFor i = 1 To mFor k = 1 To pa(i, k) = iNext kNext iFor i = 1 To pFor k = 1 To nb(i, k) = iNext kNext iFor i = 1 To mFor j = 1 To nSum=0For k = 1 To psum = sum +a(I,k)*b(k,j)Next kc(i, j) =sumNext j, iPrint "输出矩

12、阵"For i = 1 To mFor k = 1 To nPrint c(i, k),Next kPrintNext iEnd Sub1. 功能：利用下面的过程求m! 和 m*nPrivate Sub Form_Click()Dim m As Integer, n As Integerm = 2n = 3Find m,nEnd SubPrivate Sub find(x As Integer, y As Integer)Dim s, i As IntegerS=1For i = 1 To xs = s * ip=x*yNext iPrint s, pEnd Sub 1.题目：已知用

13、inputbox函数输入两个数 x和y,比较它们的大小，使得 x大于y。Private Sub Form_Click()Dim x As Single, y As Singlex = InputBox(" 输入数据1 ： ")y = InputBox(" 输入数据2： ")Print "x 值 ", "y 值 "Print x, yIf x < y Then T=xX=y Y=tEnd IfPrint x, yEnd Sub【程序改错】1.' 题目：以下程序段用于打印如图1 所示的九九乘法表：Opti

14、on ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); "9*9 table"Print: PrintPrint " *"For i = 1 To 9Print Tab(i * 6); I;Next iPrintFor j = 1 To 9Print j; " "For k = 1 To jPrint Tab(k * 6); j * k; " "Next kPrintNext jEnd

15、 Sub1.' 题目：求s=1!+3!+5!+7! ，阶乘的计算用Function 过程 fact 实现 .Option ExplicitPrivate Sub Form_Click()Dim i As Integer, s As IntegerFor i = 1 To 7 step 2s = s + fact(i)Next iPrint sEnd SubPublic Function fact(ByV al n As Integer)Dim t As Integer, i As Integert = 1For i = 1 To nt = t * iNext ifact =tEnd F

16、unction1. 题目: 请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物(1)在100 元以上者，按九五折优惠；( 2)在200元以上者，按九折优惠；( 3) 300 元以上者，按八折优惠；( 4) 500 元以上者按七折优惠。Option ExplicitPrivate Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.Text)If x < 100 ThenY=xElseIf x < 200 Theny = 0.95 * xElseIf x <

17、 300 Theny = 0.9 * xElseIf x < 500 Theny = 0.8 * xElsey = 0.7 * xEnd IfEnd IfEnd IfEnd IfText2.Text = yEnd Sub1. 题目：以下程序用于建立一个三行三列的矩阵，使其两条对角线上数字为1，其余位置为0Option ExplicitPrivate Sub Form_Click()Dim x(3, 3), n As Integer, m As IntegerFor n = 1 To 3For m = 1 To 3If n = m Or m + n = 4 Then x(n, m) = 1

18、 Else x(n, m) = 0Next m, nFor n = 1 To 3For m = 1 To 3Print x(m, n);Next mPrintNext nEnd Sub1. 题目：下面程序段将7 个随机整数从小到大排序Option ExplicitPrivate Sub Form_Click()Dim t%, m%, n%, w%, a(7) As IntegerFor m = 1 To 7a(m) = Int(10 + Rnd() * 90)Print a(m); " "Next mPrintFor m = 1 To 6t = mFor n = m+1 T

19、o 7If a(t) > a(n) Then t=nNext nIf t <> m Thenw = a(m)a(m) = a(t)a(t) = wEnd IfNext mFor m = 1 To 7Print a(m)Next mEnd Sub1. 题目：输出40 以内能够被3 整除的数，要求输出结果为5 个数一行。Option ExplicitPrivate Sub Form_Click()ClsDim x As IntegerDim i As Integer i = 0For x = 1 To 40If (x / 3) = (x 3) Then Print x;i = i

20、 + 1End IfIf i Mod 5 = 0 ThenPrintEnd If next i End Sub1. 题目: 编程求一个m*n 矩阵中最大元素及其所在的行列号。Option ExplicitPrivate Sub Form_Click()Dim A() As Integer, max As IntegerDim M As Integer, N As IntegerDim i As Integer, j As IntegerDim col As Integer, row As IntegerM = InputBox(" 输入矩阵的行数：")N = InputBo

21、x(" 输入矩阵的列数：")ReDim A(1 To M, 1 To N) As IntegerFor i = 1 To MFor j = 1 To NA(M, N) = InputBox(" 输入数组元素:")Next jNext imax = A(1,1)For i = 1 To MFor j = 1 To NIf max < A(i, j) Thenmax = A(i, j)col = jEnd Ifrow = iNext jNext iPrintPrint "该矩阵元素的最大值:" maxPrint " 最大值

22、所在的行:" row; " 所在的列:" colEnd Sub1.题目：程序功能：求 1+2+3，直到其和超出3000为止，并输入结果。Option ExplicitPrivate Sub Form_Click()ClsDim i As IntegerDim s As Singlei = 1s = 0Do1 = i + 1s = s + iLoop until s > 3000Print "从 1 到 :" i; " 的和是 " sEnd Sub1. 题目：用辗转相除法求两个整数的最大公约数。Option Explic

23、itFunction gcd(ByV al m As Integer, ByV al n As Integer) As IntegerDim r As Integerr = m Mod nDo While r <> 0M=nn = rr = m Mod nLoopgcd = nEnd FunctionPrivate Sub Form_Click()Dim a As Integer, b As Integer, c As Integera = InputBox(" 输入一个整数")b = InputBox(" 输入一个整数")a = Val(a

24、)b = Val(b) c=gcd(a, b) Print a, b, cEnd Sub1. 题目 : 密码判断程序，如果密码为12345 则显示 “恭喜， 密码正确”， 否则显示 “很遗憾，密码错误”，要求文本框中只允许输入数字。Option ExplicitPrivate Sub Command1_Click()Dim strPws As StringstrPws = Trim(Text1.Text)If Len(strPws) = 0 Then Exit SubIf strPws = "12345" ThenMsgBox " 恭喜，密码正确", ,

25、验证ElseMsgBox " 很遗憾，密码错误", , "验证 "End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If Not (KeyAscii >= 48 And KeyAscii <= 57) ThenKeyAscii = 0End IfEnd Sub832 的值。1. 题目：求s=72+102+132+Option ExplicitPrivate Sub Form_Click()ClsDim s As LongDim i As Integers = 0For i

26、= 7 To 832 step 30s = s + inext iPrint sEnd Sub1. 题目：下边是一个小动画程序，在窗体上放一个标签Label1 ，每过 1 秒钟标签Label1的背景颜色由红到蓝，由蓝到绿，再由绿到红循环变化，并自动修改标签Label1 的 Left ，Top 值使其从左上角沿窗体的对角线移动到窗体的右下角，如此往复从而实现动画。Option ExplicitPrivate flag As IntegerPrivate Sub Form_click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timer

27、1.Interval = 1000Label1.Left = 0Label1.Top = 0Label1.BackColor = vbBlackTimer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()If Label1.Left < Left + Width And Label1.Top <= Top + Height ThenLabel1.Left = Label1.Left + 100 * Width / HeightLabel1.Top = Label1.Top + 100ElseLabel1.Left = LeftLab

28、el1.Top = TopEnd IfIf flag = 0 ThenLabel1.BackColor = vbBlueflag = 1ElseIf flag = 1 ThenLabel1.BackColor = vbGreenflag = 2ElseLabel1.BackColor = vbRedflag = 0End IfEnd Sub【程序设计】End Sub1. 题目：(事件)单击窗体。(响应)求 200300 之间既能被3 整除又能被7 整除的数。并求出所有数之和存入变量SUM 中Private Sub Form_Click()Dim sum As Integersum = 0Dim i As IntegerFor i = 201 To 300If (