1.“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。如自然数8208=84+24+84”,那它就是一个“四叶玫瑰数”。现用VB编写一个程序,实现如下功能:单击“查找”按钮Command1,在列表框List1中显示所有“四叶玫瑰数”,并在标签Label2中显示找到的个数,运行界面如下图所示:
(1)为实现上述功能,请在画线处填入正确的代码。
Private Sub Command1_Click( )
Dim i As Integer, s As Integer
Dim a As Integer, b As Integer, c As Integer, d As Integer s = 0
For i = 1 000 To 9 999
① '取出个位数字?
b = (i Mod 100)\\10 '取出十位数字
c = i \\ 100 Mod 10 '取出百位数字
d = i \\ 1 000 '取出千位数字
If a ^ 4+ b ^ 4 + c ^ 4 + d ^ 4 = i Then i
s = ② ? End If Next
= ″四叶玫瑰数共有″+ Str(s) + ″个″ End Sub
(2)程序中的语句“b = (i Mod 100) \\ 10”和下列哪些项功能相同 (多选)。?
=i\\10 Mod 10
= i Mod 100\\10
=Mid(i,3,1) =int(i/10) Mod 10
2、用VB设计一个奇数迁移的程序,具体要求是:单击“产生”按钮Command1,清空两个列表框中的内容,并产生10个3位自然数放入左边列表框List1中,如图1所示。单击“奇数迁移”按钮Command2,将列表框List1中的所有奇数迁移到列表框List2中,如图2所示。
图1 图2
在以下Visual Basic程序的画线①②处填入合适的语句,实现上述功能。
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 10
a(i) = Int(Rnd() * 900 + 100)
① ? Next i End Sub
Private Sub Command2_Click()
For i = ② ?
If a(i) Mod 2 = 1 Then a(i) Else a(i) End If
Next i End Sub
3、小贝用VB6语言编写了一个拼手气红包程序,实现的功能是:在文本框Text1中输入发放红包的总金额s,在文本框Text2中输入发放红包的个数n,单击“发放红包”按钮Command1,为n个红包随机分配金额,并在列表框List1中显示分配后的这些金额。界面如图1所示。
图1 图2
(1)在设计应用程序界面时,应使用图2所示“控件工具箱”中的 (填写相应编号)添加列表框List1。?
(2)为实现上述功能,请在横线①②③处填入合适代码。
Private Sub Command1_Click()
Dim s As Single,x As Single,n As Integer,i As Integer
Randomize
s= ① ? n=Val
For i=1 To ② '通过循环语句产生n-1个红包的随机值?
x=Int((Rnd()*s/(n-i)+*100)/100
Str(x)
s= ③ ?
Next i
x=Int((s+*100)/100 '产生最后一个红包
Str(x)
End Sub