![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
1个回答
展开全部
题目好像不全。以下的程序是实现这样的功能:
用随机函数产生10个50以内(包括50)的随机整数存入一维数组,从键盘上输入一个数,在数组中查找这样的数,最后返回查找结果:在数组的第几个元素中找到,或是未找到这样的数。
Private Sub Command1_Click()
Dim a(10) As Integer, x As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd() * 51)
Print a(i);
Next i
x = InputBox("请输入一个数:")
For i = 1 To 10
If a(i) = x Then Exit For
Next i
If i < 11 Then
Print "a("; i; ")="; x
Else
Print "未找到"; x
End If
End Sub
![](https://ecmc.bdimg.com/public03/b4cb859ca634443212c22993b0c87088.png)
2022-12-05 广告
图形化编程简单理解为用积木块形式编程,scratch和python也是其中的一种,属于入门级编程,以其简单生动的画面获得无数学生的喜爱,深圳市创客火科技有限公司是一家做教育无人机的公司,旗下有编程无人机,积木无人机及室内外编队,每款飞机含有...
点击进入详情页
本回答由--提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询