VB期末参考代码-大题

VB期末参考代码-大题
【程序填空】
1.'功能：以下程序段用于实现矩阵转置，即将一个n×m的矩阵的行和列互换Private Sub Form_Click()
Const n = 3
Const m = 4
Dim a(n, m), b(m, m) As Integer
For I = 1 To n
For j = 1 To m
a(I, j) = Int(Rnd * 90) + 10
Next j
Next i
For I = 1 To n
For j = 1 To m
B(I,j)=a(I,j)
Next j
Next I
Print "矩阵转置前"
For I = 1 To n
For j = 1 To m
Print a(I, j);
Next j
print
Next I
Print "矩阵转置后"
For I = 1 To m
For j = 1 To n
Print b(I, j);
Next j
Print
Next I
End Sub
1.'功能：输入数字1-7,显示其对应是星期几(例:输入1,显示星期日,如果输入其它内容，
一律显示"输入错误")
Private Sub Command1_Click()
dim x as integer
dim y as string
x=val(text1.text)
Select case x
case 1
y="今天是星期日"
case 2
y="星期一"
case 3
y="星期二"
case 4
y= "星期三"
case 5
y="星期四"
case 6
y="星期五"
case 7
y= "星期六"
Case else
y = "输入错误"
end select
Text2.Text = y
End Sub
1.功能：求1!+2!+……+10!的值。

Private Sub Form_Click()
T=1
s = 1
For I = 2 To 10
t = t * I
S=s+t
Next i
Print s
End Sub
1.功能：窗体上建立了两个文本框T ext1(输入字符串)及T ext2(转换结果)，一个命令按钮
Command1("清除")。

