vb.net统计 vbnet统计图

vb.net 统计字数

你把标点符号考虑进去就行了。

开始时把 括号、逗号、等号 还有 上撇 都替换为空格，然后再按上面的程序统计。

相关问答

Q1: 在vb.net系统中怎么做数据的统计

需要为你提供一份适用于初学者的[vb.net数据统计系统]代码么,

进一步要求可以联系我们,,联系我们需要提供你的问题和电子邮件,有机会可以帮你，绝对救急,请用BaiduHi为我留言,

此回复针对所有来访者和需求者有效,

ES:F6E0FEAC558E90FB7D14E2AD022C0DD7

Q2: vb.net 编程 统计单词出现的频率

'把下面代码复制到窗体，添加1个list 和一个command按钮运行就可以了，和一个文本框，数据输入在文本框里

Private Type English

    word As String

    count As Long

End Type

'判断是不是英文

Private Function En(ByVal s As String) As Boolean

    If s = "" Then En = False: Exit Function

    s = LCase(s)

    For i = 1 To Len(s)

        a = Asc(Mid(s, i, 1))

        If a  97 Or a  122 Then En = False: Exit Function

    Next

    En = True

End Function

'统计数组内各个英文出现次数

Private Function TongJi(ByVal T_txt As String) As English()

    s = Split(T_txt, " ")

    n = 0

    Dim English() As English

    ReDim English(0)

    For i = 0 To UBound(s)

        If s(i)  "" And En(s(i)) = True Then

            temp = False

            For j = 0 To UBound(English)

                If English(j).word = "" Then

                    English(j).word = s(i): English(j).count = 1: Exit For

                ElseIf English(j).word = s(i) Then

                    temp = True: English(j).count = English(j).count + 1: Exit For

                End If

            Next

            If temp = False Then

                ReDim Preserve English(n): English(n).word = s(i):  English(n).count = 1: n = n + 1

            End If

        End If

    Next

     TongJi = English

End Function

Private Sub Command1_Click()

    Dim e() As English

    e = TongJi(Text1)

    Cls

    For i = 0 To UBound(e)

        If e(i).count  0 Then List1.AddItem e(i).word  " 出现过： "  e(i).count  " 次"

    Next

End Sub

Q3: 在 c# 或 vb.net 如何使用 LINQ 统计 Dictionary 中符合条件的对象数量？

见以下示例

using System;

using System.Collections.Generic;

using System.Linq;

namespace MyApplication

{

    class Program

    {

        public class MyClass

        {

            public string Name { get; set; }

            public bool IsTrue { get; set; }

        }

        static void Main(string[] args)

        {

            Dictionaryint, MyClass dic =

                new Dictionaryint, MyClass();

            //添加

            dic.Add(1, new MyClass { Name = "张三", IsTrue = false });

            dic.Add(2, new MyClass { Name = "张四", IsTrue = true });

            dic.Add(3, new MyClass { Name = "张五", IsTrue = false });

            dic.Add(4, new MyClass { Name = "张六", IsTrue = true });

            dic.Add(5, new MyClass { Name = "张七", IsTrue = false });

            int c1 = dic.Count(e = e.Value.IsTrue == true);

            Console.WriteLine(c1);  //输出2

            int c2 = dic.Count(e = e.Value.IsTrue == false);

            Console.WriteLine(c2);  //输出3

            

            // 或者    

            var qry1 = from x in dic

                      where x.Value.IsTrue == true

                      select x;

            int c3 = qry1.Count();

            Console.WriteLine(c3); //输出2

            var qry2 = from x in dic

                      where x.Value.IsTrue == false

                      select x;

            int c4 = qry2.Count();   //输出3

            Console.WriteLine(c4);

        }

    }

}

Q4: vb.net用文本框输入数组的所有元素，数值之间用逗号分隔，统计数组中正数的个数，并显示最大值的元素下标

Dim str As String = "", temp, n As Integer

        Dim str1 As String = "12,45,2,9,41,31,66,83,2,1,-9,-91,-21"

        Dim a() As String = Split(str1, ",")

        For i = 1 To UBound(a) Step 1

            a(i) = Val(a(i))

        Next

        temp = 0

        n = 0

 

        For i = 1 To UBound(a)

            If a(i)  temp Then

                temp = a(i)

            End If

            If a(i)  0 Then

                n = n + 1

            End If

        Next

        str = str  "正数的个数为 "  n

        str = str  "最大元素的下标为 "

        For i = 1 To UBound(a)

            If a(i) = temp Then

                str = str  i  " "

            End If

        Next

 

        TextBox6.Text = str

Q5: vb.net 时间统计问题

一楼风中的奶牛的做法很棒，建议楼主采纳他的回答。

只是其中有一个Bug，就是“倒数第二次累计分钟数为59，累计秒数达到60的时候，会出现**:60:**”。例如{"10:57:35", "2:02:51"}，我这里做了修改，供参考。

另外，AddByInts中不需要进行循环和Select判断，可以简化。

同时，为了说明类和结构的关系，这里改用类。

也请一楼风中的奶牛勿怪罪在下啊！

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Dim str As String() = {"10:30:35", "2:02:51", "17:00:35", "2:02:51"}

Dim str As String() = {"10:57:35", "2:02:51"}

Dim time As TimeSerial = New TimeSerial

For Each dt As String In str

time.Add(dt)

Next

MsgBox(time.ToString)

End Sub

End Class

Public Class TimeSerial

Public Hour As Integer ' 时间的小时部分

Public Minute As Integer ' 时间的分钟部分

Public Second As Integer ' 时间的秒钟部分

' 合并添加新的时间值

' param name="value"文本时间格式(00:00:00)/param

Public Sub Add(ByVal value As String)

Dim arr As String() = Split(value, ":")

Dim dts(arr.Length - 1) As Integer

For i As Integer = 0 To arr.Length - 1

dts(i) = CInt(Val(arr(i)))

Next

AddByInts(dts)

End Sub

' 合并添加新的时间值

' param name="value"时间值(仅计算:时、分、秒)/param

Public Sub Add(ByVal value As Date)

Dim dts(2) As Integer

dts(0) = value.Hour

dts(1) = value.Minute

dts(2) = value.Second

AddByInts(dts)

End Sub

Private Sub AddByInts(ByVal value As Integer())

Second += value(2)

If Second = 60 Then

Minute += Int(Second / 60)

Second = Second Mod 60

End If

Minute += value(1)

If Minute = 60 Then

Hour += Int(Minute / 60)

Minute = Minute Mod 60

End If

Hour += value(0)

End Sub

' 获取时间的文本格式(00:00:00)

Public Overrides Function ToString() As String

Return Hour ":" Minute ":" Second

End Function

End Class

vb.net统计的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet统计图、vb.net统计的信息别忘了在本站进行查找喔。