VB有关添加和统计的问题，急要！！！！

来源：百度知道 编辑：UC知道 时间：2024/05/11 19:09:25
在名称为Form1的窗体上画一个名称为Label1，标题为“添加项目：”的标签；画一个名称为TEXT1的文本框，没有初始内容；画一个名称为COMBOL的下拉式组合框，并通过属性窗口输入若干项目（不少于3个，内容任意，老师题目要求的是国家名）。再画上2个命令按钮，名称分别为Command1,Command2,标题分别为“添加”，“统计”。在运行时，向TEXT1中输入字符，单击“添加”按钮后，则TEXT1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，需要编写2个命令按钮的CLICK事件过程。 注意：程序中不得使用变量和循环。

VB中一个非常经典的问题，就是统计。

问题来了，怎么统计学号为2004的总分

很明显是:245，可是在VB里面却不是很好实现。

下面是查询总分按钮下的代码，基本很完美了。可以统计任意一个学号的总分。

Adodc1.CommandType = adCmdText //(1)
Adodc1.RecordSource = "select * from 学生成绩表 where 学号= '" & Trim(Text1.Text) & "' " //(2)
Dim mypp As Integer//设置一个变量
Dim my As Integer//总和变量
Dim i As Integer//循环变量
For i = 1 To Adodc1.Recordset.RecordCount //更具上面的查询(1),(2)的查询得到记录数
Adodc1.CommandType = adCmdText
mypp = Adodc1.Recordset.Fields(4)
If mypp = 0 Then i = 0
my = my + mypp
Adodc1.Recordset.MoveNext //指针移到下一条记录
Next i
Text2.Text = Trim(my) //text2.text用于显示结果，这里也就是:145
End Sub

注明:text1.text就是上面查询2004的成绩的文本输入框.

Private Sub Command1_Click()
COMBOL.AddItem TEXT1.Text
End Sub

Private Sub Command2_Click()
Caption = COMBOL.ListCount'窗体标题为列表项的个数
End Sub

Private Sub Command1_Click()
Combo1.AddItem Tex