實驗一

運行效果

代碼

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的直接输出的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。