录入Text1内容时，将录入内容大写字母转为小写，小写转为大写。

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As String * 1
s = chr(KeyAscii)
Select Case s
Case "A" to "Z"
s = LCase(s)
Case "a" To "z"
s = Ucase(s)
Case Else
s = "*"
End Select
Text2.Text = Text2.Text + s
End Sub
1.功能：窗体上建立了一个文本框T ext1("输入口令")和一个命令按钮Command1("检查
")。

判断密码是否正确，并显示相应提示在加载窗体时设置密码框最大长度为8，密码显示字符为“*”
dim x as string
Private Sub Command1_Click()
x = Text1.Text
If x = "12345678" Then
MsgBox ("欢迎你用机!")
Else
MsgBox ("对不起，口令错")
End If
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text1.maxlength = 8
Text1.Psswordchar = "*"
End Sub
1.功能：下面的程序段用于打印出以下图形'
' *
' ***
' *****
' *******
' *****
' ***
' *
'------------------------------------------------------- Private Sub Form_Click()
Dim i%, j%, k%
For i = 0 To 3
For j = 0 To 2 - i
Print " ";
Next j
For k = 1 To 2*i+1
Print "*";
Next k
Print
Next i
For i = 0 To 2
For j = 0 To i
Print “”;
Next j
For k = 0 To 4 - 2 * i
Print "*";
Next k
print
Next i
End Sub
1.功能：下面的程序段用于求矩阵相乘C=A×B，设A、B、C分别为m×p、p×n、m
×n的矩阵。

Private Sub Form_Click()
Const m = 4, p = 3, n = 2
Dim a(1 To m, 1 To p) As Integer
Dim b(1 To p, 1 To n) As Integer
Dim c(1 To m, 1 To n) As Integer
Dim i As Integer, j As Integer, k As Integer, sum As Integer
For i = 1 To m
For k = 1 To p
a(i, k) = i
Next k
Next i
For i = 1 To p
For k = 1 To n
b(i, k) = i
Next k
Next i
For i = 1 To m
For j = 1 To n
Sum=0
For k = 1 To p
sum = sum +a(I,k)*b(k,j)
Next k
c(i, j) =sum
Next j, i
Print "输出矩阵"
For i = 1 To m
For k = 1 To n
Print c(i, k),
Next k
Print
Next i
End Sub
1.功能：利用下面的过程求m!和m*n
Private Sub Form_Click()
Dim m As Integer, n As Integer
m = 2
n = 3
Find m,n
End Sub
Private Sub find(x As Integer, y As Integer)
Dim s, i As Integer
S=1
For i = 1 To x
s = s * i
p=x*y
Next i
Print s, p
End Sub
1.题目：已知用inputbox函数输入两个数x和y，比较它们的大小，使得x大于y。

Private Sub Form_Click()
Dim x As Single, y As Single
x = InputBox("输入数据1：")
y = InputBox("输入数据2：")
Print "x值", "y值"
Print x, y
If x < y Then
T=x
X=y
Y=t
End If
Print x, y
End Sub
【程序改错】
1.'题目：以下程序段用于打印如图1所示的九九乘法表：
Option Explicit
Private Sub Form_Click()
Dim i As Integer, j As Integer, k As Integer
Print Tab(30); "9*9 table"
Print: Print
Print " * ";
For i = 1 To 9
Print Tab(i * 6); I;
Next i
Print
For j = 1 To 9
Print j; " ";
For k = 1 To j
Print Tab(k * 6); j * k; " ";
Next k
Print
Next j
End Sub
1.'题目：求s=1!+3!+5!+7!，阶乘的计算用Function过程fact实现. Option Explicit
Private Sub Form_Click()
Dim i As Integer, s As Integer
For i = 1 To 7 step 2
s = s + fact(i)
Next i
Print s
End Sub
Public Function fact(ByV al n As Integer)
Dim t As Integer, i As Integer
t = 1
For i = 1 To n
t = t * i
Next i
fact =t
End Function
1.题目:请根据下列描述编写购物优惠程序。

某商场为了加速促成商品流通，采用购物打
折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。

Option Explicit
Private Sub Command1_Click()
Dim x As Single, y As Single
x = V al(Text1.Text)
If x < 100 Then
Y=x
Else
If x < 200 Then
y = 0.95 * x
Else
If x < 300 Then
y = 0.9 * x
Else
If x < 500 Then
y = 0.8 * x
Else
y = 0.7 * x
End If
End If
End If
End If
Text2.Text = y
End Sub
1.题目：以下程序用于建立一个三行三列的矩阵，使其两条对角线上数字为1，其余位置
为0
Option Explicit
Private Sub Form_Click()
Dim x(3, 3), n As Integer, m As Integer
For n = 1 To 3
For m = 1 To 3
If n = m Or m + n = 4 Then x(n, m) = 1 Else x(n, m) = 0
Next m, n
For n = 1 To 3
For m = 1 To 3
Print x(m, n);
Next m
Print
Next n
End Sub
1.题目：下面程序段将7个随机整数从小到大排序
Option Explicit
Private Sub Form_Click()
Dim t%, m%, n%, w%, a(7) As Integer
For m = 1 To 7
a(m) = Int(10 + Rnd() * 90)
Print a(m); " ";
Next m
Print
For m = 1 To 6
t = m
For n = m+1 To 7
If a(t) > a(n) Then t=n
Next n
If t <> m Then
w = a(m)
a(m) = a(t)
a(t) = w
End If
Next m
For m = 1 To 7
Print a(m)
Next m
End Sub
1.题目：输出40以内能够被3整除的数，要求输出结果为5个数一行。

Option Explicit
Private Sub Form_Click()
Cls
Dim x As Integer
Dim i As Integer
i = 0
For x = 1 To 40
If (x / 3) = (x \ 3) Then
Print x;
i = i + 1
End If
If i Mod 5 = 0 Then
Print
End If
next i
End Sub
1.题目:编程求一个m*n矩阵中最大元素及其所在的行列号。

Option Explicit
Private Sub Form_Click()
Dim A() As Integer, max As Integer
Dim M As Integer, N As Integer
Dim i As Integer, j As Integer
Dim col As Integer, row As Integer
M = InputBox("输入矩阵的行数：")
N = InputBox("输入矩阵的列数：")
ReDim A(1 To M, 1 To N) As Integer
For i = 1 To M
For j = 1 To N
A(M, N) = InputBox(" 输入数组元素:")
Next j
Next i
max = A(1,1)
For i = 1 To M
For j = 1 To N
If max < A(i, j) Then
max = A(i, j)
col = j
End If
row = i
Next j
Next i
Print
Print "该矩阵元素的最大值:"; max
Print "最大值所在的行:"; row; "所在的列:"; col
End Sub
1.题目：程序功能：求1+2+3……，直到其和超出3000为止，并输入结果。

Option Explicit
Private Sub Form_Click()
Cls
Dim i As Integer
Dim s As Single
i = 1
s = 0
Do
i = i + 1
s = s + i
Loop until s > 3000
Print "从1 到:"; i; "的和是"; s
End Sub
1.题目：用辗转相除法求两个整数的最大公约数。

Option Explicit
Function gcd(ByV al m As Integer, ByV al n As Integer) As Integer
Dim r As Integer
r = m Mod n
Do While r <> 0
M=n
n = r
r = m Mod n
Loop
gcd = n
End Function
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入一个整数")
b = InputBox("输入一个整数")
a = V al(a)
b = V al(b)
c=gcd(a, b)
Print a, b, c
End Sub
1.题目:密码判断程序，如果密码为12345则显示“恭喜，密码正确”，否则显示“很遗憾，
密码错误”，要求文本框中只允许输入数字。

Option Explicit
Private Sub Command1_Click()
Dim strPws As String
strPws = Trim(Text1.Text)
If Len(strPws) = 0 Then Exit Sub
If strPws = "12345" Then
MsgBox "恭喜，密码正确", ,验证
Else
MsgBox "很遗憾，密码错误", , "验证"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= 48 And KeyAscii <= 57) Then
KeyAscii = 0
End If
End Sub
1.题目：求s=72+102+132+……832的值。

