vb Select Case的使用字符串整形的转换输入错误str的直接输出

实验一

运行效果

代码

Dim i As Integer
Dim str As StringPrivate Sub Command1_Click()'接收str = Text1.Texti = Val(Text1.Text)'i = InputBox("男生输入1，女生输入2")    '弹出一个（自动生成的)输入框Select Case iCase 1:MsgBox ("男生")Case 2:MsgBox ("女生")Case Else:MsgBox ("你输入的是 " & str & " 输入错误!!")End SelectText1.Text = ""     '返回时自动清空输入框End Sub

实验二使用局部静态变量制作计数器

【实验内容】

掌握使用局部静态变量的使用方法及if 语句、select case语句的使用方法
掌握MsgBox、InputBox的使用方法
完成简单的记录次数程序并且正确地运行。
根据输入的
“1”、“2、“3”用Msgbox相应的输出“一”、“二”、“三”，
如果是其他的输入，则输出“我只认识1至3”，
只运行三次，之后弹出消息框——“我只能运行3次”

代码

Private Sub Command1_Click()Static total As IntegerDim num As IntegerDim str As String'判断次数If total > 2 ThenMsgBox ("我只能运行三次")Exit Sub                   '超过3次退出函数End Iftotal = total + 1str = InputBox("请输入数字")i = Val(str)'i = InputBox("请输入数字")'判断输入的数字Select Case iCase 1:MsgBox ("一")Case 2:MsgBox ("二")Case 3:MsgBox ("三")Case Else:MsgBox ("我只认识1至3,你输入的是：" & str)End SelectLabel1.Caption = "你已经运行了 " & total & " 次"End Sub

vb Select Case的使用字符串整形的转换输入错误str的直接输出相关推荐

python3 修改字符串的四种方法错误 'str' object does not support item assignment 解决方法
在Python中,字符串是不可变类型,即无法直接修改字符串的某一位字符. 直接修改会报错:'str' object does not support item assignment 因此改变一个字符串 ...
asp.net select Case条件语句的使用方法
原文:http://www.111cn.net/net/vb-net/38548.htm 如果 testexpression 与任何 Case expressionlist 表达式匹配 ,则执行此 C ...
select case when if 的一些用法
概述: sql语句中的case语句与高级语言中的switch语句,是标准sql的语法,适用于一个条件判断有多种值的情况下分别执行不同的操作. 首先,让我们看一下CASE的语法.在一般的SELECT中, ...
php中的select case语句吗,VBS教程：VBScript 语句-Select Case 语句
Select Case 语句根据表达式的值执行几组语句之一. Select Case testexpression [Case expressionlist-n [statements-n]] . ...
ExcelVBA 之Select Case
关键字Select Case和End Select之间放置任意多个条件以测试.子句Case Else是可选的,当你希望可能有条件表达式返回假时使用它.在Select Case语句里,VB将每个表达式和 ...
python3 浮点型字符串整形互转实例
目录 1.字符串浮点型转整形 2.整形字符串转浮点型 3.浮点型整形转字符串 1.字符串浮点型转整形 int函数作用 1.把符合数学格式的数字型字符串转换成整数 2.把浮点数转 ...
python由列表中提取出来的浮点型字符串不能直接转换成整形
案例如下: lst = ['636', 'system', '10', '-10', '1.1G', '114M', '95M', 'S', '45.0', '12.9', '1:15.87', 'c ...
select case语句 is和to用法
在select case 语句中可以使用关系运算符大于>小于<等于=等关系运算符,需要用关键字IS和TO. 用个例子来说明: Private Sub Command1_Click() Di ...
SQL:select case when(转)
CASE 可能是 SQL 中被误用最多的关键字之一.虽然你可能以前用过这个关键字来创建字段,但是它还具有更多用法.例如,你可以在 WHERE 子句中使用 CASE. 首先让我们看一下 CASE 的语法 ...

vb Select Case的使用字符串整形的转换输入错误str的直接输出

实验一

实验二使用局部静态变量制作计数器

vb Select Case的使用字符串整形的转换输入错误str的直接输出相关推荐

最新文章

热门文章

vb Select Case的使用 字符串整形的转换 输入错误str的直接输出

实验一

实验二 使用局部静态变量制作计数器

vb Select Case的使用 字符串整形的转换 输入错误str的直接输出相关推荐

最新文章

热门文章

vb Select Case的使用字符串整形的转换输入错误str的直接输出

实验二使用局部静态变量制作计数器

vb Select Case的使用字符串整形的转换输入错误str的直接输出相关推荐