精华内容
下载资源
问答
  • vb-sum

    2019-08-22 09:22:38
     Dim pay As Double = P_List_user.Sum(Function(pp) pp.Pay)  Console.WriteLine("员工工资总和为:" + pay.ToString())  Console.ReadLine()  End Sub  Public Class User  Property Name As ...

    Module Module1

        Sub Main()
            FuncDelegate()
        End Sub

        Public Sub FuncDelegate()
            Dim P_List_user As List(Of User) = New List(Of User)()
            P_List_user.Add(New User("小刘", 33, 5000))
            P_List_user.Add(New User("小王", 30, 5000))
            P_List_user.Add(New User("小赵", 33, 5000))
            P_List_user.Add(New User("小吕", 37, 5000))
            P_List_user.Add(New User("小房", 33, 5000))

            Dim pay As Double = P_List_user.Sum(Function(pp) pp.Pay)
            Console.WriteLine("员工工资总和为:" + pay.ToString())
            Console.ReadLine()

        End Sub

        Public Class User
            Property Name As String
            Property Age As Integer
            Property Pay As Double

            Public Sub New(Name As String, Age As Integer, Pay As Double)
                Me.Name = Name
                Me.Age = Age
                Me.Pay = Pay
            End Sub
            Public Overrides Function ToString() As String
                Return String.Format("姓名:{0}  年龄:{1}  工资:{2}", Name, Age, Pay)
            End Function
        End Class

    End Module
     

    展开全文
  • vb.net 功能强大的Tostring()

    千次阅读 2009-07-13 12:37:00
    功能强大的Tostring()//2007年4月24日this.TextBox6.Text = System.DateTime.Now.ToString("D");//2007-4-24this.TextBox7.Text = System.DateTime.Now.ToString("d");//2007年4月24日 16:30:15this.TextBox8.Text =...

    功能强大的Tostring()

    //2007年4月24日
    this.TextBox6.Text = System.DateTime.Now.ToString("D");
    //2007-4-24
    this.TextBox7.Text = System.DateTime.Now.ToString("d");

    //2007年4月24日 16:30:15
    this.TextBox8.Text = System.DateTime.Now.ToString("F");
    //2007年4月24日 16:30
    this.TextBox9.Text = System.DateTime.Now.ToString("f");

    //2007-4-24 16:30:15
    this.TextBox10.Text = System.DateTime.Now.ToString("G");
    //2007-4-24 16:30
    this.TextBox11.Text = System.DateTime.Now.ToString("g");

    //16:30:15
    this.TextBox12.Text = System.DateTime.Now.ToString("T");
    //16:30
    this.TextBox13.Text = System.DateTime.Now.ToString("t");

    //2007年4月24日 8:30:15
    this.TextBox14.Text = System.DateTime.Now.ToString("U");
    //2007-04-24 16:30:15Z
    this.TextBox15.Text = System.DateTime.Now.ToString("u");

    //4月24日
    this.TextBox16.Text = System.DateTime.Now.ToString("m");
    this.TextBox16.Text = System.DateTime.Now.ToString("M");
    //Tue, 24 Apr 2007 16:30:15 GMT
    this.TextBox17.Text = System.DateTime.Now.ToString("r");
    this.TextBox17.Text = System.DateTime.Now.ToString("R");
    //2007年4月
    this.TextBox19.Text = System.DateTime.Now.ToString("y");
    this.TextBox19.Text = System.DateTime.Now.ToString("Y");
    //2007-04-24T15:52:19.1562500+08:00
    this.TextBox20.Text = System.DateTime.Now.ToString("o");
    this.TextBox20.Text = System.DateTime.Now.ToString("O");
    //2007-04-24T16:30:15
    this.TextBox18.Text = System.DateTime.Now.ToString("s");
    //2007-04-24 15:52:19
    this.TextBox21.Text = System.DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss:ffff");
    //2007年04月24 15时56分48秒
    this.TextBox22.Text = System.DateTime.Now.ToString("yyyy年MM月dd HH时mm分ss秒");


    //星期二, 四月 24 2007
    this.TextBox1.Text = System.DateTime.Now.ToString("dddd, MMMM dd yyyy");
    //二, 四月 24 '07
    this.TextBox2.Text = System.DateTime.Now.ToString("ddd, MMM d /"'/"yy");
    //星期二, 四月 24
    this.TextBox3.Text = System.DateTime.Now.ToString("dddd, MMMM dd");
    //4-07
    this.TextBox4.Text = System.DateTime.Now.ToString("M/yy");
    //24-04-07
    this.TextBox5.Text = System.DateTime.Now.ToString("dd-MM-yy");

    字符型转换 转为字符串
    12345.ToString("n"); //生成 12,345.00
    12345.ToString("C"); //生成 ¥12,345.00
    12345.ToString("e"); //生成 1.234500e+004
    12345.ToString("f4"); //生成 12345.0000
    12345.ToString("x"); //生成 3039 (16进制)
    12345.ToString("p"); //生成 1,234,500

    展开全文
  • VB6.0 代码演示如何计算加权平均值,计算加权平均值可编写以下代码实现:  Private Sub Command1_Click()  Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6)  End Sub  Private Function ...
  • vb编程将控件的调用提前到sum main模块,用变量的形式调用后再给值到界面?怎么实现将控件单独调用和给值?
  • vb中msgbox用法

    2019-10-07 06:45:46
    vb中msgbox用法 VB中的函数,可实现弹出窗口.作用:在对话框显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。语法:MsgBox(prompt[, buttons] [, title] [, helpfile, ...

    VB中的函数,可实现弹出窗口.
    作用:在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。
    语法:
    MsgBox(prompt[, buttons] [, title] [, helpfile, context])
    参数说明:
    MsgBox 函数的语法具有以下几个命名参数:
    Prompt-------必需的。字符串表达式,作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符,由所用字符的宽度决定。如果 prompt 的内容超过一行,则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) & Chr(10)) 将各行分隔开来。
    Buttons-------可选的。数值表达式是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。如果省略,则 buttons 的缺省值为 0。
    Title-------可选的。在对话框标题栏中显示的字符串表达式。如果省略 title,则将应用程序名放在标题栏中。
    Helpfile--------可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile,则也必须提供 context。
    Context-------可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context,则也必须提供 helpfile。
    用于MsgBox函数中Button参数的常量
    常量                 值             说明
    vbOKOnly              0 只显示“确定”按钮
    VbOKCancel          1 显示“确定”和“取消”按钮
    VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮
    VbYesNoCancel       3 显示“是”、“否”和“取消”按钮
    VbYesNo             4 显示“是”和“否”按钮
    VbRetryCancel       5 显示“重试”和“取消”按钮
    VbCritical          16 显示“关键信息”图标
    VbQuestion          32 显示“警告询问”图标
    VbExclamation       48 显示“警告消息”图标
    VbInformation       64 显示“通知消息”图标
    vbDefaultButton1    0 第一个按钮是缺省值(缺省设置)
    vbDefaultButton2    256第二个按钮是缺省值
    vbDefaultButton3    512第三个按钮是缺省值
    vbDefaultButton4    768第四个按钮是缺省值
    vbApplicationModal    0应用程序强制返回;应用程序一直被挂起,直到用户对消息框
    作出响应才继续工作
    vbSystemModal       4096系统强制返回;全部应用程序都被挂起,直到用户对消息框作
    出响应才继续工作
    vbMsgBoxHelpButton     16384将Help按钮添加到消息框
    VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口
    vbMsgBoxRight       524288文本为右对齐
    vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示
    说明:
    (1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目;第二组值(16,32,48,64)描述了图标的样式;第三组值(0,256,512,768)说明哪一个按钮是缺省值;而第四组值(0,4096)则决定消息框的强制返回性。将这些数字相加以生成Buttons参数值的时候,只能由每组值取用一个数字。
    (2)这些常数都是 Visual Basic for Applications (VBA) 指定的。结果,可以在程序代码中到处使用这些常数名称,而不必使用实际数值。实际数值与常数名称是等价的。
    返回值
    用于MsgBox函数返回值的常量
    常数           值        说明
    vbOK           1       确定
    vbCancel    2       取消
    vbAbort        3       终止
    vbRetry        4       重试
    vbIgnore    5       忽略
    vbYes       6       是
    vbNo           7       否
    (1) 如果同时提供了Helpfile与Context参数,可以按F1键来查看与Context相应的帮助主题,Excel通常会在输入框中自动添加一个帮助(Help)按钮。
    (2)若在消息框中显示“取消”按钮,则按下ESC键与单击“取消”按钮效果相同。若消息框中有“帮助”按钮,则提供相关的帮助信息。
    (3)如果要输入多个参数并省略中间的某些参数,则必须在相应位置加入逗号分界符。
    示例
    (1)(1)使用 MsgBox 函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox函数的返回值视用户按哪一个钮而定。并假设DEMO.HLP为一帮助文件,其中有一个帮助主题代码为1000。
    Dim Msg,Style,Title,Help,Ctxt,Response,MyString
    Msg="Do you want to continue ?"     ’定义消息文本
    Style = vbYesNo + vbCritical + vbDefaultButton2     ' 定义按钮
    Title = "MsgBox Demonstration"     ' 定义标题文本
    Help = "DEMO.HLP"     ' 定义帮助文件
    Ctxt = 1000     ' 定义帮助主题
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then     ' 用户按下“是”
        MyString = "Yes"     ' 完成某操作
    Else     ' 用户按下“否”
        MyString = "No"     ' 完成某操作
    End If
    (2)只显示某消息
    MsgBox “Hello!”
    (3)将消息框返回的结果赋值给变量
    Ans=MsgBox(“Continue?”,vbYesNo)
    If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub
    (4)使用常量的组合,赋值组Config变量,并设置第二个按钮为缺省按钮
    Config=vbYesNo+vbQuestion+vbDefaultButton2
    (5)若要在消息中强制换行,可在文本中使用vbCrLf(或vbNewLine)常量,用&加空格与字符隔开。如
    MsgBox “This is the first line.” & vbNewLine & “Second line.”
    (6)可以在消息框中使用vbTab常量插入一个制表符。下面的过程使用一个消息框来显示5×5单元格区域中的所有值,用vbTab常量分隔列并使用vbCrLf常量插入一个新行。注意在MsgBox函数最多只显示1024个字符,因此限制了可显示的单元格数。
    Option Explicit
    Sub ShowRangue()
    Dim Msg As String
    Dim r As Integer, c As Integer
    Msg = ""
    For r = 1 To 5
    For c = 1 To 5
        Msg = Msg & Cells(r, c) & vbTab
    Next c
    Msg = Msg & vbCrLf
    Next r
    MsgBox Msg
    End Sub
    (7)在消息框语句中运用工作表函数以及设置显示的数置格式,如下面语句所示:
    MsgBox " selection has " & m & " cells ." & Chr(13) & " the sum is :" & Application.WorksheetFunction.Sum(Selection) & Chr(13) & "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count & sum & average" & Chr(13)


    private sub form_load() '事件窗体加载

    msgbox("弹出窗口") '设定弹出窗口

    end sub '

    图片中的代码: MsgBox "警告内容!", 26, "警告!"
    VB中的函数,可实现弹出窗口.
    作用:在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。
    语法:
    MsgBox(prompt[, buttons] [, title] [, helpfile, context])
    参数说明:
    MsgBox 函数的语法具有以下几个命名参数:
    Prompt-------必需的。字符串表达式,作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符,由所用字符的宽度决定。如果 prompt 的内容超过一行,则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) & Chr(10)) 将各行分隔开来。
    Buttons-------可选的。数值表达式是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。如果省略,则 buttons 的缺省值为 0。
    Title-------可选的。在对话框标题栏中显示的字符串表达式。如果省略 title,则将应用程序名放在标题栏中。
    Helpfile--------可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile,则也必须提供 context。
    Context-------可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context,则也必须提供 helpfile。
    用于MsgBox函数中Button参数的常量
    常量                 值             说明
    vbOKOnly              0 只显示“确定”按钮
    VbOKCancel          1 显示“确定”和“取消”按钮
    VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮
    VbYesNoCancel       3 显示“是”、“否”和“取消”按钮
    VbYesNo             4 显示“是”和“否”按钮
    VbRetryCancel       5 显示“重试”和“取消”按钮
    VbCritical          16 显示“关键信息”图标
    VbQuestion          32 显示“警告询问”图标
    VbExclamation       48 显示“警告消息”图标
    VbInformation       64 显示“通知消息”图标
    vbDefaultButton1    0 第一个按钮是缺省值(缺省设置)
    vbDefaultButton2    256第二个按钮是缺省值
    vbDefaultButton3    512第三个按钮是缺省值
    vbDefaultButton4    768第四个按钮是缺省值
    vbApplicationModal    0应用程序强制返回;应用程序一直被挂起,直到用户对消息框
    作出响应才继续工作
    vbSystemModal       4096系统强制返回;全部应用程序都被挂起,直到用户对消息框作
    出响应才继续工作
    vbMsgBoxHelpButton     16384将Help按钮添加到消息框
    VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口
    vbMsgBoxRight       524288文本为右对齐
    vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示
    说明:
    (1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目;第二组值(16,32,48,64)描述了图标的样式;第三组值(0,256,512,768)说明哪一个按钮是缺省值;而第四组值(0,4096)则决定消息框的强制返回性。将这些数字相加以生成Buttons参数值的时候,只能由每组值取用一个数字。
    (2)这些常数都是 Visual Basic for Applications (VBA) 指定的。结果,可以在程序代码中到处使用这些常数名称,而不必使用实际数值。实际数值与常数名称是等价的。
    返回值
    用于MsgBox函数返回值的常量
    常数           值        说明
    vbOK           1       确定
    vbCancel    2       取消
    vbAbort        3       终止
    vbRetry        4       重试
    vbIgnore    5       忽略
    vbYes       6       是
    vbNo           7       否
    (1) 如果同时提供了Helpfile与Context参数,可以按F1键来查看与Context相应的帮助主题,Excel通常会在输入框中自动添加一个帮助(Help)按钮。
    (2)若在消息框中显示“取消”按钮,则按下ESC键与单击“取消”按钮效果相同。若消息框中有“帮助”按钮,则提供相关的帮助信息。
    (3)如果要输入多个参数并省略中间的某些参数,则必须在相应位置加入逗号分界符。
    示例
    (1)(1)使用 MsgBox 函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox函数的返回值视用户按哪一个钮而定。并假设DEMO.HLP为一帮助文件,其中有一个帮助主题代码为1000。
    Dim Msg,Style,Title,Help,Ctxt,Response,MyString
    Msg="Do you want to continue ?"     ’定义消息文本
    Style = vbYesNo + vbCritical + vbDefaultButton2     ' 定义按钮
    Title = "MsgBox Demonstration"     ' 定义标题文本
    Help = "DEMO.HLP"     ' 定义帮助文件
    Ctxt = 1000     ' 定义帮助主题
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then     ' 用户按下“是”
        MyString = "Yes"     ' 完成某操作
    Else     ' 用户按下“否”
        MyString = "No"     ' 完成某操作
    End If
    (2)只显示某消息
    MsgBox “Hello!”
    (3)将消息框返回的结果赋值给变量
    Ans=MsgBox(“Continue?”,vbYesNo)
    If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub
    (4)使用常量的组合,赋值组Config变量,并设置第二个按钮为缺省按钮
    Config=vbYesNo+vbQuestion+vbDefaultButton2
    (5)若要在消息中强制换行,可在文本中使用vbCrLf(或vbNewLine)常量,用&加空格与字符隔开。如
    MsgBox “This is the first line.” & vbNewLine & “Second line.”
    (6)可以在消息框中使用vbTab常量插入一个制表符。下面的过程使用一个消息框来显示5×5单元格区域中的所有值,用vbTab常量分隔列并使用vbCrLf常量插入一个新行。注意在MsgBox函数最多只显示1024个字符,因此限制了可显示的单元格数。
    Option Explicit
    Sub ShowRangue()
    Dim Msg As String
    Dim r As Integer, c As Integer
    Msg = ""
    For r = 1 To 5
    For c = 1 To 5
        Msg = Msg & Cells(r, c) & vbTab
    Next c
    Msg = Msg & vbCrLf
    Next r
    MsgBox Msg
    End Sub
    (7)在消息框语句中运用工作表函数以及设置显示的数置格式,如下面语句所示:
    MsgBox " selection has " & m & " cells ." & Chr(13) & " the sum is :" & Application.WorksheetFunction.Sum(Selection) & Chr(13) & "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count & sum & average" & Chr(13)


    private sub form_load() '事件窗体加载

    msgbox("弹出窗口") '设定弹出窗口

    end sub '

    图片中的代码: MsgBox "警告内容!", 26, "警告!"

    posted on 2012-02-08 17:48  Jack.leung 阅读( ...) 评论( ...) 编辑 收藏

    转载于:https://www.cnblogs.com/jack-liang/archive/2012/02/08/2343021.html

    展开全文
  • vb中的msgbox的用法

    千次阅读 2018-11-01 17:49:07
     在消息框显示信息,并等待用户单击按钮,可返回单击的按钮值(比如“确定”或者“取消”)。通常用作显示变量值的一种方式。2、语法  MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])  参数说明: (1)...

    1、作用

       在消息框中显示信息,并等待用户单击按钮,可返回单击的按钮值(比如“确定”或者“取消”)。通常用作显示变量值的一种方式。
    2、语法
           MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])

           参数说明:

    (1)Prompt,必需的参数,为字符串,作为显示在消息框中的消息文本。其最大长度约为1024个字符,由所用字符的宽度决定。如果prompt的内容超过一行,则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10))将各行分隔开来。

    (2)Buttons,可选的参数,为数值表达式的值之和,指定显示的按钮的数目及形式、使用的图标样式、缺省按钮及消息框的强制回应等,可以此定制消息框。若省略该参数,则其缺省值为0。设置值见下表。

    (3)Title,可选的参数,表示在消息框的标题栏中所显示的文本。若省略该参数,则将应用程序名放在标题栏中。

    (4)Helpfile,可选的参数,为字符串表达式,提供帮助文件。若有Helpfile,则必须有Context。

    (5)Context,可选的参数,为数值表达式,提供帮助主题。若有Context,则必须有Helpfile。

    3、Button参数
           用于MsgBox函数中Button参数的常量

    符号常量     值     作用
    按钮类型     vbokonly     0     只显示“确定”按钮
    vbokcancel     1     显示“确定”及“取消”按钮
    vbabortretryignore     2     显示“终止”、“重试”及“忽略”按钮
    vbyesnocancel     3     显示“是”、“否”及“取消”按钮
    vbyesno     4     显示“是”、“否”按钮
    vbretrycancel     5     显示“重试”及“取消”按钮

    图标样式     vbcritical     16     显示critical message图标(系统叉号图标)
    vbquestion     32     显示warning query图标(系统问号图标)
    vbexclamation     48     显示warning message图标(系统感叹号图标)
    vbinformation     64     显示information message图标(系统信息图标)
                  
    默认按钮     vbdefauitbutton1     0     第一个按钮是默认值
    vbdefauitbutton2     256     第二个按钮是默认值
    vbdefauitbutton3     512     第三个按钮是默认值
    vbdefauitbutton4     768     第四个按钮是默认值
                  
    强制返回     vbapplicationmode1     0     应用程序强制返回
    vbsystemmode1     4096     系统强制返回
                  
    其他类型     vbmsgboxhelpbutton     16384     在对话框中添加一个“帮助”按钮
    vbmsgboxsetforeground     65535     指定对话框窗口作为前景窗口
    vbmsgboxright     524288     对话框的文本为右对齐
    vbmsgboxrtireading     1048576     指定对话框中的元素从右到左显示

    说明:
    (1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目;第二组值(16,32,48,64)描述了图标的样式;第三组值(0,256,512,768)说明哪一个按钮是缺省值;而第四组值(0,4096)则决定消息框的强制返回性。将这些数字相加以生成Buttons参数值的时候,只能由每组值取用一个数字。
    (2)这些常数都是VBA指定的,可以在程序代码中使用这些常数名称代替实际数值。
    4、返回值
    用于MsgBox函数返回值的常量
    常数 值 说明
    vbOK 1 确定
    vbCancel 2 取消
    vbAbort 3 终止
    vbRetry 4 重试
    vbIgnore 5 忽略
    vbYes 6 是
    vbNo 7 否

    5、相关说明
    (1) 如果同时提供了Helpfile与Context参数,可以按F1键来查看与Context相应的帮助主题,Excel通常会在输入框中自动添加一个帮助(Help)按钮。
    (2)若在消息框中显示“取消”按钮,则按下ESC键与单击“取消”按钮效果相同。若消息框中有“帮助”按钮,则提供相关的帮助信息。
    (3)如果要输入多个参数并省略中间的某些参数,则必须在相应位置加入逗号分界符。
    6、示例
    (1)使用 MsgBox 函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox函数的返回值视用户按哪一个钮而定。并假设DEMO.HLP为一帮助文件,其中有一个帮助主题代码为1000。
        Dim Msg,Style,Title,Help,Ctxt,Response,MyString  
        '定义消息文本  
        Msg="Do you want to continue ?"  
        ' 定义按钮  
        Style = vbYesNo + vbCritical + vbDefaultButton2  
        ' 定义标题文本  
        Title = "MsgBox Demonstration"  
        ' 定义帮助文件   
        Help = "DEMO.HLP"  
        ' 定义帮助主题   
        Ctxt = 1000      
        Response = MsgBox(Msg, Style, Title, Help, Ctxt)  
        If Response = vbYes Then    ' 用户按下“是”  
            MyString = "Yes"  
        Else    ' 用户按下“否”  
            MyString = "No"  
        End If  
    (2)只显示某消息
        MsgBox “Hello!”   
    (3)将消息框返回的结果赋值给变量

        Ans=MsgBox(“Continue?”,vbYesNo)  
        If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub  

    (4)使用常量的组合,赋值组Config变量,并设置第二个按钮为缺省按钮

        Config=vbYesNo+vbQuestion+vbDefaultButton2  

    (5)若要在消息中强制换行,可在文本中使用vbCrLf(或vbNewLine)常量,用&加空格与字符隔开。如
     

        MsgBox “This is the first line.” & vbNewLine & “Second line.”  

    (6)可以在消息框中使用vbTab常量插入一个制表符。下面的过程使用一个消息框来显示5×5单元格区域中的所有值,用vbTab常量分隔列并使用vbCrLf常量插入一个新行。注意在MsgBox函数最多只显示1024个字符,因此限制了可显示的单元格数。

        Option Explicit  
        Sub ShowRangeValue()  
          Dim Msg As String  
          Dim r As Integer, c As Integer  
          Msg = ""  
          For r = 1 To 5  
            For c = 1 To 5  
              Msg = Msg & Cells(r, c) & vbTab  
            Next c  
            Msg = Msg & vbCrLf  
          Next r  
          MsgBox Msg  
        End Sub  

    (7)在消息框语句中运用工作表函数以及设置显示的数置格式,如下面语句所示:
     

        MsgBox " selection has " & m & " cells ." & Chr(13) & " the sum is :" & Application.WorksheetFunction.Sum(Selection) & Chr(13) & "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count & sum & average" & Chr(13) 

    展开全文
  • 怎么从sum main使用窗体的方式初始化vb程序并启动参量?怎么不直接将sum sub作为开始的子过程调用呢?
  • 利用select sum(列名) from 表名,查询数据并求和,怎么赋值给text控件
  • VB中对EXCEL的各种操作

    万次阅读 多人点赞 2017-02-08 15:20:15
    VB操作excel方法汇总 Private Sub Command3_Click()    Dim i As Long  Dim j As Long  Dim objExl As Excel.Application '声明对象变量  Me.Mouse...
  • vb.net Linq实战

    千次阅读 2017-02-17 16:46:06
    linq 对DataTable的多字段sum
  • 一、VB中变量的命名规则: 1.必须以字母或汉字开头,由字母、汉字、数字或下划线组成,不能含有小数点、空格等特殊字符。 2.变量名的长度不能超过255个字符,控件、窗体、类和模块的名字不能超过40个字符 3.不能使用...
  • 用的是datatable.compute。我是这么写的datatable.compute(“sum()求和的列”,”true”)。compute的第2个参数是条件,而我要的是所有行之和,所以这里写true 数据筛选 datatable.select(“xxx=xxx”) ...
  • VB中If与ElseIf的区别

    千次阅读 2019-02-28 15:39:12
    Private Sub Form_Click()  Sum=0  For k=1 To 3  If k&lt;=1 Then  x=1  ElseIf k&lt;=2 Then  x=2  ElseIf k&lt;=3 Then  x=3  Else  x=4  End If  SumSum+x  Next k  ...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    在.NET这些组件或动态联接库不必在注册表注册,每个程序都可以使用自带的组件或动态联接库,只要把这些组件或动态联接库放到运行程序所在文件夹的子文件夹bin,运行程序就自动使用在bin文件夹的组件或动态...
  • 请问vb6.0中文怎么实现将标准模块作为启动窗体而不是sum main过程作为启动对象?能不能在标准模块就提前给窗体参量的调用?
  • 摘要:VB源码,数据库应用,分组统计 VB多表分组统计,读取Access数据库,通过查询统计图书的销售数量和现存数量来演示分组统计数据,书号,k.书名,x.作者, k.现存数量 ,sum(x.销售数量)as 销售数量。
  • vb中几种循环

    千次阅读 2016-04-28 16:52:29
    sum = sum + a i = i + 1 Loop Until i > 10 MsgBox "10个随机数得和:" & sum End Sub 3. Private Sub Command1_Click() Dim i As Integer Dim sum As Integer ...
  • VB6.0计算问题初探

    2018-12-20 19:38:11
    1.今天对于VB6.0的计算问题进行了初步了解,自己设计了一个小程序,下面是程序运行的界面: 2.下面将简单介绍界面设计步骤: 1).首先放置Picturebox控件 2).在Picturebox控件,放置一个OLE控件 3).新建...
  • java的this 与vb中的Me

    2019-06-22 11:08:45
    vb中Me的作用 Me代表当前打开的窗体 例如 一个窗体的form叫 FormMain 如果关闭这个窗体可以用unload FormMain,也可以用unload me 关闭 Me 还可以访问窗体上的控件 如:me.textbox1.text 等用法 Me相当于java的...
  • vb6.0使用标准模块启动的代码sum main的功能怎么实现input配置输入界面变量?怎么切换界面上的变量,使用input?
  • VB和C#循环语句

    千次阅读 热门讨论 2015-11-29 18:46:14
    引言:学习了C#的循环语句,让我觉得有点吃力,其实从原理上讲这些是学过的,只是没有对比着来...(1)VB中for...next 与 C#的for  VB: For 循环变量=初值 to 终值 [step 步长]  循环体 Next 循环变量 例:求1
  • 求1+2+3+…+100的和存入变量sum中,并将sum打印出来 程序流程图: 代码: #include<stdio.h> void main() { int a=1,sum=0; for(a=1;a<=100;a++) sum=sum+a; printf("sum=%d\n",sum); } 结果:
  • VB加法器功能源码,类似于计算器,输入一个加数和另一个加数,会计算出结果。编写时,先定义两个数,定义好之后,用下面的代码进行加法计算,是一个较简单的Vb初级数学计算例子:  Private Sub Command2_Click()  ...
  • VB中几种循环结构

    千次阅读 2016-04-17 16:54:27
    sum = sum + a i = i + 1 Loop Until i > 10 MsgBox "10个随机数得和:" & sum End Sub 3. Private Sub Command1_Click() Dim i As Integer Dim sum As Integer ...
  • vb + sql 如下所写,但是在ACCESS 要怎么写。。。 SELECT 店铺,sum(case when 种类='月卡' then 金额入 else 0 end ) as j月卡, " & _ " sum(case when 种类='次卡' then 金额入 else 0 end ) as j...
  • Select 省,城市,sum(金额) from table group by 省,城市 order by 金额 desc 这个语法在datatable上来写出一样的效果 ![图片说明](https://img-ask.csdn.net/upload/201905/31/1559295496_345696.jpg) !...
  • vb.net structure结构类型

    2020-12-12 10:39:07
    112 person.lessons.mark4 = 94 person.lessons.mark5 = 90 average = 0 sum = 0 '结构变量的引用 With person.lessons sum = .mark1 + .mark2 + .mark3 + .mark4 + .mark5 End With average = sum / 5 Console....
  • VB 调用 C

    2020-10-21 11:23:28
    在 Windows 上 GUI 玩的最溜当属 VB,现在想做一个小工具,解析数据协议,想利用 C 语言的强大字符处理能力,展示部分还是用VB做方便,基于此目的,前期方案论证开始了... 环境:Win10 + Dev-C++ 5.11 + VB6.0 ...
  • 数组两数相加twoSum

    2020-07-12 10:24:32
    //给出一个整数数组,请在数组找出两个加起来等于目标值的数, //你给出的函数twoSum需要返回这两个数字的下标(index1,index2),需要满足index1小于index2.。注意:下标是从0开始的 functiontwoSum(nums,...
  • 以下是VB.NET语句。 Dim checkedb As RadioButton checkedb = GroupBox1.Controls.OfType(Of RadioButton )().FirstOrDefault( Function (r) r.Checked = True ) Debug . Print (checkedb.Name) ...

空空如也

空空如也

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

vb中的sum