一段VB程序

这段代码不知道哪句代码出了错误。总是执行不成功。

1、将定义变量部分放到通用-声明部分还是不行。

2、去掉求平均数的代码前两个文本框均显示为空。

不知道哪句代码出错了，请各位大侠指教，小女感激不尽~~

仔细看代码第一行.....

首先是第一行笔误码，再次，不要用两个按钮控制。如果非要这样，你只能定义在通用，不要在子过程定义！如果不懂，请像下面的，可以达到你的要求！

Private Sub Command1_Click() Dim jige As Integer Dim bujige As Integer Dim pingjun As Integer Dim shuru As Integer Dim n As Integer Dim zonghe As Integer n = 0: zonghe = 0 shuru = InputBox("请输入分数", "提示") While shuru > 0 And shuru < 100 zonghe = zonghe + shuru If shuru > 60 Then jige = jige + 1 Else bujige = bujige + 1 n = n + 1 shuru = InputBox("请输入分数", "提示") Wend

Text1.Text = jige Text2.Text = bujige Text3.Text = zonghe / n

End Sub

你程序要求什么

帮你写

发代码吧，图看不清楚！

Dim jigeas As Integer Dim bujige As Integer Dim pingjun As Integer Dim shuru As Integer Dim n As Integer Dim zonghe As Integer Private Sub Command1_Click() n = 0: zonghe = 0 shuru = CInt(InputBox("请输入分数", "提示")) While shuru > 0 And shuru < 100 zonghe = zonghe + shuru If shuru > 60 Then jige = jige + 1 Else bujige = bujige + 1 n = n + 1 shuru = CInt(InputBox("请输入分数", "提示")) Wend End Sub Private Sub Command2_Click() Text1.Text = CInt(jige) Text2.Text = CInt(bujige) Text3.Text = CDbl(zonghe / n) End Sub Private Sub Command3_Click() End End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息