急求vb高手请进哈!~~~两道vb程序填空题~

1.下列程序随机产生n个互不重复的三位数,存放在数组a中,从键盘输入要随机产生的数据的个数,数据以每行4个的形式输出,同时调用子过程s(),将统计的结果输出。子过程s()... 1.下列程序随机产生n个互不重复的三位数,存放在数组a中,从键盘输入要随机产生的数据的个数,数据以每行4个的形式输出,同时调用子过程s( ),将统计的结果输出。子过程s( )的功能是统计数组x中百位数与个位数相同的个数。

Private Sub Button1_Click(......) Handles Button1.Click
Dim a%(), c%, k%, n%, j%, i%, count%
Dim Flag As Boolean
k = Val(InputBox("输入产生数的个数:"))
______(1)_____
a(0) = Int(Rnd() * 900 + 100)
n = 1
Do While n < k
c = Int(Rnd() * 900 + 100)
Flag = True
For j = 0 To n - 1
If a(j) = c Then _____(2)_____
Next j
If Flag Then ' 没有找到,产生的字母非重复,存放到数组中
a(n) = c : n = n + 1
End If
Loop
For i = 0 To k - 1
Label1.Text &= a(i) & " "
If _____(3)_____ Then Label1.Text &= vbCrLf
Next i
Call s(a, count)
Label1.Text &= vbCrLf & "满足条件的个数:" & count
End Sub
Sub s(_____(4)_____) '要求严格区分是传值还是传地址
Dim i, k As Integer, f As Boolean
For i = 0 To ______(5)_______
k = x(i)
If k \ 100 = k Mod 10 Then count = count + 1
Next
End Sub
2.程序运行后,在列表框中产生16个80到110之间间隔为2的华氏温度及其对应的摄氏温度表。单击按钮,要求从键盘输入一个华氏温度,在列表框中的查找,若找到,将找到的信息输出,否则,输出"找不到"。
Private Sub Form1_Load(......) Handles MyBase.Load
Dim f%, c%
ListBox1.Items.Clear()
ListBox1.Items.Add("华氏 摄氏")
For f = 80 To 110 Step 2
c = 5 / 9 * (f - 32) '求摄氏温度
ListBox1._______(1)_______(f & Space(10 - Len(Str(f))) & c)
Next
End Sub
Private Sub Button1_Click(......) Handles Button1.Click
Dim d%, i%, f%, c%, x$
Dim flag As Boolean
d = Val(InputBox("输入要查找的华氏温度"))
flag = False
For i = 0 To ListBox1._______(2)_______
x = ListBox1.Items(i)
f = Val(Mid(x, 1, 3))
If f = d Then
_______(3)_______
Exit For
End If
Next
If flag Then
MsgBox("华氏:" & f & vbCrLf & "摄氏:" & Microsoft.VisualBasic.Right(x, 2))
Else
MsgBox("找不到!")
End If
End Sub
展开
 我来答
Yuqi_Tan

2009-06-10 · TA获得超过8.9万个赞
知道大有可为答主
回答量:9918
采纳率:93%
帮助的人:3996万
展开全部
第一题:
Private Sub Button1_Click(......) Handles Button1.Click
Dim a%(), c%, k%, n%, j%, i%, count%
Dim Flag As Boolean
k = Val(InputBox("输入产生数的个数:"))
______ReDim a(k - 1)__________(1)_____
a(0) = Int(Rnd() * 900 + 100)
n = 1
Do While n < k
c = Int(Rnd() * 900 + 100)
Flag = True
For j = 0 To n - 1
If a(j) = c Then _____Flag = False_____(2)_____
Next j
If Flag Then ' 没有找到,产生的字母非重复,存放到数组中
a(n) = c : n = n + 1
End If
Loop
For i = 0 To k - 1
Label1.Text &= a(i) & " "
If _____i + 1 Mod 4 = 0_____(3)_____ Then Label1.Text &= vbCrLf
Next i
Call s(a, count)
Label1.Text &= vbCrLf & "满足条件的个数:" & count
End Sub
Sub s(_____ByRef x%(), ByRef count%_____(4)_____) '要求严格区分是传值还是传地址
Dim i, k As Integer, f As Boolean
For i = 0 To ______UBound(x)_______(5)_______
k = x(i)
If k \ 100 = k Mod 10 Then count = count + 1
Next
End Sub
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同... 点击进入详情页
本回答由网易云信提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式