VB操作题穷举操作题

2022-07-14 02:15:20 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VB操作题穷举操作题》，欢迎阅读！
穷举,操作

VB4—穷举操作题

一、操作题，每题10分，8题共80分【第1题】

打开文件“考生文件夹\862\完数.vbp”，完善程序实现如下功能并保存：

输入一个数，判断该数是否为完数。所谓完数即该数等于其因子之和。例如：6=1＋2＋3；28＝1＋2＋4＋7＋14。若是完数则输出该数及该数等于因子之和的公式；若不是完数则输出该数不是完数。 Private Sub cmdPerfect_Click() Dim m As Integer Dim sum As Integer Dim s As String Dim i As Integer s = "1" sum = 1

① = Val(InputBox("输入一个正整数:")) For i = 2 To m - 1

If m Mod i = 0 Then sum = ②

s = s & " +" & Str(i) End If Next i

If sum = m Then

Print m; "是完数"

Print m; "="; ③ ' 输出因子之和 Else

Print m; "不是完数" End If End Sub 【第2题】

打开文件“考生文件夹\859\玫瑰花数.vbp”，完善程序实现如下功能并保存：

如果一个4位数等于它的各位数字的4次方和，则这个4位数称为“玫瑰花”数，例如1634就是一个玫瑰花数。试编程求出所有的玫瑰花数，结果如下图所示。

Private Sub cmdDemoRose_Click() Dim i As Integer Dim s As Integer Dim m As Integer For i = 1000 To 9999 s = 0

For j = ① To 4

m = Mid(i, j, 1) s = s + ② Next j

If i = s Then Print i ③ End Sub 【第3题】

打开文件“考生文件夹\855\工程1.vbp”，完善程序实现如下功能并保存：古题新编：

妇人洗碗在河边，路人问妇酬几宾。答曰数目无细数，十三只碗自分明。二人共食一碗饭，三人共吃一碗羹。四人共肉无余数，请君细算客几人。将客人数显示在文本框中。

Private Sub Command1_Click() Dim i As Integer For i = 1 To ①

If i Mod 2 = 0 And i Mod 3 = 0 And ② Then Text1.Text = Str(③) End If Next i End Sub 【第4题】

打开文件“考生文件夹\608\工程1.vbp”，完善窗体的Click事件代码并保存。

实现功能：鸡兔同笼，共有100条腿，40个头，问鸡有几只，兔有几只？结果输出在窗体上。 Private Sub Form_Click()

Dim ji As Integer '鸡的个数

2

Dim tu As Integer '兔的个数

Dim leg As Integer '腿数 For ji = 1 To 39 tu = ① '计算腿数

leg = ② + tu * 4

'如果腿正好100只，则打印。 If leg = ③ Then Print "鸡="; ji; "只", "兔="; tu; "只"

End If Next ji End Sub 【第5题】

打开“Z:\424\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：将一张100元面值的人民币换成若干5元、1元、5角面值的人民币，但要求100元换成的零钱共100张，且要求每种面值不少

于1张，问5元、1元、5角各多少张，请输出每种可能的组合。

Private Sub Command1_Click() Dim Wuyuan As Integer Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan = 1 To 20 For Yiyuan = 1 To ①

Wujiao = 100 - Wuyuan - ② If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then

Print "Wuyuan=" & Wuyuan & ",Yiyuan=" & Yiyuan & ",Wujiao=" & Wujiao ③

Next Yiyuan Next Wuyuan End Sub 【第6题】

打开“考生文件夹\389\工程1.vbp”，完善程序并保存。

实现功能：小明忘记了自己一个word文档的打开密

2

码，只记得是一个4位数的数字密码6□□5，但知

道该数能够被69整除，也能被95整除。请你完善程序，帮他找出这个密码。

Private Sub Command1_Click() Dim a As Long

For a = 6005 To ① Step 10

If (a Mod 69 = 0) Or (a Mod 95 = 0) Then Print ② End If ③ End Sub 【第7题】

打开文件“考生文件夹\96\工程1.vbp”，完善程序并保存。

实现功能：假设有一个5位数密码。只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。请完善算法帮忙找出这个密码。

Private Sub Command1_Click() Dim x As Long

For x = ① To 67998 Step 10

If (x Mod 67 = 0) And (x Mod 78 = 0) Then Print ② End If ③ End Sub 【第8题】

打开文件“考生文件夹\51\工程1.vbp”，完善Command1_Click事件代码并保存。实现功能：若一个三位数abc，满足：

333

abc=a+b+c，则称abc为水仙花数。如三位数153

333

满足：1+5+3=1+125+27=153，则153是水仙花数。结果输出在窗体上。 Private Sub Command1_Click() Dim i As Integer

Dim a As Integer '百位数 Dim b As Integer '十位数 Dim c As Integer '个位数 For i = 100 To ① a = i \ 100

b = (i - a * 100) \ 10 c = ②

If a * a * a + b * b * b + c * c * c = i Then

Print i ③ Next i End Sub

2