Option Explicit
Private Sub Form_Click()
Cls
Dim s As Long
Dim i As Integer
s = 0
For i = 7 To 832 step 30
s = s + i
next i
Print s
End Sub
1.题目：下边是一个小动画程序，在窗体上放一个标签Label1，每过1秒钟标签Label1
的背景颜色由红到蓝，由蓝到绿，再由绿到红循环变化，并自动修改标签Label1的Left，Top值使其从左上角沿窗体的对角线移动到窗体的右下角，如此往复从而实现动画。

Option Explicit
Private flag As Integer
Private Sub Form_click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Left = 0
Label1.Top = 0
Label1.BackColor = vbBlack
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Label1.Left < Left + Width And Label1.Top <= Top + Height Then
Label1.Left = Label1.Left + 100 * Width / Height
Label1.Top = Label1.Top + 100
Else
Label1.Left = Left
Label1.Top = Top
End If
If flag = 0 Then
Label1.BackColor = vbBlue
flag = 1
ElseIf flag = 1 Then
Label1.BackColor = vbGreen
flag = 2
Else
Label1.BackColor = vbRed
flag = 0
End If
End Sub
【程序设计】
1.题目：(事件)单击窗体。

(响应)求200~300之间既能被3整除又能被7整除的数。

并求
出所有数之和存入变量SUM中
Private Sub Form_Click()
Dim sum As Integer
sum = 0
Dim i As Integer
For i = 201 To 300
If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then
Print (CStr(i))
sum = sum + i
End If
Next
Print sum
YZJ (sum)
End Sub
Private Sub YZJ(i As Integer)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\2.out" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub
1.题目：(事件)单击窗体。

(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗
体上。

Private Sub Form_Click()
Dim s As Single
Dim i As Integer
s = 0
For i = 1 To 10
s = s + 1 / (i ^ i)
Next
Print (s)
YZJ (s)
End Sub
Private Sub YZJ(i As Single)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\3.out" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub
1.题目：(事件)单击窗体。

(响应)一球从100米高度自由落下，每次落地返回原高度的一
半，求第10次落地时，共经过多少米？并将结果在窗体上输出。

Private Sub Form_Click()
Dim s As Single
Dim j, i As Integer
s = 0
j = 100
For i = 2 To 10
j = j / 2
s = s + 2 * j
Next
s = 100 + s
Print (CStr(s))
YZJ (s)
End Sub
Private Sub YZJ(i As Single)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\5.out" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub。