紧急求做VB题目
答案:5 悬赏:50
解决时间 2021-04-27 21:59
- 提问者网友:伪善人独行者
- 2021-04-27 13:17
编程实现:对话框和程序界面如图所示,单击command1计算按钮后。会出现成绩对话框,在对话框中逐个输入78人成绩后,程序界面的第二个标签labe12会出现平均分的结果
最佳答案
- 二级知识专家网友:湫止没有不同
- 2021-04-27 13:31
添加1个按钮贺1个文本框就可以了,复制以下代码
Private Sub Command1_Click()
Dim s() As Integer, sum As Long, ave As Long, n As Integer
sum = 0: ave = 0
If Not IsNumeric(Text1) And Val(Text1) <= 0 Then MsgBox "请输入个数(大于0)": Exit Sub
n = Val(Text1)
ReDim s(n)
For i = 1 To n
s(i) = Val(InputBox("输入数字"))
sum = sum + s(i)
Next
t = n & "个数字为:" & vbCrLf
For i = 1 To n
t = t & s(i) & ","
If i Mod 5 = 0 Then t = t & vbCrLf
Next
t = t & vbCrLf & "和为:" & sum & vbCrLf
t = t & "平均数为:" & sum / n & vbCrLf
MsgBox t
End Sub
Private Sub Command1_Click()
Dim s() As Integer, sum As Long, ave As Long, n As Integer
sum = 0: ave = 0
If Not IsNumeric(Text1) And Val(Text1) <= 0 Then MsgBox "请输入个数(大于0)": Exit Sub
n = Val(Text1)
ReDim s(n)
For i = 1 To n
s(i) = Val(InputBox("输入数字"))
sum = sum + s(i)
Next
t = n & "个数字为:" & vbCrLf
For i = 1 To n
t = t & s(i) & ","
If i Mod 5 = 0 Then t = t & vbCrLf
Next
t = t & vbCrLf & "和为:" & sum & vbCrLf
t = t & "平均数为:" & sum / n & vbCrLf
MsgBox t
End Sub
全部回答
- 1楼网友:邪性洒脱
- 2021-04-27 16:43
加我qq,直接给写好传给你
- 2楼网友:疯山鬼
- 2021-04-27 15:53
请贴图,这个不难
- 3楼网友:劳资的心禁止访问
- 2021-04-27 15:12
你的如图所示在哪里,你贴出图片看看。我想应该很简单。请补充题目!
- 4楼网友:颜值超标
- 2021-04-27 14:44
这么复杂的程序啊!真紧急!
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息!
大家都在看
推荐信息