vb 多种数据统计？
set Rs=excSQL("SELECT 品名, count(*) AS 数量, 单价 FROM 报表 GROUP BY 品名, 单价")
rs中的就是你要的结果
Private Sub Command1_Click()
Text2.Text = P(Trim(Text1.Text))
End Sub
Function P(strn As String)
Dim n(10) As Integer, ntemp As Integer, i As Integer
Dim m() As String
' Randomize
m = Split(strn, ",")
For i = 0 To UBound(m)
Select Case m(i)
Case "0"
n(1) = n(1) + 1
Case "1"
n(2) = n(2) + 1
Case "2"
n(3) = n(3) + 1
Case "3"
n(4) = n(4) + 1
Case "4"
n(5) = n(5) + 1
Case "5"
n(6) = n(6) + 1
Case "6"
n(7) = n(7) + 1
Case "7"
n(8) = n(8) + 1
Case "8"
n(9) = n(9) + 1
Case "9"
n(10) = n(10) + 1
End Select
Next
P = "0: " + CStr(n(1)) + " 1: " + CStr(n(2)) + " 2: " + CStr(n(3)) + " 3: " + CStr(n(4)) + " 4: " + CStr(n(5)) + " 5: " + CStr(n(6)) + " 6: " + CStr(n(7)) + " 7: " + CStr(n(8)) + " 8: " + CStr(n(9)) + " 9: " + CStr(n(10))
End Function
ListView1.ListItems.Clear
excSQL应该是一个建立recordset的函数，是否需要修改，这里没法判别
郅仇卡悦： set Rs=excSQL(＂SELECT 品名, count(*) AS 数量, 单价 FROM 报表 GROUP BY 品名, 单价＂)rs中的就是你要的结果
莒县19256031815： vb中不同窗体的数据怎么统计？
郅仇卡悦： table内容如图片1,窗体的内容如图片2,如何在生成table后用一个命令按钮把入职人员人数、离职人数、留任率 的数据自动填充到窗体的的文本框中.我的邮箱是zylyy_521@126.com,求指点,谢谢!
莒县19256031815： vb 输入一个字符串,统计各种字符的个数 - ？
郅仇卡悦： Private Type lei'自定义类型 s As String'记录某个字符 n As Long'记录该字符的个数 End Type Private Sub Command1_Click() Dim s As String, n() As lei, i As Long, j As Long s = InputBox(＂请输入字符串＂) ReDim n(1 To 1) For i = 1 To Len(s) ...
莒县19256031815： vb怎么编一个数据统计处理的一个程序,输入几个数据之后,从小到大排,从大到小排,像Excel一样. - ？
郅仇卡悦： 逻辑可以是这样:把输入的几个数据加载到预定义的数组里,然后调用数组的排序方法,再重新把数据输出就可以了
莒县19256031815： vb编程(统计有多少个不相同的数) - ？
郅仇卡悦： Private Sub Command1_Click() Dim n As Integer Dim a(19) As Integer n = 1 For i = 0 To 19 a(i) = Fix(Rnd * 90) + 10 Print a(i); For j = 0 To i - 1 If a(i)a(j) And j = i - 1 Then n = n + 1 End If Next Next Print Print n & ＂个不同的数＂ End Sub
莒县19256031815： vb输入一个字符串,统计各种字符的个数 - ？
郅仇卡悦： 这个用于统计各种西文字符,非标准ASCII码的字符忽略.Private Sub Command1_Click() Dim aChr(95) As Long Dim strText As String Dim i As Long, c As Long strText = InputBox(＂请输入字符串:＂) For i = 1 To Len(strText) c = Asc(Mid$(...
莒县19256031815： 如何实现数据统计功能(VB)? - ？
郅仇卡悦： Sub FillColumn(fg As vsFlexGrid, ByVal c As Long, ByVal t As String, ByVal s As String) Dim r&, i&, cnt& ReDim lst(0) As String ' build list cnt = 0 i = InStr(s, ＂|＂) While i > 0 lst(cnt) = left(s, i - 1) s = Mid(s, i + 1) cnt = cnt + 1 ReDim Preserve lst(cnt) ...
莒县19256031815： VB由键盘输入10个数据,分别统计正数和及负数和 - ？
郅仇卡悦： Dim str As String = ＂＂Dim zhengshu, fushu, he, temp As Integerzhengshu = fushu = he = 0For i = 1 To 10temp = InputBox(＂请输入第＂ & i & ＂个数字＂)If temp > 0 Thenzhengshu += 1End IfIf temp < 0 Thenfushu += 1End Ifhe = he ...
莒县19256031815： vb中怎么将datagrid表格中第一列数据分类统计 - ？
郅仇卡悦： 所谓从表里获得的记录,就是指select语句里,使用了 Where 子句,那么,在进行统计的时候,同样可以使用 Where 子句 .根据你述说的,可以用 Like 以及 一些函数 来一一实现.
莒县19256031815： 求“输入10个数据,统计其中正数,负数,零的个数”的VB代码 - ？
郅仇卡悦： 新建两个按钮,一个列表框 通用部分加入以下代码 Public zhengshu As Integer Public fushu As Integer Public ling As Integer 这三句定义了三个公用变量,分别存放正数,负数,零的个数 command1的单击事件中加入下面的代码,用来输入数字,并加入列表框,以方便检验! a = InputBox(＂输入＂) Select Case a Case 0 ling = ling + 1 Case Is > 0 zhengshu = zhengshu + 1 Case Is
