一个VB程序题

togetheru

被这题困惑住了,题目是这样的:
依次输入学生的数学成绩,然后显示出总分和平均分.
我是这样解的
1、建立3个按钮:请输入学生数量、请输入学生成绩(Enabled=False)、退出(Enabled=False)
2、建立2个时钟:Timer1(Interval=1000、Enable=False)、Timer2(Interval=0、Enable=False)
3、建立4个标签abel1(Caption=总分、Visible=False)、Label2(Caption=""、Visible=False)、Label3(Caption=平均分、Visible=False)、Label4(Caption=""、Visible=False)

调试的时候出现的问题:输入N=10时,出现的对话框只有7个,改变Timer1.interval的属性值和Timer2.interval等式的值只会使对话框变为出现10个上下,总不能按照要求N值出现...由于本人是刚学VB,我想问的是是不是系统的延时有问题,谢谢大虾帮忙!

程序如下
Dim N, M As Integer, TS1$, TS2$
Dim SUM As Long, AVE As Single

Private Sub Timer1_Timer()
TS2$ = "请输入学生成绩(0到100之间的整数)" + Chr(13) + Chr(10) + "M="
M = Val(InputBox(TS2$, "学生成绩", 100, 5000, 1500))
SUM = SUM + M
End Sub

Private Sub Timer2_Timer()
Timer1.Enabled = False
Timer2.Enabled = False
总.Caption = SUM
平均.Caption = SUM / N
总分.Visible = True: 总.Visible = True
平均分.Visible = True: 平均.Visible = True
End Sub

Private Sub 请输入学生成绩_Click()
TS2$ = "请输入学生成绩(0到100之间的整数)" + Chr(13) + Chr(10) + "M="
M = Val(InputBox(TS2$, "学生成绩", 100, 5000, 1500))
请输入学生成绩.Enabled = False: 退出.Enabled = True
Timer1.Enabled = True: Timer2.Enabled = True
Timer2.Interval = 1000 * N + 900
SUM = M
End Sub

Private Sub 请输入学生数量_Click()
TS1$ = "请输入学生数量(1到15之间的整数)" + Chr(13) + Chr(10) + "N="
N = Val(InputBox(TS1$, "学生数量", 10, 5000, 1500))
请输入学生数量.Enabled = False: 请输入学生成绩.Enabled = True
End Sub

Private Sub 退出_Click()
End
End Sub

lights

个人觉得用对话框极为恶X。
一个文本框，一个按钮，一个标签 就好了。
no 时钟。
dim N as integer,M as integer//你的写法n不是整数，是变体。用N作学生数，M作总分。
'找个地方将　Ｎ=0，Ｍ　＝０，比如form_load
private sub 按钮_click()
on error goto err
    dim t as integer
    t = text1'这个是文本框，输入非数字会出错，跳到下面
    N = N+1:M=M+t
    dim ave as float
    ave = M /　Ｎ
    label1.caption = "总分" & M &"平均分" & ave
:err
'出错跳过，当你输入了非数字。
end sub

togetheru

感谢LIGHTS大哥的提点 有些函数还么碰到...我才学到第3章 前几章我是反复的看 要打好基础
谢谢了

Siner

天那，他的做法好“凶”

BlueGlobal

居然取中文的控件名，这样的习惯不好吧。
最好是这样：文本框(txtXXX,txtYYY), 按钮(cmdXXX,cmdYYY),标签(labXXX,labYYY)，其他类似。

控件名也好，变量名也好，取名是有一定的规范的。
另外，代码要错落有致，该缩进的地方要缩进，这样看起来才会爽心悦目。

togetheru

BlueGlobal: Re:一个VB程序题

居然取中文的控件名，这样的习惯不好吧。
最好是这样：文本框(txtXXX,txtYYY), 按钮(cmdXXX,cmdYYY),标签(...

我会牢记的 谢谢了 LIGHTS大哥的码调试时有错误...
Dim ave As Float  ’用户定义类型未定义
改成single
On Error GoTo Err  ’标签未定义
不知道如何做了 因为这个函数不会 大概是什么意思 它的基本格式是什么
谢谢了

lights

on error goto ...
出错时跳到指定位置
我把标签打错了
err:冒号在后边

还有那个作除法的时候，最好先转成浮点型再除

天魂.NET

哈哈，lights 是不是用 C++ 用多了，竟出这样的错误“Dim ave As Float”

sandy_zc_1

哈哈，最近pascal用多了，总是情不自禁地在"="前加":"，在"For...To"后面加"do"，每一句完了还不由自主地打一个分号……