急求VB答案。。谢谢!!

xie0307 2010-04-21 10:00:48
单击窗体,实现下述功能:
利用随机函数Rnd产生n个随机两位数(整数),显示在窗体上(一行),然后再第二行输出这10个数中的最大值和平均值。(利用InputBox函数输入n)
...全文
102 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
dl20070302 2010-04-29
  • 打赏
  • 举报
回复
先看书.看了语法后就找例子做.
xie0307 2010-04-27
  • 打赏
  • 举报
回复
能告诉我VB该怎样学吗?我的确是菜鸟,什么都不懂,但我想把它学好。
myy168 2010-04-27
  • 打赏
  • 举报
回复
并不太难啊。。。
chinaboyzyq 2010-04-25
  • 打赏
  • 举报
回复

Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim tmp1 As Integer, tmp2 As Integer
Dim maxNum As Integer, avgNum As Single
n = Val(InputBox("请输入个数"))
For i = 1 To n
tmp1 = Int(Rnd * 100) + 10
Print tmp1;
If maxNum < tmp1 Then maxNum = tmp1
tmp2 = tmp2 + tmp1
Next
avgNum = tmp2 / n
Print: Print maxNum; avgNum

End Sub

threenewbee 2010-04-24
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim n As Long
Dim na() As Long
Dim max As Long
Dim avg As Double
n = InputBox("please input n")
If n = 0 Then Exit Sub
ReDim na(1 To n)
Randomize
For i = 1 To n
na(i) = Int(Rnd * 90) + 10
If na(i) > max Then max = na(i)
avg = avg + na(i)
Next
avg = avg / n
For i = 1 To n
Print na(i);
Next
MsgBox "max is " & max & vbCrLf & "avg is " & avg
End Sub
熊孩子开学喽 2010-04-22
  • 打赏
  • 举报
回复
挺简单的,建议楼主自己解决吧,遇到不会的语句再问也不迟
xie0307 2010-04-22
  • 打赏
  • 举报
回复
我才学习VB,什么都不懂,编程有点困难。。。帮帮我吧。。。
i1u0i1u0 2010-04-22
  • 打赏
  • 举报
回复
楼主要加强学习啊,这样简单的问题还是自己解决好
无·法 2010-04-22
  • 打赏
  • 举报
回复
作业?
chinaboyzyq 2010-04-22
  • 打赏
  • 举报
回复
产生随机数装入数组,然后去做你想要的。
threenewbee 2010-04-22
  • 打赏
  • 举报
回复
挺简单的,建议楼主自己解决吧
LZ自己已经把思路说完了。

1,452

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