精华内容
下载资源
问答
  • VB编程统计字符个数-52

    千次阅读 2017-02-07 09:09:41
    '*****************统计************   Label2.Caption = Len(Text1)  Dim mystr As String  For i = 1 To Len(Text1)    mystr = Mid(Text1, i, 1)    Select Case mystr      Case "a" To ...
    VB编程:统计字符个数-52

    程序源代码:
    Private Sub Command1_Click()
        '*****************清空************
        Label4.Caption = ""
        Label6.Caption = ""
        Label8.Caption = ""
        Label10.Caption = ""
        '*****************统计************
        Label2.Caption = Len(Text1)
        Dim mystr As String
        For i = 1 To Len(Text1)
            mystr = Mid(Text1, i, 1)
            Select Case mystr
                Case "a" To "z", "A" To "Z"
                    Label4.Caption = Val(Label4.Caption) + 1
                Case " "
                    Label6.Caption = Val(Label6.Caption) + 1
                Case 0 To 9
                    Label8.Caption = Val(Label8.Caption) + 1
                Case Else
                    Label10.Caption = Val(Label10.Caption) + 1
            End Select
        Next i
    End Sub

    展开全文
  •  数控零件加工程序的编制是进行数控加工的一重要步骤,国内外数控加工统计说明,造成数控机床等待约20%~30%是编程不及时所致,可见数控编程直接影响着数控机床的加工效率。随着数控技术应用的日益扩大,我国企业...
  • 程序源代码: Private Sub Command1_Click() '*****************清空************ Label4.Caption = "" Label6.Caption = "" Label8.Caption = "" Label10.Caption = "" '*****************统计************ Label2....
    VB编程:统计字符个数-52

    程序源代码:
    Private Sub Command1_Click()
        '*****************清空************
        Label4.Caption = ""
        Label6.Caption = ""
        Label8.Caption = ""
        Label10.Caption = ""
        '*****************统计************
        Label2.Caption = Len(Text1)
        Dim mystr As String
        For i = 1 To Len(Text1)
            mystr = Mid(Text1, i, 1)
            Select Case mystr
                Case "a" To "z", "A" To "Z"
                    Label4.Caption = Val(Label4.Caption) + 1
                Case " "
                    Label6.Caption = Val(Label6.Caption) + 1
                Case 0 To 9
                    Label8.Caption = Val(Label8.Caption) + 1
                Case Else
                    Label10.Caption = Val(Label10.Caption) + 1
            End Select
        Next i
    End Sub

    展开全文
  • VB编程:获取字符串数字个数-50

    千次阅读 2017-02-06 09:59:38
    程序代码: Private Sub Form_Click()  Dim i As Integer, j As Integer  j = 0  ‘ 计数  Dim str As String  str = "abcs123"  For i = 1 To Len(str)  ...

     

    image

    程序代码:

    Private Sub Form_Click()
        Dim i As Integer, j As Integer
        j = 0                                  ‘ 计数
        Dim str As String
        str = "abcs123"
        For i = 1 To Len(str)
            If IsNumeric(Mid(str, i, 1)) Then    ‘判断是否为数字
                j = j + 1
            End If
        Next i
        Print j
    End Sub

    展开全文
  • Visual Basic 是一种基于Windows操作系统的新型的现代程序设计语言,是一种易于学习、功能强、效率高的编程工具。任何具有初步程序设计基础的人,都能在很短的时间内掌握好VB,并有效地编写出各种Windows程序。 ...
  • VBA(excel)实现的统计两列重复个数,快速统计,简洁明了。
  • VB数组编写的例子,求100学生的平均成绩,程序为了突出数组的作用,因此在程序细节方面没有过多顾及,输入学生成绩时候比较麻烦,需要一输入,有些麻烦。程序异常处理也不太完善。
  • 统计从键盘输入的一行字符小写字母,大写字母,数字字符和其它字符的个数。 C语言实现 vs-2019 #include<stdio.h> #include<ctype.h> int main() { printf("Please input the number of string:"); ...

    统计从键盘输入的一行字符中小写字母,大写字母,数字字符和其它字符的个数。

    C语言实现 vs-2019

    #include<stdio.h>
    #include<ctype.h>
    
    int main()
    {
     printf("Please input the number of string:");
     int num = 0;
     int num_low = 0, num_n = 0, num_c = 0;
     scanf_s("%d", &num);
    
    for (int i = 0; i < num; i++)
     {
      char m=getchar();
      if (isdigit(m))//数字
      {
       num_n++;
      }
      if (islower(m))
      {
       num_low++; //小写字母
      } 
      if (isupper(m))
      {
       num_c++; //大写字母
      }
     }
     printf("数字个数:%d,小写字母个数:%d,大写字母个数:%d,其余:%d\n",num_n,num_low,num_c,num-num_c-num_low-num_n-1);
     return 0;  
     }
    

    在这里插入图片描述

    展开全文
  • 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这Java文件传输实例不可错过,Java网络编程技能的提升很有...
  • 本程序主要是统计VB源代码行数的,程序分两种VB版本的代码统计VB6和VB7/8/9版本,它可分析出有效行数和代码总行。 1.首先选择您要统计VB工程类型是VB6 或 VB7/8/9的工程。 2.打开您要分析的VB工程文件。 ...
  • 在c语言: 1. 使用`%c`输出的是字符本身。 2. 使用`%d`输出的是字符对应的ASCII。 3. 在ASCII,小写英文字符 = 大写英文字符+32。 4. 还有注意区分单引号`''`和双引号`""`的区别。 单引号:字符,是可以进行加减...
  • 摘要:VB源码,文件操作,页码统计 ...统计Word页数在Word是很自然的事情,本程序是VB调用Word的相关编程接口,在不打开Word的情况下,统计各个Worid文件的页码,并显示出来,比较方便吧。 运行环境:Windows/VB6
  • 数据库技术VB编程小例子源码小合集,共47打包下载,包括:系统登录、操作员权限设置、连接加密的Access数据库(方法一)、将硬盘文件目录转为数据库数据、将数据库文件转换为文本文件、将Access导出成多种数据格式、...
  • 内容索引:VB源码,数据库应用,医院,管理系统 一个VB医院管理系统的6模块的源码,含MSSQL数据库,这6模块是门诊挂号模块、门诊收费模块、综合数据管理、药房管理、药库管理、院长查询,每一模块都对我们编程挺...
  • 输入一字符串(含空格),统计其中的字符个数并显示出来 比如输入:abc ab c,要求输出为: a 2 b 2 c 2 ‘ ’2//注意这行的第一字是空格 2. 分析 可以设置一二维数组,将一维数组的相同字符,作为 ...
  • 如何统计数组各数字(元素)出现的频数、频率和累积频率?这里以案例形式做一总结。 转自Matlab论坛:https://www.ilovematlab.cn/thread-67367-1-1.html 第一种方法:调用MATLAB自带的函数tabulate统计一...
  • 编程实现.txt文本空格的统计(包括每行文本空格的统计) 因为近期软件工程科目的学习,为了更加熟悉设计代码时的流程,老师要求我们编写一程序来实现对.txt文件逐行文本空格的统计以及对整个文本空格的...
  • 3.判定2000-2500年的每一年是否为闰年,并将结果输出。 解题思路:首先我们要知道闰年的判断条件,能被4整除且不能被100整除的年份,或者是能被400整除的年份。 第一种思路: 步骤一:先将能被4整除的年份判断出来...
  • 数据库技术VB编程小例子源码集:系统登录、操作员权限设置、连接加密的Access数据库(方法一)、将硬盘文件目录转为数据库数据、将数据库文件转换为文本文件、将Access导出成多种数据格式、将数据库文件转成HTML并设置...
  • 运行效果:   运行代码: Private Sub Command1_Click()  Dim myrows  '定义段落  Dim myarray() As String  '声明数组,保存文本  With Text1   myarray = Split(.Text, vbCrLf)   If T...
  • 使用VB完成水仙花数统计的算法实现 水仙花特征为: 3位数字ABC具有以下特征 ABC=A^3 + B^3 + C^3
  • 运行效果: ... 亏:它的因子之和小于本身;  盈:它的因子之和大于本身; 程序代码: Private Sub Form_Click()  Dim n, r, j, i As Integer  n = 1000  Me.Cls  For i = 1 To n - 1  ...
  • vb开发的一气象部门一天三班倒的一值班表,一天三班:白,,晚班,六个人来上班。
  • VB解决WORD的表格问题

    热门讨论 2010-05-04 09:47:18
    本例使用VB向WORD增加两表格,并判断出整个文档的表格个数,每表格的行数和列,向表格的一单元格增加内容。 通过对本例的学习,可以初步掌握使用VB处理WORD的表格问题。 希望广大编程爱好者关注...
  • VB计算排班

    2018-07-21 22:27:31
    VB根据输入的排班规则和开始日期,计算日期、天数,排除排班结果等信息。
  • VB数组应用实例-成绩统计 输入成绩部分: Private Sub Command1_Click() Dim i As Integer Picture1.Cls For i = 1 To N score(i) = Val(InputBox("请输入第" & i & "位学生的成绩")) Picture1.Print score(i); ...
  • Matlab有强大的矩阵计算、统计分析功能,而VB是一种易学的编程语言,MatrixVB是VB实现Matlab功能的一种简单实用的方法,所以掌握简单的MatrixVB知识,对初学编程者很有帮助。
  • VB判断输入的数据是否符合要求,很常见的表单程序,当需要输入多种类型的时候,我们总是要给程序添加判断,以确定用户的输入是...
  • /*统计字符串大写字母字符,小写字母字符,数字字符出现的次数。(不考虑其他字符)*/ import java.util.Scanner; public class Test2 {  public static void main(String[] args) {  Scanner sc = new ...
  • cpp代码-从键盘输入一串字符,以回车键结束,分别统计输入的字母、数字和其它字符的个数

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,636
精华内容 3,454
关键字:

vb中统计个数的编程