2023年Visual Basic期末考试程序设计模拟试题答案
第1题 题号14
＇
＇程序设计
＇
＇题目求
＇ 1) 编写程序生成4行5列二维数组数组元素机产生两位数
＇ 求该数组元素行号列号
＇ （相元素标出行号列号）
＇ [算法提示]首先找出元素数组中元素元素较
＇ 相等元素输出位置
＇ 窗体设计界面参见已出参考界面
＇编程求
＇ 1) 运行程序运行钮(Command1)生成4行5列两位机整数数组
＇ 参考界面格式显示行文框Text1中调求二维数组元素通程
＇ 结果输出行文框Text2中（注意代码中randomize语句）
＇ 清钮(Command2)文框图片框清空
＇ 2) 程序中应定义名maxele通函数程求二维数组元素
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义函数程maxele程序代码Command2代码
＇ (2)完善Command1_Click()事件程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Function maxele(a() As Integer) As Integer
Dim i As Integer j As Integer
Dim max As Integer
max a(1 1)
For i 1 To 4
For j 1 To 5
If a(i j) > max Then
max a(i j)
End If
Next j
Next i
maxele max
End Function
Private Sub Command2_Click()
Text1Text
Text2Text
End Sub
Private Sub Command1_Click()
Dim a(4 5) As Integer
Dim i As Integer j As Integer
Dim max As Integer
For i 1 To 4
For j 1 To 5
a(i j) Int(Rnd * 90 + 10)
Text1Text Text1Text & Str(a(i j))
Next j
Text1Text Text1Text & vbCrLf
Next i
max maxele(a)
Text2Text 元素 & max & vbCrLf
Text2Text Text2Text & 位置 & vbCrLf
For i 1 To 4
For j 1 To 5
If max a(i j) Then
Text2Text Text2 & i & 行 & j & 列 & vbCrLf
End If
Next j
Next i
第2题 题号9
＇
＇程序设计
＇
＇题目求
＇ 编程序维数组中元素右循环移位移位次数键盘输入
＇ 例数组元素值次12345678910
＇ 位移3次元素值次89101234567
＇ 窗体设计界面参见已出参考界面
＇编程求
＇ 1) 数组定义固定10元素数组
＇ 输入钮(Command1)inputbox函数逐输入
＇ 11010数显示文框Text1中
＇ 文框Text2中输入循环移位位数（请输入3）
＇ 移位钮调通Sub程rmove()实现移位操作时
＇ 移位10数显示文框Text3中
＇ 清钮Command23文框清空焦点置Text2
＇ 退出钮Command3结束程序运行
＇ 2)程序中应定义通Sub程rmove()实现移位操作
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间 (1)先写出定义Sub程rmove()程序代码
＇ (2)然完成Command1_Click()Command3_Click()Command4_Click()程代码
＇ (3)完善Command2_Click()程代码
＇ 注意：
＇ Command2_Click()程结束语句 End Sub已出代码均删否分
答案：
Private Sub rmove(a() As Integer m As Integer)
Dim i As Integer j As Integer t As Integer
n UBound(a)
For i 1 To m
t a(n)
＇循环右移
For j n To 2 Step 1
a(j) a(j 1)
Next j
a(1) t
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer
Text1
＇输入原始数显示文框1中
For i 1 To UBound(a)
a(i) Val(InputBox(A( & i & )))
Text1 Text1 & a(i) &
Next i
End Sub
Private Sub Command3_Click()
Text1
Text2
Text3
Text2SetFocus
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command2_Click()
Dim i As Integer m As Integer
m Val(Text2)
Call rmove(a m)
＇输出右移数组值
For i 1 To n
Text3 Text3 & a(i) &
Next i
第3题 题号11
＇
＇程序设计
＇
＇题目求
＇ 编写程序机生成4行5列两位整数组成数组找出中谷点元素
＇ 谓谷点元素指行列元素
＇ 窗体设计界面参见已出参考界面
＇编程求
＇ 1）生成数组钮(Command1)生成机数组显示图片框(Picture1)中
＇ 查找谷点钮(Command2)找出谷点元素
＇ 图示格式显示行文框(Text1)中
＇ 清钮Command3清图片框文框
＇ 2) 程序中应定义名cpSub程查找数组某行否谷点元素
＇ （算法提示：先求出某行元素判断该元素否该列
谷点数否谷点存）
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义Sub程cp程序代码Command1Command3代码
＇ (2)完善Command2_Click()事件程代码
＇ 注意：
＇ Command2_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Sub cp(a() As Integer n f As Boolean k)
Dim i minv
minv a(n 1) k 1
For i 2 To UBound(a 2)
If minv > a(n i) Then
minv a(n i) k i
End If
Next i
For i 1 To 4
If minv > a(i k) Then Exit Sub
Next i
f True
End Sub
Private Sub Command1_Click()
Dim i j
For i 1 To 4
For j 1 To 5
a(i j) Int(Rnd * 90) + 10
Picture1Print a(i j)
Next j
Picture1Print
Next i
End Sub
Private Sub Command3_Click()
Picture1Cls
Text1
End Sub
Private Sub Command2_Click()
Dim i As Integer ＇循环变量控制行变化
Dim flag As Boolean ＇程调时判断行数中否谷点逻辑变量
Dim k As Integer ＇记录行值列号
For i 1 To 4
Call cp(a i flag k)
If flag Then
Text1 Text1 & ( & i & & k & ) & a(i k) & vbCrLf
End If
Next i
第4题 题号2
＇
＇程序设计
＇
＇题目求
＇编写求前n项级数程序求公式参见已出参考图122示
＇ 1）文框Text1中输入x值1文框Text2中输入n值5
＇ 计算钮(Command1)开始计算列表框List1中显示S1S2…Sn
＇ 清钮(Command2)两文框列表框清空焦点置Text1
＇ 退出钮(Command3)结束程序运行
＇ 2）程序中应定义名fact函数程计算阶值
＇代码书写求
＇ 1)列表框文框命令钮名称必须系统默认名称
＇ List1Text1Command1等否扣分
＇ 2）窗体设计界面参见已出参考界面
＇ 3)请****Program*********End*****间添加程序代码
＇ 请指定区间 1)先写出定义函数factCommand2Command3程序代码
＇ 2)然完善Command1_Click()程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Public Function fact(n As Integer) As Long
If n 1 Then
fact 1
Else
fact n * fact(n 1)
End If
End Function
Private Sub Command2_Click()
Text1Text
Text2Text
List1Clear
Text1SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Const pi 314159265
Dim k As Integer x As Single n As Integer s As Single
Dim t As Single
x Text1Text
n Text2Text
For k 1 To n
t (1) ^ k * (pi 2) ^ (2 * k) * x ^ (4 * k + 1) (fact(2 * k) * (4 * k + 1))
s s + t
List1AddItem S( & k & ) & s
Next k
第5题 题号4
＇
＇程序设计
＇
＇题目求
＇编写程序定方式标记出方阵中行元素位置
＇果某行数值相等元素时标记出
＇标记方式行元素 0元素 1
＇窗体设计界面参见已出参考界面
’编程求
＇1)文框Text1中输入 N 值（求输入5）
＇ 执行钮机生成 N 行 N 列两位正整数组成 N 阶方阵
＇ 输出行文框Text2 中时求出行元素生成标记矩阵
＇ 输出行文框Text3 中
＇ 清钮3文框清空焦点置文框Text1
＇ 退出 钮结束程序运行
＇2)程序中应定义求数组某行元素值通Sub程minx()
＇3)原始方阵数机函数生成（注意：randomize语句）
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Text2Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间 (1)先写出定义Sub程minx()程序代码Command2_Click()
＇ Commnad3_Click()代码
＇ (2)完善Command1_Click()程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码均删
＇ 否分
答案：
Private Sub minx(a() As Integer k As Integer min_v As Integer)
Dim i As Integer
min_v a(k 1)
For i 2 To UBound(a 1)
If a(k i) < min_v Then min_v a(k i)
Next i
End Sub
Private Sub Command2_Click()
Text1Text
Text2Text
Text3Text
Text1SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Dim n As Integer i As Integer j As Integer
Dim min_v As Integer s1 As String s2 As String
Dim a() As Integer m() As Integer
＇Randomize
n Text1
ReDim a(n n) m(n n)
For i 1 To n
For j 1 To n
m(i j) 1
a(i j) Int(Rnd * 90) + 10
s1 s1 & Str(a(i j))
Next j
s1 s1 & vbCrLf
Next i
For i 1 To n
Call minx(a i min_v)
For j 1 To n
If a(i j) min_v Then m(i j) 0
s2 s2 & Str(m(i j))
Next j
第6题 题号1
＇
＇程序设计
＇
＇题目求
＇键盘输入6名学成绩分：877256899266成绩
＇显示文框Text1中（Command1_Click()事件程完成）
＇然降序6成绩进行排序结果显示文框Text2中
＇（Command2_Click()事件程完成）窗体设计界面参见已出参考界面
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Text2Command1等
＇2)inputbox函数输入成绩原始成绩必须面出数否扣分
＇3)请****Program*********End*****间添加程序代码
答案：
Private Sub Command1_Click()
Dim i As Integer
N 6
Text1Text
＇ 输入显示数
For i 1 To N
X(i) Val(InputBox(请输入第 & Str(i) & 学生成绩 成绩排序 ))
Text1Text Text1Text & Str(X(i))
Next i
End Sub
Private Sub Command2_Click()
＇ 较交换法进行排序
Dim i As Integer t As Integer j As Integer
For i 1 To N 1
For j i + 1 To N
If X(i) < X(j) Then
t X(i)
X(i) X(j)
X(j) t
End If
Next j
Next i
＇ 显示排序结果
Text2Text
For i 1 To N
Text2Text Text2Text & Str(X(i))
Next i
第7题 题号10
＇
＇程序设计
＇
＇题目求
＇ 编写程序找出机生成30重复数三位整数中降序数
＇ 谓降序数指百位数十位数十位数位数
＇ 窗体设计界面参见已出参考界面
＇编程求
＇ 1）单击执行钮(Command1)机生产30重复数三位整数
＇ 10数行格式显示行文框Text1中找出中降序数输出列表框List1
＇ 求程序代码中Randomize语句否扣分
＇ 果数中降序数存msgbox输出降序数信息
＇ 清钮(Command2)文框列表框清空
＇ 2）程序中应定义名jx函数程判断整数否降序
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义函数程jx程序代码Command2代码
＇ (2)完善Command1_Click()事件程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Function jx(ByVal n As Integer) As Boolean
Dim a As Integer b As Integer c As Integer
a n ＼ 100
b n ＼ 10 Mod 10
c n Mod 10
If a > b And b > c Then jx True
End Function
Private Sub Command2_Click()
Text1Text
List1Clear
End Sub
Private Sub Command1_Click()
Dim a(30) As Integer
Dim i As Integer k As Integer
Dim n As Integer
a(1) Int(900 * Rnd) + 100 ＇获互相数组元素值
Text1 Str(a(1))
k 1
Do While k < 30
n Int(900 * Rnd) + 100
If InStr(Text1 CStr(n)) 0 Then
Text1 Text1 & Str(n)
k k + 1
a(k) n
If k Mod 10 0 Then Text1 Text1 & vbCrLf
End If
Loop
For i 1 To 30 ＇列表框中显示降序数
If jx(a(i)) True Then List1AddItem a(i)
Next i
If List1ListCount 0 Then MsgBox 降序数
第8题 题号7
＇
＇程序设计
＇
＇题目求
＇ 编写程序找出100素数存放数组P中
＇ 找素数行10形式显示文框Text1中
＇ 窗体设计界面参见已出参考界面
＇编程求
＇1)找素数钮(Command1)查找素数格式求显示行文框Text1中
＇2)程序中应定义通函数程Prime()判断数否素数
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间 (1)先写出定义函数程Prime()程序代码
＇ (2)然完善Command1_Click()程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Function prime(n As Integer) As Boolean
Dim I As Integer
For I 2 To Sqr(n)
If n Mod I 0 Then Exit Function
Next I
prime True
End Function
Private Sub Command1_Click()
Dim I As Integer ＇作循环变量
Dim m As Integer ＇m作元素数计数器
Dim p(50) As Integer
p(1) 2
m 1
For I 3 To 99 Step 2
If prime(I) Then
m m + 1
p(m) I
End If
Next I
For I 1 To m
Text1 Text1 & Right( & CStr(p(I)) 4)
If I Mod 10 0 Then Text1 Text1 & vbCrLf
Next I
第9题 题号12
＇
＇程序设计
＇
＇题目求
＇ 1) 编写程序程序功：首先定格式（数逗号分隔1表示数结束）
＇ 输入文框Text1中数(12221525172219111)次存入数组p
＇ 然该组数建立次序排列索引表显示文框Text2中
＇ 文框Text2中第数4表示文框1中第4数
＇ 文框2中数8表示文框1中第8数
＇ 2) 窗体设计界面参见已出参考界面
＇编程求
＇ 1）文框Text1中输入测试数处理钮(Command1)
＇ 题目求结果显示文框Text2中
＇ 清钮(Command2)2文框清空焦点置文框Text1
＇ 退出钮(Commnad3)结束程序运行
＇ 2）程序中应定义通Sub程lnumText1中原始数放入数组p中
＇ 3) 程序中应定义根数组元素取排列号通Sub程Ind
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义Sub程lnum()Ind()程序代码Command2Command3代码
＇ (2)完善Command1_Click()事件程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Sub lnum(st As String p() As Integer)
Dim k As Integer t As Integer n As Integer
Do
n InStr(st )
If t <> 1 And n <> 0 Then
t Val(Left(st n 1))
k k + 1
ReDim Preserve p(k)
p(k) t
st Right(st Len(st) n)
Else
Exit Do
End If
Loop
End Sub
Private Sub Ind(p() As Integer D() As Integer)
Dim t As Integer i As Integer j As Integer maxv As Integer
ReDim D(UBound(p))
For i 1 To UBound(p)
D(i) i
Next i
For i 1 To UBound(p) 1
For j i + 1 To UBound(p)
If p(i) < p(j) Then
t p(i) p(i) p(j) p(j) t
t D(i) D(i) D(j) D(j) t
End If
Next j
Next i
End Sub
Private Sub Command2_Click()
Text1
Text2
Text1SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Dim i As Integer ＇循环变量
Dim st As String ＇存放text1容新生成排列号字符串
Dim p() As Integer ＇存放Text1中取出数
Dim D() As Integer ＇存放p数组中元素值排列号
st Text1
Call lnum(st p)
Call Ind(p D)
st
For i 1 To UBound(D)
st st & Str(D(i))
Next i
Text2 st
第10题 题号6
＇
＇程序设计
＇
＇题目求
＇编写程序找出50表示成两方数整数
＇窗体设计界面参见已出参考界面
’编程求
＇1) 执行钮Command1开始运行程序参考界面格式符合条件数
＇ 显示行文框中行显示5数
＇ 清理钮Command2文框清空
＇ 结束钮Command3结束程序运行
＇2) 程序需创建通Sub程Sub1该程功判断数否方数
＇3) 显示文框中数必须参考界面中形式齐
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义Sub程Sub1程序代码Command2Commnad3代码
＇ (2)完善Command1_Click()程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Sub sub1(n As Integer f As Boolean)
Dim i As Integer l As Integer
If n > 0 Then
If Int(Sqr(n)) Sqr(n) Then
f True
Exit Sub
End If
End If
f False
End Sub
Private Sub Command2_Click()
Text1Text
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Dim i As Integer j As Integer
Dim k As Integer logic As Boolean js As Integer
For i 1 To 50
For j 1 To 7
k i j * j
Call sub1(k logic)
If logic Then Exit For
Next j
If j > 7 Then
js js + 1
Text1 Text1 & Right( & Str(i) 4)
If js Mod 5 0 Then Text1Text Text1Text & vbCrLf
End If
Next i
第11题 题号13
＇
＇程序设计
＇
＇题目求
＇ 1) 编写程序找出1234四数字组成四位整数中素数
＇ 2) 窗体设计界面参见已出参考界面
＇编程求
＇ 1）单击开始钮(Command1)生成（筛选出）1234 四数字
＇ 组成4位整数显示列表框List1中列表框List2中显示中素数
＇ 2）单击清理钮(Command2)两列表框清空
＇ 单击退出钮(Command3)结束程序运行
＇ 3）程序中必须包含判断某数否素数通函数程Prime
＇ 4) 程序中必须包含判断某数否仅14构成数字仅出现1次
＇ 通函数程Compare
＇代码书写求
＇1)列表框命令钮名称必须系统默认名称List1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义函数程Prime程序代码Command2Command3代码
＇ (2)完善Command1_Click()事件程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Function compare(N As Long) As Boolean
Dim B(4) As Integer K As Integer j As Integer
Dim S As String * 1 Sum As Integer
For j 1 To 4
S Mid(CStr(N) j 1)
If Val(S) > 4 Then
Exit Function
End If
B(Val(S)) 1
Next j
For j 1 To 4
Sum Sum + B(j)
Next j
If Sum 4 Then compare True
End Function
Private Function prime(N As Long) As Boolean
Dim K As Long
For K 2 To Sqr(N)
If N Mod K 0 Then
Exit Function
End If
Next K
prime True
End Function
Private Sub Command2_Click()
List1Clear
List2Clear
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Dim A() As Long I As Long Flg As Boolean
For I 1234 To 4321
If compare(I) Then
List1AddItem I
Flg False
Flg prime(I)
If Flg Then
List2AddItem I
End If
End If
Next I
第12题 题号5
＇
＇程序设计
＇
＇题目求
＇编写程序机生成10[1099]区间整数选择法十数进行排序
＇窗体设计界面参见已出参考界面
’编程求
＇1)生成钮(Command1)机生成（注意：randomize语句）
＇ 10两位正整数组成数列输出文框Text1中
＇ 排序钮(Command2)10数排序显示文框Text2中
＇2)程序中应定义通Sub程ssort()实现选择法排序程
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Text2Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
(1)先写出定义Sub程ssort()程序代码Command1_Click()程代码
＇ (2)完善Command2_Click()程代码
＇ 注意：
＇ Command2_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Sub ssort(a() As Integer)
Dim i As Integer j As Integer
Dim temp As Integer
For i 1 To UBound(a) 1
For j i + 1 To UBound(a)
If a(i) > a(j) Then
temp a(i)
a(i) a(j)
a(j) temp
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i 1 To 10
sort(i) Int(Rnd * 90) + 10
Text1Text Text1Text & sort(i) &
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
If Text1 Then MsgBox 请先生成原始数列 Exit Sub
Call ssort(sort)
For i 1 To UBound(sort)
Text2Text Text2 & sort(i) &
Next i
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
第1题 题号14
＇
＇程序设计
＇
＇题目求
＇ 1) 编写程序生成4行5列二维数组数组元素机产生两位数
＇ 求该数组元素行号列号
＇ （相元素标出行号列号）
＇ [算法提示]首先找出元素数组中元素元素较
＇ 相等元素输出位置
＇ 窗体设计界面参见已出参考界面
＇编程求
＇ 1) 运行程序运行钮(Command1)生成4行5列两位机整数数组
＇ 参考界面格式显示行文框Text1中调求二维数组元素通程
＇ 结果输出行文框Text2中（注意代码中randomize语句）
＇ 清钮(Command2)文框图片框清空
＇ 2) 程序中应定义名maxele通函数程求二维数组元素
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义函数程maxele程序代码Command2代码
＇ (2)完善Command1_Click()事件程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Function maxele(a() As Integer) As Integer
Dim i As Integer j As Integer
Dim max As Integer
max a(1 1)
For i 1 To 4
For j 1 To 5
If a(i j) > max Then
max a(i j)
End If
Next j
Next i
maxele max
End Function
Private Sub Command2_Click()
Text1Text
Text2Text
End Sub
Private Sub Command1_Click()
Dim a(4 5) As Integer
Dim i As Integer j As Integer
Dim max As Integer
For i 1 To 4
For j 1 To 5
a(i j) Int(Rnd * 90 + 10)
Text1Text Text1Text & Str(a(i j))
Next j
Text1Text Text1Text & vbCrLf
Next i
max maxele(a)
Text2Text 元素 & max & vbCrLf
Text2Text Text2Text & 位置 & vbCrLf
For i 1 To 4
For j 1 To 5
If max a(i j) Then
Text2Text Text2 & i & 行 & j & 列 & vbCrLf
End If
Next j
Next i
第2题 题号9
＇
＇程序设计
＇
＇题目求
＇ 编程序维数组中元素右循环移位移位次数键盘输入
＇ 例数组元素值次12345678910
＇ 位移3次元素值次89101234567
＇ 窗体设计界面参见已出参考界面
＇编程求
＇ 1) 数组定义固定10元素数组
＇ 输入钮(Command1)inputbox函数逐输入
＇ 11010数显示文框Text1中
＇ 文框Text2中输入循环移位位数（请输入3）
＇ 移位钮调通Sub程rmove()实现移位操作时
＇ 移位10数显示文框Text3中
＇ 清钮Command23文框清空焦点置Text2
＇ 退出钮Command3结束程序运行
＇ 2)程序中应定义通Sub程rmove()实现移位操作
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间 (1)先写出定义Sub程rmove()程序代码
＇ (2)然完成Command1_Click()Command3_Click()Command4_Click()程代码
＇ (3)完善Command2_Click()程代码
＇ 注意：
＇ Command2_Click()程结束语句 End Sub已出代码均删否分
答案：
Private Sub rmove(a() As Integer m As Integer)
Dim i As Integer j As Integer t As Integer
n UBound(a)
For i 1 To m
t a(n)
＇循环右移
For j n To 2 Step 1
a(j) a(j 1)
Next j
a(1) t
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer
Text1
＇输入原始数显示文框1中
For i 1 To UBound(a)
a(i) Val(InputBox(A( & i & )))
Text1 Text1 & a(i) &
Next i
End Sub
Private Sub Command3_Click()
Text1
Text2
Text3
Text2SetFocus
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command2_Click()
Dim i As Integer m As Integer
m Val(Text2)
Call rmove(a m)
＇输出右移数组值
For i 1 To n
Text3 Text3 & a(i) &
Next i
第3题 题号11
＇
＇程序设计
＇
＇题目求
＇ 编写程序机生成4行5列两位整数组成数组找出中谷点元素
＇ 谓谷点元素指行列元素
＇ 窗体设计界面参见已出参考界面
＇编程求
＇ 1）生成数组钮(Command1)生成机数组显示图片框(Picture1)中
＇ 查找谷点钮(Command2)找出谷点元素
＇ 图示格式显示行文框(Text1)中
＇ 清钮Command3清图片框文框
＇ 2) 程序中应定义名cpSub程查找数组某行否谷点元素
＇ （算法提示：先求出某行元素判断该元素否该列
谷点数否谷点存）
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义Sub程cp程序代码Command1Command3代码
＇ (2)完善Command2_Click()事件程代码
＇ 注意：
＇ Command2_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Sub cp(a() As Integer n f As Boolean k)
Dim i minv
minv a(n 1) k 1
For i 2 To UBound(a 2)
If minv > a(n i) Then
minv a(n i) k i
End If
Next i
For i 1 To 4
If minv > a(i k) Then Exit Sub
Next i
f True
End Sub
Private Sub Command1_Click()
Dim i j
For i 1 To 4
For j 1 To 5
a(i j) Int(Rnd * 90) + 10
Picture1Print a(i j)
Next j
Picture1Print
Next i
End Sub
Private Sub Command3_Click()
Picture1Cls
Text1
End Sub
Private Sub Command2_Click()
Dim i As Integer ＇循环变量控制行变化
Dim flag As Boolean ＇程调时判断行数中否谷点逻辑变量
Dim k As Integer ＇记录行值列号
For i 1 To 4
Call cp(a i flag k)
If flag Then
Text1 Text1 & ( & i & & k & ) & a(i k) & vbCrLf
End If
Next i
第4题 题号2
＇
＇程序设计
＇
＇题目求
＇编写求前n项级数程序求公式参见已出参考图122示
＇ 1）文框Text1中输入x值1文框Text2中输入n值5
＇ 计算钮(Command1)开始计算列表框List1中显示S1S2…Sn
＇ 清钮(Command2)两文框列表框清空焦点置Text1
＇ 退出钮(Command3)结束程序运行
＇ 2）程序中应定义名fact函数程计算阶值
＇代码书写求
＇ 1)列表框文框命令钮名称必须系统默认名称
＇ List1Text1Command1等否扣分
＇ 2）窗体设计界面参见已出参考界面
＇ 3)请****Program*********End*****间添加程序代码
＇ 请指定区间 1)先写出定义函数factCommand2Command3程序代码
＇ 2)然完善Command1_Click()程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Public Function fact(n As Integer) As Long
If n 1 Then
fact 1
Else
fact n * fact(n 1)
End If
End Function
Private Sub Command2_Click()
Text1Text
Text2Text
List1Clear
Text1SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Const pi 314159265
Dim k As Integer x As Single n As Integer s As Single
Dim t As Single
x Text1Text
n Text2Text
For k 1 To n
t (1) ^ k * (pi 2) ^ (2 * k) * x ^ (4 * k + 1) (fact(2 * k) * (4 * k + 1))
s s + t
List1AddItem S( & k & ) & s
Next k
第5题 题号4
＇
＇程序设计
＇
＇题目求
＇编写程序定方式标记出方阵中行元素位置
＇果某行数值相等元素时标记出
＇标记方式行元素 0元素 1
＇窗体设计界面参见已出参考界面
’编程求
＇1)文框Text1中输入 N 值（求输入5）
＇ 执行钮机生成 N 行 N 列两位正整数组成 N 阶方阵
＇ 输出行文框Text2 中时求出行元素生成标记矩阵
＇ 输出行文框Text3 中
＇ 清钮3文框清空焦点置文框Text1
＇ 退出 钮结束程序运行
＇2)程序中应定义求数组某行元素值通Sub程minx()
＇3)原始方阵数机函数生成（注意：randomize语句）
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Text2Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间 (1)先写出定义Sub程minx()程序代码Command2_Click()
＇ Commnad3_Click()代码
＇ (2)完善Command1_Click()程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码均删
＇ 否分
答案：
Private Sub minx(a() As Integer k As Integer min_v As Integer)
Dim i As Integer
min_v a(k 1)
For i 2 To UBound(a 1)
If a(k i) < min_v Then min_v a(k i)
Next i
End Sub
Private Sub Command2_Click()
Text1Text
Text2Text
Text3Text
Text1SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Dim n As Integer i As Integer j As Integer
Dim min_v As Integer s1 As String s2 As String
Dim a() As Integer m() As Integer
＇Randomize
n Text1
ReDim a(n n) m(n n)
For i 1 To n
For j 1 To n
m(i j) 1
a(i j) Int(Rnd * 90) + 10
s1 s1 & Str(a(i j))
Next j
s1 s1 & vbCrLf
Next i
For i 1 To n
Call minx(a i min_v)
For j 1 To n
If a(i j) min_v Then m(i j) 0
s2 s2 & Str(m(i j))
Next j
第6题 题号1
＇
＇程序设计
＇
＇题目求
＇键盘输入6名学成绩分：877256899266成绩
＇显示文框Text1中（Command1_Click()事件程完成）
＇然降序6成绩进行排序结果显示文框Text2中
＇（Command2_Click()事件程完成）窗体设计界面参见已出参考界面
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Text2Command1等
＇2)inputbox函数输入成绩原始成绩必须面出数否扣分
＇3)请****Program*********End*****间添加程序代码
答案：
Private Sub Command1_Click()
Dim i As Integer
N 6
Text1Text
＇ 输入显示数
For i 1 To N
X(i) Val(InputBox(请输入第 & Str(i) & 学生成绩 成绩排序 ))
Text1Text Text1Text & Str(X(i))
Next i
End Sub
Private Sub Command2_Click()
＇ 较交换法进行排序
Dim i As Integer t As Integer j As Integer
For i 1 To N 1
For j i + 1 To N
If X(i) < X(j) Then
t X(i)
X(i) X(j)
X(j) t
End If
Next j
Next i
＇ 显示排序结果
Text2Text
For i 1 To N
Text2Text Text2Text & Str(X(i))
Next i
第7题 题号10
＇
＇程序设计
＇
＇题目求
＇ 编写程序找出机生成30重复数三位整数中降序数
＇ 谓降序数指百位数十位数十位数位数
＇ 窗体设计界面参见已出参考界面
＇编程求
＇ 1）单击执行钮(Command1)机生产30重复数三位整数
＇ 10数行格式显示行文框Text1中找出中降序数输出列表框List1
＇ 求程序代码中Randomize语句否扣分
＇ 果数中降序数存msgbox输出降序数信息
＇ 清钮(Command2)文框列表框清空
＇ 2）程序中应定义名jx函数程判断整数否降序
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义函数程jx程序代码Command2代码
＇ (2)完善Command1_Click()事件程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Function jx(ByVal n As Integer) As Boolean
Dim a As Integer b As Integer c As Integer
a n ＼ 100
b n ＼ 10 Mod 10
c n Mod 10
If a > b And b > c Then jx True
End Function
Private Sub Command2_Click()
Text1Text
List1Clear
End Sub
Private Sub Command1_Click()
Dim a(30) As Integer
Dim i As Integer k As Integer
Dim n As Integer
a(1) Int(900 * Rnd) + 100 ＇获互相数组元素值
Text1 Str(a(1))
k 1
Do While k < 30
n Int(900 * Rnd) + 100
If InStr(Text1 CStr(n)) 0 Then
Text1 Text1 & Str(n)
k k + 1
a(k) n
If k Mod 10 0 Then Text1 Text1 & vbCrLf
End If
Loop
For i 1 To 30 ＇列表框中显示降序数
If jx(a(i)) True Then List1AddItem a(i)
Next i
If List1ListCount 0 Then MsgBox 降序数
第8题 题号7
＇
＇程序设计
＇
＇题目求
＇ 编写程序找出100素数存放数组P中
＇ 找素数行10形式显示文框Text1中
＇ 窗体设计界面参见已出参考界面
＇编程求
＇1)找素数钮(Command1)查找素数格式求显示行文框Text1中
＇2)程序中应定义通函数程Prime()判断数否素数
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间 (1)先写出定义函数程Prime()程序代码
＇ (2)然完善Command1_Click()程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Function prime(n As Integer) As Boolean
Dim I As Integer
For I 2 To Sqr(n)
If n Mod I 0 Then Exit Function
Next I
prime True
End Function
Private Sub Command1_Click()
Dim I As Integer ＇作循环变量
Dim m As Integer ＇m作元素数计数器
Dim p(50) As Integer
p(1) 2
m 1
For I 3 To 99 Step 2
If prime(I) Then
m m + 1
p(m) I
End If
Next I
For I 1 To m
Text1 Text1 & Right( & CStr(p(I)) 4)
If I Mod 10 0 Then Text1 Text1 & vbCrLf
Next I
第9题 题号12
＇
＇程序设计
＇
＇题目求
＇ 1) 编写程序程序功：首先定格式（数逗号分隔1表示数结束）
＇ 输入文框Text1中数(12221525172219111)次存入数组p
＇ 然该组数建立次序排列索引表显示文框Text2中
＇ 文框Text2中第数4表示文框1中第4数
＇ 文框2中数8表示文框1中第8数
＇ 2) 窗体设计界面参见已出参考界面
＇编程求
＇ 1）文框Text1中输入测试数处理钮(Command1)
＇ 题目求结果显示文框Text2中
＇ 清钮(Command2)2文框清空焦点置文框Text1
＇ 退出钮(Commnad3)结束程序运行
＇ 2）程序中应定义通Sub程lnumText1中原始数放入数组p中
＇ 3) 程序中应定义根数组元素取排列号通Sub程Ind
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义Sub程lnum()Ind()程序代码Command2Command3代码
＇ (2)完善Command1_Click()事件程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Sub lnum(st As String p() As Integer)
Dim k As Integer t As Integer n As Integer
Do
n InStr(st )
If t <> 1 And n <> 0 Then
t Val(Left(st n 1))
k k + 1
ReDim Preserve p(k)
p(k) t
st Right(st Len(st) n)
Else
Exit Do
End If
Loop
End Sub
Private Sub Ind(p() As Integer D() As Integer)
Dim t As Integer i As Integer j As Integer maxv As Integer
ReDim D(UBound(p))
For i 1 To UBound(p)
D(i) i
Next i
For i 1 To UBound(p) 1
For j i + 1 To UBound(p)
If p(i) < p(j) Then
t p(i) p(i) p(j) p(j) t
t D(i) D(i) D(j) D(j) t
End If
Next j
Next i
End Sub
Private Sub Command2_Click()
Text1
Text2
Text1SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Dim i As Integer ＇循环变量
Dim st As String ＇存放text1容新生成排列号字符串
Dim p() As Integer ＇存放Text1中取出数
Dim D() As Integer ＇存放p数组中元素值排列号
st Text1
Call lnum(st p)
Call Ind(p D)
st
For i 1 To UBound(D)
st st & Str(D(i))
Next i
Text2 st
第10题 题号6
＇
＇程序设计
＇
＇题目求
＇编写程序找出50表示成两方数整数
＇窗体设计界面参见已出参考界面
’编程求
＇1) 执行钮Command1开始运行程序参考界面格式符合条件数
＇ 显示行文框中行显示5数
＇ 清理钮Command2文框清空
＇ 结束钮Command3结束程序运行
＇2) 程序需创建通Sub程Sub1该程功判断数否方数
＇3) 显示文框中数必须参考界面中形式齐
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义Sub程Sub1程序代码Command2Commnad3代码
＇ (2)完善Command1_Click()程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Sub sub1(n As Integer f As Boolean)
Dim i As Integer l As Integer
If n > 0 Then
If Int(Sqr(n)) Sqr(n) Then
f True
Exit Sub
End If
End If
f False
End Sub
Private Sub Command2_Click()
Text1Text
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Dim i As Integer j As Integer
Dim k As Integer logic As Boolean js As Integer
For i 1 To 50
For j 1 To 7
k i j * j
Call sub1(k logic)
If logic Then Exit For
Next j
If j > 7 Then
js js + 1
Text1 Text1 & Right( & Str(i) 4)
If js Mod 5 0 Then Text1Text Text1Text & vbCrLf
End If
Next i
第11题 题号13
＇
＇程序设计
＇
＇题目求
＇ 1) 编写程序找出1234四数字组成四位整数中素数
＇ 2) 窗体设计界面参见已出参考界面
＇编程求
＇ 1）单击开始钮(Command1)生成（筛选出）1234 四数字
＇ 组成4位整数显示列表框List1中列表框List2中显示中素数
＇ 2）单击清理钮(Command2)两列表框清空
＇ 单击退出钮(Command3)结束程序运行
＇ 3）程序中必须包含判断某数否素数通函数程Prime
＇ 4) 程序中必须包含判断某数否仅14构成数字仅出现1次
＇ 通函数程Compare
＇代码书写求
＇1)列表框命令钮名称必须系统默认名称List1Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
＇ (1)先写出定义函数程Prime程序代码Command2Command3代码
＇ (2)完善Command1_Click()事件程代码
＇ 注意：
＇ Command1_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Function compare(N As Long) As Boolean
Dim B(4) As Integer K As Integer j As Integer
Dim S As String * 1 Sum As Integer
For j 1 To 4
S Mid(CStr(N) j 1)
If Val(S) > 4 Then
Exit Function
End If
B(Val(S)) 1
Next j
For j 1 To 4
Sum Sum + B(j)
Next j
If Sum 4 Then compare True
End Function
Private Function prime(N As Long) As Boolean
Dim K As Long
For K 2 To Sqr(N)
If N Mod K 0 Then
Exit Function
End If
Next K
prime True
End Function
Private Sub Command2_Click()
List1Clear
List2Clear
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Dim A() As Long I As Long Flg As Boolean
For I 1234 To 4321
If compare(I) Then
List1AddItem I
Flg False
Flg prime(I)
If Flg Then
List2AddItem I
End If
End If
Next I
第12题 题号5
＇
＇程序设计
＇
＇题目求
＇编写程序机生成10[1099]区间整数选择法十数进行排序
＇窗体设计界面参见已出参考界面
’编程求
＇1)生成钮(Command1)机生成（注意：randomize语句）
＇ 10两位正整数组成数列输出文框Text1中
＇ 排序钮(Command2)10数排序显示文框Text2中
＇2)程序中应定义通Sub程ssort()实现选择法排序程
＇代码书写求
＇1)文框命令钮名称必须系统默认名称Text1Text2Command1等
＇2)请****Program*********End*****间添加程序代码
＇3)请指定区间
(1)先写出定义Sub程ssort()程序代码Command1_Click()程代码
＇ (2)完善Command2_Click()程代码
＇ 注意：
＇ Command2_Click()程结束语句 End Sub已出代码
＇ 均删否分
答案：
Private Sub ssort(a() As Integer)
Dim i As Integer j As Integer
Dim temp As Integer
For i 1 To UBound(a) 1
For j i + 1 To UBound(a)
If a(i) > a(j) Then
temp a(i)
a(i) a(j)
a(j) temp
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i 1 To 10
sort(i) Int(Rnd * 90) + 10
Text1Text Text1Text & sort(i) &
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
If Text1 Then MsgBox 请先生成原始数列 Exit Sub
Call ssort(sort)
For i 1 To UBound(sort)
Text2Text Text2 & sort(i) &
Next i
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
