精华内容
下载资源
问答
  • 本视频讲解了使用嵌套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

    展开全文
  •  If CLng(Text1.Text) > A Then              '比较数据    MsgBox "大了.", , "信息提示"    ElseIf CLng(Text1.Text)    MsgBox "小了.", , "信息提示"    Else    MsgBox "猜对了,...
        
    运行效果:
    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和多分支语句解决的两个问题,讲解非常详细,基础不够扎实的同学可以看一看。

    视频勘误:

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

    隔了一段时间不录视频,我也有些生疏了,语速和音量都没有控制好,请同学们谅解。如果实在觉得语速太慢,可以用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

    展开全文
  • ElseIf CLng(Text1.Text)  MsgBox "小了.", , "信息提示" Else MsgBox "猜对了,这个数是:" & A, , "信息提示" B = 0 Exit Sub End If End If Label3.Caption = "这是第" & B & "次猜想" '记录猜想次数 End Sub ...
    运行效果:
    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制表键即可。
    展开全文
  • VB中数组的嵌套循环

    2019-02-20 15:08:27
    两套程序中, 一种是将条件进行分开,分别进行判定, 另一种是判定条件达到,执行下一步的if—end if程序
  • 后面的事件才是真真的调用这个过程并予以实现),在函数过程里面通过connectinstring来建立对数据库的连接,然后利用objrs获取用户登录信息,其中用了if嵌套来是实现登录过程中出现的各种情况的应对。(这里应该就是米...
  • VB课本总结

    2015-12-23 10:58:58
    这一章最基本的是数据类型,最重要的我认为是常量与变量,通过这一...1、let可省2、条件语句嵌套注意区别:(1)一般格式的条件语句嵌套(if...then...else...end if)(2)Elseif格式的条件语句嵌套3、Do...Loop循环中
  • 后面的事件才是真真的调用这个过程并予以实现),在函数过程里面通过connectinstring来建立对数据库的连接,然后利用objrs获取用户登录信息,其中用了if嵌套来是实现登录过程中出现的各种情况的应对。(这里应该就是米...
  • f_l = {"小明":["python","c++","VB"], "小花":["java","python"], "小李":["c++","java"], "小红":["c++"], } for name,languages in f_l.items(): if len(languages) > 1: print(str(name) + "喜欢的程序...
  • VB 绘制规则的圆形线条图案,根据用户输入的数据,生成嵌套的圆形图案:  Const pi = 3.1415926 '常量声明  Private Sub Text1_KeyPress(KeyAscii As Integer)  Dim r, x, y, a, b As Single  If KeyAscii = 13 ...
  • <p>I'm from a VB; Access; SQL Server background recently introduced to WAMP. I have a problem which I have not been able to solve for a few weeks now, I think I have visited every forum on the web ...
  • 第3章 程序基本控制结构 本章学习目标 掌握顺序结构程序设计的特点 掌握If.Then.Else语句的语法格式及执行特点 掌握If.Then.Else语句的嵌套 掌握多条件选择结构Select Case语句格式及执行特点 熟练掌握For.Next循环...
  • VB与数据库的交互经典例子总结

    千次阅读 热门讨论 2012-08-06 17:55:08
    定义一个函数过程(这里仅仅是定义这样一个过程,后面的事件才是真真的调用这个过程并予以实现),在函数过程里面通过connectinstring来建立对数据库的连接,然后利用objrs获取用户登录信息,其中用了if嵌套来是实现...
  • 1三角形问题—— IF语句 2一个 月有多少天?—— Select Case 语句 3闰年问题——选择结构的嵌套 4个人简历——单选、复选和框架控件 5成绩转换—— 综合应用 6购物优惠—— 程序调试 ...
  • VALUES (vD12001, 1, 0, 0, vNP01004, vNP01004, 0, 0, '系统产生', vS02001, vB06001, vS020012, vS020012, P_S01001); IF P_ERRCODE='0000' THEN BEGIN ROLLBACK; CLOSE C_01; SET P_ERRCODE='...
  • ·代码格式化 ·好的直观布局能够展示程序的逻辑结构·进行格式化的要求 ·使代码便于阅读和理解 ·减少为理解代码的结构而必须做的工作 ·有嵌套的循环或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 ...
  • 写程序的注意点

    千次阅读 2010-12-12 13:55:00
    从高中的VB到现在的linux c, 编程反而变得越来越简单了,但是考虑的东西多了。下面就是我编写程序经常考虑的一些情况。   (1)函数编写的时候是否借口类型一致 (2) if 是否可以跳出 (3)...
  • Excel - 自定义函数

    千次阅读 2017-12-12 19:57:06
    你可以嵌套使用IF函数,判断每一个分数属于哪一个区间。 但是,4层IF会不会很容易出错;如果是5个区间,甚至是10个区间呢?嵌套使用10个IF不太现实,也很容易出错吧。 其实在Excel中,我们可以自定义自己的函数,...
  • 像下面这段代码switch case根本就无能为力,而if嵌套效率又低,只有select case才是最好的选择 ``` Select Case 9 Case 1 > 7 Debug.WriteLine("False") Case 9.1 - 12 Debug.WriteLine("False") ...
  • 使用了两次嵌套循环,加if判断,加标志位处理。而且代码繁复,不易理解维护。 Combo1(1).Clear Combo1(1).AddItem 6, 0 strSelect一个VB 的优化案例关劲松 PMP关于测试软件,ComboBox读取数据库生成下拉列表的算法.....
  • 一个判断空填的方法

    热门讨论 2018-08-19 21:31:09
    最近在进行机房收费系统的重构,在进行...1、结合之前vb版的机房的经验,最简单和容易理解的就是用if语句的嵌套。 大概是这个样子的! if(txtcardno.Text=="") { MessageBox.Show("请填写卡号...
  • VB中的do while loop语句Do Loop 语句的语法具有以下几个部分:在Do…Loop 中可以在任何位置放置任意个数的 Exit Do 语句,随时跳出Do...Loop 循环。Exit Do 通常用于条件判断之后,例如If Then,在这种情况下,Exit...
  • java statement

    千次阅读 2007-01-24 13:32:00
    本人曾用过C、VB、C#,对这种语言学语法有一定的了解。但现在是在学java,大家都知道java的语法和C#等没什么大的不同,但既然是学习,就应该把...1、 条件控制语句1.1、if(){}else{}嵌套if和其他语言的没区别.1.2
  • 一个VB 的优化案例 关劲松 PMP ...使用了两次嵌套循环,加if判断,加标志位处理。而且代码繁复,不易理解维护。  Combo1(1).Clear  Combo1(1).AddItem "6", 0  strSelect = "select * from
  • 12.5.1 创建默认值 12.5.2 默认值的绑定与松绑 12.6 小结第5篇 T-SQL高级编程篇第13章 存储过程 13.1 存储过程概述 13.1.1 存储过程的基本概念 13.1.2 存储过程的优缺点 13.2 存储过程中常用的流控制语句 13.2.1 IF....
  • Excel_VBA教程

    2014-09-22 11:36:34
    6.嵌套IF…THEN语句 119 7.SELECT CASE语句 120 8.和CASE子句一起使用IS 121 9.确定CASE子句里数值的范围 122 10.在CASE子句里确定多个表达式 123 11.接下来… 123 第六章 在VBA中重复操作 123 1.DO LOOPS: DO…...
  • 此种类MATLAB运算规则基本与MATLAB软件的语法相同,但也同时兼容其他语言如:C/C++、VB、Pascal等,如:字符串用双引号标记而非是单引号;赋值运算符除用”=”外,还可用”:=”;”&”、”|”为位操作符,而对应的...
  • Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists("password.txt") Then set objTextFile = fso.OpenTextFile("password.txt",1) k= objTextFile.Readline l= ...

空空如也

空空如也

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

vbif嵌套