精华内容
下载资源
问答
  • 运行效果: 程序代码: Public A As Long                   '定义全局变量,用于储存生成随机数 Private Sub Command1_Click()  Randomize            ...
        
    运行效果:
    VB编程:IF语句嵌套实例猜数小游戏-9

    程序代码:
    Public A As Long                                                           '定义全局变量,用于储存生成的随机数
    Private Sub Command1_Click()
        Randomize                                                                 '生成随机数
        A = CLng(1000 * Rnd)                                                'CLng()函数,强制转换为长整型
    End Sub

    Private Sub Command2_Click()
        Static B As Integer                                                        '申明静态变量用于计数
        If Text1.Text <> "" And IsNumeric(Text1.Text) Then     '判断是否是空值或者是数值
            B = B + 1
            If CLng(Text1.Text) > A Then                                       '比较数据
                MsgBox "大了.", , "信息提示"
            ElseIf CLng(Text1.Text) < A Then
                MsgBox "小了.", , "信息提示"
            Else
                MsgBox "猜对了,这个数是:" & A, , "信息提示"
                B = 0
                Exit Sub
            End If
        End If
        Label3.Caption = "这是第" & B & "次猜想"                   '记录猜想次数
    End Sub

    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 13 Then
            Call Command2_Click                                                 'Enter回车键的ASCII是13
        End If
    End Sub

    小技巧:
          编写程序的时候,代码语句经常需要在前面加空格,四个字节的空格需要按4下Spase空格键,其实只要按1次Tab制表键即可。
    展开全文
  • 视频内容:本视频是给学生复习If语句授课内容,长长寒假过后,很多学生连最基本东西忘记了,只好从最简单开始复习。本视频讲解了使用嵌套If和多分支语句解决两个问题,讲解非常详细,基础不够扎实...

    视频内容:

    本视频是给学生复习If语句时的授课内容,长长的寒假过后,很多学生连最基本的东西的忘记了,只好从最简单的开始复习。本视频讲解了使用嵌套If和多分支语句解决的两个问题,讲解非常详细,基础不够扎实的同学可以看一看。

    视频勘误:

    本堂课是超长假期复课后在机房上的第一节课,学生有些生疏了,我在授课时间把握上也不够好,内容没有讲完,所以课后补录一个视频,希望同学们在五一假期期间可以看看视频复习一下。

    隔了一段时间不录视频,我也有些生疏了,语速和音量都没有控制好,请同学们谅解。如果实在觉得语速太慢,可以用2倍速来收看。

    本次视频虽然有一些口误,但没有明显错误,就不给出勘误了。如果你发现更多错误,请及时联系我,以便完善勘误表。

    源代码:

    1. 分数等级。已知各分数段对应等级如下:[80,90)良好,90以上(含90)优秀,[60,80)及格,60以下不及格。请从文本框Text1中输入分数,点击“计算”按钮,在标签Label中显示对应等级。示例界面如下图所示:

    算法1: 4个独立的行If语句(不推荐)

    Private Sub Command1_Click()    x = Val(Text1.Text)    If x >= 80 And x < 90 Then Label1.Caption = "良好"    If x >= 90 Then Label1.Caption = "优秀"    If x >= 60 And x < 80 Then Label1.Caption = "及格"    If x < 60 Then Label1.Caption = "不及格"End Sub

    算法2: 嵌套If语句

    Private Sub Command2_Click()    x = Val(Text1.Text)    If x >= 80 Then        If x < 90 Then           Label1.Caption = "良好"       Else           Label1.Caption = "优秀"       End If    Else        If x < 60 Then           Label1.Caption = "不及格"       Else           Label1.Caption = "及格"       End If    End IfEnd Sub

    算法3: 多分支语句

    Private Sub Command3_Click()    x = Val(Text1.Text)    If x>= 90 Then        Label1.Caption = "优秀"    ElseIf x >= 80 Then        Label1.Caption = "良好"    ElseIf x >= 60 Then       Label1.Caption = "及格"    Else       Label1.Caption = "不及格"    End IfEnd Sub

    2. 计算体质指数(BMI)

    体质指数(BMI)=体重(kg)÷身高^2(m)

    Private Sub Command1_Click()    Dim wAs Double, h As Double, BMI As Double    Dim sex As String, ans As String    w =Val(Text1.Text): h = Val(Text2.Text)    BMI = w / h ^ 2    sex = Text3.Text    If sex = "男" Then        If BMI <= 16.7 Then           ans = "低体重"       ElseIf BMI <= 23.7 Then           ans = "正常"       ElseIf BMI <= 26.5 Then           ans = "超重"       Else           ans = "肥胖"       End If    Else        If BMI <= 16.8 Then           ans = "低体重"        ElseIf BMI <= 23.2 Then           ans = "正常"       ElseIf BMI <= 25.4 Then           ans = "超重"       Else           ans = "肥胖"       End If    End If   Label1.Caption = ansEnd Sub
    温馨提示:    需要本视频(包括往期所有视频)对应PPT的朋友,请加入“选考VB算法解析”知识星球。众多师生聚集在星球讨论、分享VB算法问题和复习迎考方法,大量选考VB算法资料等你来下载。我们专注选考VB算法,感兴趣就一起来!

    d317c8f5c548d77f104440d584de0709.png

    相关优秀文章:

         选考VB算法专题系列讲座0课程简介

         选考VB算法专题系列讲座1循环结构基础

         选考VB算法专题系列讲座2数组基本操作

         选考VB算法专题系列讲座3字符串基本操作

         选考VB算法专题系列讲座4解析算法

         选考VB算法专题系列讲座5枚举算法

         选考VB算法专题系列讲座6顺序查找算法

         选考VB算法专题系列讲座7选择排序算法

         选考VB算法专题系列讲座8冒泡排序算法

         选考VB算法专题系列讲座9插入排序算法

         选考VB算法专题系列讲座10桶排序和索引排序算法

    7fc14d3b86f5953acf78f15bfe747e32.png

    展开全文
  • 运行效果: 程序代码: Public A As Long '定义全局变量,用于储存生成随机数 Private Sub Command1_Click() Randomize ...
    运行效果:
    VB编程:IF语句嵌套实例猜数小游戏-9

    程序代码:
    Public A As Long                                                           '定义全局变量,用于储存生成的随机数
    Private Sub Command1_Click()
        Randomize                                                                 '生成随机数
        A = CLng(1000 * Rnd)                                                'CLng()函数,强制转换为长整型
    End Sub

    Private Sub Command2_Click()
        Static B As Integer                                                        '申明静态变量用于计数
        If Text1.Text <> "" And IsNumeric(Text1.Text) Then     '判断是否是空值或者是数值
            B = B + 1
            If CLng(Text1.Text) > A Then                                       '比较数据
                MsgBox "大了.", , "信息提示"
            ElseIf CLng(Text1.Text) < A Then
                MsgBox "小了.", , "信息提示"
            Else
                MsgBox "猜对了,这个数是:" & A, , "信息提示"
                B = 0
                Exit Sub
            End If
        End If
        Label3.Caption = "这是第" & B & "次猜想"                   '记录猜想次数
    End Sub

    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 13 Then
            Call Command2_Click                                                 'Enter回车键的ASCII是13
        End If
    End Sub

    小技巧:
          编写程序的时候,代码语句经常需要在前面加空格,四个字节的空格需要按4下Spase空格键,其实只要按1次Tab制表键即可。
    展开全文
  • 视频内容:本视频是给学生复习If语句授课内容,长长寒假过后,很多学生连最基本东西忘记了,只好从最简单开始复习。本视频讲解了使用嵌套If和多分支语句解决两个问题,讲解非常详细,基础不够扎实...

    视频内容:

    本视频是给学生复习If语句时的授课内容,长长的寒假过后,很多学生连最基本的东西的忘记了,只好从最简单的开始复习。本视频讲解了使用嵌套If和多分支语句解决的两个问题,讲解非常详细,基础不够扎实的同学可以看一看。

    视频勘误:

    本堂课是超长假期复课后在机房上的第一节课,学生有些生疏了,我在授课时间把握上也不够好,内容没有讲完,所以课后补录一个视频,希望同学们在五一假期期间可以看看视频复习一下。

    隔了一段时间不录视频,我也有些生疏了,语速和音量都没有控制好,请同学们谅解。如果实在觉得语速太慢,可以用2倍速来收看。

    本次视频虽然有一些口误,但没有明显错误,就不给出勘误了。如果你发现更多错误,请及时联系我,以便完善勘误表。

    源代码:

    1. 分数等级。已知各分数段对应等级如下:[80,90)良好,90以上(含90)优秀,[60,80)及格,60以下不及格。请从文本框Text1中输入分数,点击“计算”按钮,在标签Label中显示对应等级。示例界面如下图所示:

    算法1: 4个独立的行If语句(不推荐)

    Private Sub Command1_Click()    x = Val(Text1.Text)    If x >= 80 And x < 90 Then Label1.Caption = "良好"    If x >= 90 Then Label1.Caption = "优秀"    If x >= 60 And x < 80 Then Label1.Caption = "及格"    If x < 60 Then Label1.Caption = "不及格"End Sub

    算法2: 嵌套If语句

    Private Sub Command2_Click()    x = Val(Text1.Text)    If x >= 80 Then        If x < 90 Then           Label1.Caption = "良好"       Else           Label1.Caption = "优秀"       End If    Else        If x < 60 Then           Label1.Caption = "不及格"       Else           Label1.Caption = "及格"       End If    End IfEnd Sub

    算法3: 多分支语句

    Private Sub Command3_Click()    x = Val(Text1.Text)    If x>= 90 Then        Label1.Caption = "优秀"    ElseIf x >= 80 Then        Label1.Caption = "良好"    ElseIf x >= 60 Then       Label1.Caption = "及格"    Else       Label1.Caption = "不及格"    End IfEnd Sub

    2. 计算体质指数(BMI)

    体质指数(BMI)=体重(kg)÷身高^2(m)

    Private Sub Command1_Click()    Dim wAs Double, h As Double, BMI As Double    Dim sex As String, ans As String    w =Val(Text1.Text): h = Val(Text2.Text)    BMI = w / h ^ 2    sex = Text3.Text    If sex = "男" Then        If BMI <= 16.7 Then           ans = "低体重"       ElseIf BMI <= 23.7 Then           ans = "正常"       ElseIf BMI <= 26.5 Then           ans = "超重"       Else           ans = "肥胖"       End If    Else        If BMI <= 16.8 Then           ans = "低体重"        ElseIf BMI <= 23.2 Then           ans = "正常"       ElseIf BMI <= 25.4 Then           ans = "超重"       Else           ans = "肥胖"       End If    End If   Label1.Caption = ansEnd Sub
    温馨提示:    需要本视频(包括往期所有视频)对应PPT的朋友,请加入“选考VB算法解析”知识星球。众多师生聚集在星球讨论、分享VB算法问题和复习迎考方法,大量选考VB算法资料等你来下载。我们专注选考VB算法,感兴趣就一起来!

    e750d8ad69e19f5cefa50427d6627798.png

    相关优秀文章:

         选考VB算法专题系列讲座0课程简介

         选考VB算法专题系列讲座1循环结构基础

         选考VB算法专题系列讲座2数组基本操作

         选考VB算法专题系列讲座3字符串基本操作

         选考VB算法专题系列讲座4解析算法

         选考VB算法专题系列讲座5枚举算法

         选考VB算法专题系列讲座6顺序查找算法

         选考VB算法专题系列讲座7选择排序算法

         选考VB算法专题系列讲座8冒泡排序算法

         选考VB算法专题系列讲座9插入排序算法

         选考VB算法专题系列讲座10桶排序和索引排序算法

    e41bd758f8efc929b1c3cc5c29f8c032.png

    展开全文
  • VB中的do while loop语句Do Loop 语句的语法具有以下几个部分:在Do…Loop 中可以在任何位置放置任意个数的 Exit Do 语句,随时跳出Do...Loop 循环。Exit Do 通常用于条件判断之后,例如If Then,在这种情况下,Exit...
  • 第3章 程序基本控制结构 本章学习目标 掌握顺序结构程序设计的特点 掌握If.Then.Else语句的语法格式及执行特点 掌握If.Then.Else语句的嵌套 掌握多条件选择结构Select Case语句格式及执行特点 熟练掌握For.Next循环...
  • vb简单选择结构和嵌套if语句程序设计实例,这是针对高一学生基础内容
  • vb.net做俄罗斯方块

    2010-06-14 20:59:23
    Vb俄罗斯方块 基本功能全'声明一个整数常量Width,表示游戏界面横向小正方形数目,初始化为16 Public Const Width As Integer = 16 '声明一个整数常量Height,表示游戏界面横向小正方形数目,初始化为30 ...
  • VB课本总结

    2015-12-23 10:58:58
    这一章最基本是数据类型,最重要我认为是常量与变量,通过这一...1、let可省2、条件语句嵌套注意区别:(1)一般格式条件语句嵌套(if...then...else...end if)(2)Elseif格式条件语句嵌套3、Do...Loop循环中
  • SQL查询篇第6章 简单的SELECT语句查询 6.1 查询的基本结构 6.1.1 了解SELECT语句 6.1.2 SELECT语句的语法格式 6.1.3 SELECT语句的执行步骤 6.2 简单的查询语句 6.2.1 查询表中指定的字段 6.2.2 查询所有的字段 6.2.3...
  • 1三角形问题—— IF语句 2一个 月有多少天?—— Select Case 语句 3闰年问题——选择结构的嵌套 4个人简历——单选、复选和框架控件 5成绩转换—— 综合应用 6购物优惠—— 程序调试 ...
  • 一个判断空填方法

    热门讨论 2018-08-19 21:31:09
    最近在进行机房收费系统的重构,在进行...1、结合之前vb版的机房的经验,最简单和容易理解的就是用if语句的嵌套。 大概是这个样子的! if(txtcardno.Text=="") { MessageBox.Show("请填写卡号...
  • ·代码格式化 ·好直观布局能够展示程序逻辑结构·进行格式化要求 ·使代码便于阅读和理解 ·减少为理解代码结构而必须做工作 ·有嵌套的循环或if--then语句块组成复杂代码结构,就必须使用缩进 ·...
  • VB.NET 入门经典 (第三版)

    热门讨论 2009-07-29 16:56:26
    4.2.3 嵌套的If语句 77 4.2.4 单行If语句 78 4.2.5 比较运算符 78 4.2.6 字符串比较 86 4.3 Select Case语句 87 4.3.1 使用Select Case语句 88 4.3.2 不区分大小写Select Case语句 91 4.3.3 多重选择 93 4.3.4 ...
  • 4.2.3 嵌套的If语句 77 4.2.4 单行If语句 78 4.2.5 比较运算符 78 4.2.6 字符串比较 86 4.3 Select Case语句 87 4.3.1 使用Select Case语句 88 4.3.2 不区分大小写Select Case语句 91 4.3.3 多重选择 93 4.3.4 ...
  • 4.2.3 嵌套的If语句 77 4.2.4 单行If语句 78 4.2.5 比较运算符 78 4.2.6 字符串比较 86 4.3 Select Case语句 87 4.3.1 使用Select Case语句 88 4.3.2 不区分大小写Select Case语句 91 4.3.3 多重选择 93 4.3.4 ...
  • 第6章在VB.NET中使用存储过程 6.l在VS.NET中创建存储过程 6.2DataReader 6.3多个结果集 6.4传递参数 6.4.1SqlParameter对象 6.4.2SqlDataReader和参数 6.5返回参数 6.6检索XML 6.7以XML传递数据 6.8SQLXML...
  • Visual.Basic.NET程序设计案例教程

    热门讨论 2012-01-24 14:19:08
    4.2.3 If语句的嵌套 4.2.4 多分支控制结构 4.3 循环结构 4.3.1 For循环结构 4.3.2 Do循环结构 4.3.3 While循环结构 4.3.4 循环的嵌套 4.3.5 Exit语句 4.4 程序调试 4.5 综合实训 习题4 第5章 数组与过程 5.1 数组 ...
  • java statement

    千次阅读 2007-01-24 13:32:00
    本人曾用过C、VB、C#,对这种语言学语法有一定了解。但现在是在学java,大家都知道java语法和C#等没什么大不同,但既然是学习,就应该把...1、 条件控制语句1.1、if(){}else{}嵌套的if和其他语言没区别.1.2
  • Excel_VBA程序设计.pdf

    热门讨论 2009-08-31 23:05:20
    非常详尽Excel_VBA程序设计,好不...5.If…Then…ElseIf语句 125 6.嵌套的If…Then语句 126 7.Select Case语句 127 8.和Case子句一起使用Is 128 9.确定Case子句里数值范围 129 10.在Case子句里确定多个表达式 130
  • 像下面这段代码switch case根本就无能为力,而if嵌套效率又低,只有select case才是最好选择 ``` Select Case 9 Case 1 > 7 Debug.WriteLine("False") Case 9.1 - 12 Debug.WriteLine("False") ...
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    5.If…Then…ElseIf语句 125 6.嵌套的If…Then语句 126 7.Select Case语句 127 8.和Case子句一起使用Is 128 9.确定Case子句里数值范围 129 10.在Case子句里确定多个表达式 130 11.接下来… 130 第六章 在VBA中重复...
  • 5.If…Then…ElseIf语句 112 6.嵌套的If…Then语句 113 7.Select Case语句 114 8.和Case子句一起使用Is 116 9.确定Case子句里数值范围 116 10.在Case子句里确定多个表达式 117 11.接下来… 117 第六章 在VBA中重复...
  • Excel_VBA教程

    2014-09-22 11:36:34
    5.IF…THEN…ELSEIF语句 118 6.嵌套的IF…THEN语句 119 7.SELECT CASE语句 120 8.和CASE子句一起使用IS 121 9.确定CASE子句里数值范围 122 10.在CASE子句里确定多个表达式 123 11.接下来… 123 第六章 在VBA中重复...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    5.IF…THEN…ELSEIF语句 118 6.嵌套的IF…THEN语句 119 7.SELECT CASE语句 120 8.和CASE子句一起使用IS 121 9.确定CASE子句里数值范围 122 10.在CASE子句里确定多个表达式 123 11.接下来… 123 第六章 在VBA中重复...
  • 3.3.1 If语句 51 3.3.2 情况语句(Select Case语句) 57 3.4 循环结构 59 3.4.1 For…Next循环语句 59 3.4.2 While循环语句 60 3.4.3 Do循环语句 61 3.4.4 枚举循环语句 64 3.4.5 循环嵌套语句 64 3.5 其他...
  • Java开发技术大全(500个源代码).

    热门讨论 2012-12-02 19:55:48
    leapYearByIf.java 用if语句判断闰年 leapYearByLogical.java 用逻辑表达式判断闰年 lowToUpper.java 小写字母转换成大写字母 lozengeStar.java 输出一个由*组成菱形 multiplyTable.java 求乘法口诀表 ...
  • 3.1.2 嵌套的if语句 103 3.1.3 扩展的if语句 105 3.1.4 嵌套的if-else语句 107 3.1.5 逻辑运算符和表达式 109 3.1.6 条件运算符 112 3.1.7 switch语句 114 3.1.8 无条件转移 116 3.2 重复执行语句块...
  • 6.4.5 嵌套的try结构 274 6.4.6 异常属性使用 275 6.4.7 message属性 276 6.4.8 innerexception和targetsite属性 276 6.5 与visual basic 6样式错误处理交互操作 280 6.6 记录错误 281 6.6.1 事件日志 281...

空空如也

空空如也

1 2
收藏数 38
精华内容 15
关键字:

vbif语句的嵌套