Visual Basic6.0零基础教学(5)—VB的输入输出,顺序和选择结构

Ren泽

已于 2024-05-18 13:13:55 修改

阅读量1k

点赞数 16

分类专栏： Visual Basic 6.0 文章标签： java 服务器数据库开发语言青少年编程

于 2024-05-18 12:56:24 首次发布

本文链接：https://blog.csdn.net/2301_79795470/article/details/139008859

版权

Visual Basic 6.0 专栏收录该内容

5 篇文章 3 订阅

订阅专栏

VB的输入输出和控制结构

文章目录

VB的输入输出和控制结构
前言
一、输入输出
二、控制结构

前言

这一章节我们学习VB当中的最基本的输入输出方法,以及VB当中常用的流程控制结构.

一、输入输出

1. InputBox 输入

用inputbox来进行输入 ,以弹窗的形式让我们输入内容,和 python中的input是一样的,我们同样可以用一个变量来进行接收.

inputbox()

示例:

Dim userInput As String
userInput = InputBox("请输入您的名字：")

在这里插入图片描述

2.MsgBox输出

使用MsgBox函数来显示消息框。通过显示消息框，可以向用户显示一条消息，并等待用户点击确定按钮。

MsgBox()

示例:

MsgBox "欢迎使用VB6.0！"

在这里插入图片描述

print 输出

使用Print方法将文本输出到控制台窗口。Print方法会将指定的文本输出到控制台窗口的当前位置，并将当前位置移动到下一行。

示例:

Print "Hello World!"

在这里插入图片描述

我们也可以使用VB中 text 文本框的控件来进行接收用户输入的信息 ,用标签来进行显示输出

以上就是VB6.0常用的输入输出方法。

二、控制结构

计算机程序的执行控制流程有顺序结构、分支结构和循环结构三种基本结构，在面向过程的程序设计中（结构化），程序不论从宏观到微观都由这三种结构组成。

面向对象程序设计（可视化）增加了事件驱动机制，由用户激发某事件去执行相应的事件处理过程。这些事件处理过程之间并不形成特定的执行次序，但对每个事件处理过程内部而言，又总包含这三种基本结构。

1.顺序结构

定义：程序是由语句序列组成的。如果在一个语句序列中，每个语句都按出现的顺序执行，即要执行第I个语句，必须先执行第I-1个语句，则这种语句序列结构称为顺序结构。

构成顺序结构的主要有：赋值语句、输入和输出语句和暂停语句。

赋值语句

赋值语句：用来为变量和控件属性置值的最主要方法。作用是把一个表达式的值赋给一个变量或控件的一个属性。

形式: 变量名＝表达式

首先计算赋值号右边的表达式的值，然后将此值赋给赋值号左边的标识符（变量名）或控件属性，作为它的当前值，该值一直保存到下一次再对它赋值为止。

实例：

Dim s as String
s = "欢迎使用Visual Basic 6.0"

注意： VB6.0中的 = 符号和python中不一样，VB中的= 具有二义性即可以做为赋值号，也可以做为逻辑关系中的等号。它的实际意义要根据后文的形式判断。 ·

2.选择结构

在程序设计中，某些运算和操作的执行取决于某条件是否成立，成立和不成立执行的语句不同。

if … then单分支


 If <表达式> Then
 
	 语句块
	 
 End If

和python的选择控制语句一直,只是部分语法不同,VB中的语句结束需要用end if 来控制,而python 是通过缩进来进行语句的控制

if … then…else… 双分支

If <表达式> Then 
	<语句1> 
Else 
	<语句2>

在VB当中虽然没有缩进的这个控制权限的概念,但是我们在编程的时候我们为了方便代码的可读性,会在一个控制语句中加上缩进来增强,所以我们最好形成一个习惯,在写这些结构分支的时候加上必要的缩进.

if … then… elseif … then … else … 多分支

If <表达式1> Then
	<语句块1> 
ElseIf <表达式2>Then
	<语句块2>
     …		   
Else
  	语句块 n+1        
End If

示例:

单分支:
Private Sub Form_Click()
Dim age As Integer
    age = Val(InputBox("请输入你的年龄"))
    If age = 18 Then
        MsgBox "恭喜你成年了"
    End If
End Sub

双分支:
Private Sub Form_Click()
Dim age As Integer
    age = Val(InputBox("请输入你的年龄"))
    
    If age >= 18 Then
        MsgBox "您已经成年了!"
    Else
        MsgBox "您还未成年!"
    End If
End Sub

Select Case 语句

Select   Case     变量或表达式		

	Case 表达式列表1			
	语句块1		
	Case 表达式列表2			
	语句块2			
	…		
[Case Else			
	语句块n+1]	
	
End Select

注意:
<表达式列表>：必须与<变量或表达式>同类型<表达式列表>：可以是下面四种形式之一：

表达式例: “A”
一组枚举表达式(用逗号分隔) 2,4,6,8
表达式1 To 表达式2 60 To 100
Is 关系运算符表达式 Is < 60

示例:
例如：已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。

用多分支结构实现:
If    UCase(strC) >= "A" And UCase(strC) <= "Z" Then  
  	Print strC + "是字母字符"    
ElseIf strC >= "0" And strC <= "9" Then
    Print strC + "是数字字符"    
Else                     
	Print strC + "其他字符"    End If

用Select Case语句实现:
Select Case  strC		
	Case "a" To "z"，"A" To "Z"			
		Print  strC + "是字母字符"		
	Case "0" To "9"			
		Print  strC + "是数字字符"		
	Case Else			
		Print  strC + "其他字符"	
	End Select

常见的错误

1．在选择结构中缺少配对的结束语句对多行式的If块语句中，应有配对的 End If语句结束。

2. 多条件选择ElseIf关键字的书写和条件表达式的表示ElseIf 不要写成Else If； 多个条件表达式次序问题

3. Select Case语句的使用 Select Case 后不能出现多个变量；Case子句后不能出现变量见例

4. Select Case语句的使用 Select Case 后不能出现多个变量；

5. Select Case语句的使用  Case子句后不能出现变量见例

讲的不好,多多见谅,我们下次再见!

更多优质文章点这里