vb中if语句编程范例
答：===Select Case 代码=== x = InputBox("请输入总金额：")xx = Int(x / 1000)Select Case xx Case 0 y = x Case 1 y = 0.9 * x Case 2 y = 0.8 * x Case Is >= 3 y = 0.7 * x End Select Print "您实际应支付：" & CStr(y) & "元"===if then 代码=== x ...
答：vb的if语法的基本结构是：If ...（条件) Then ...（如果条件吻合则执行的语句)Else ...（如果条件不吻合则执行的语句)End if 举个例子，如果1=1则弹出对话框显示a，如果1≠1，则弹出对话框显示b。If 1 = 1 Then MsgBox ("a")Else MsgBox ("b")End If 运行结果如图 希望对你有所帮助...
答：Dim a As Doublea = Text1.TextIf a Mod 2 = 0 Then Label1.Caption = "偶数"Else Label1.Caption = "奇数"End If
答：Private Sub Command1_Click()a = Val(Text1)b = Val(Text2)c = Val(Text3)d = b * b - 4 * a * c If b >= 0 Then X1 = (-b + Sqr(d)) / (2 * a)X2 = (-b - Sqr(d)) / (2 * a)Text4 = X1 Text5 = X2 Else MsgBox "该方程无实数根！"End If End ...
答：在一个窗体上加个textbox和按钮控件 写入以下代码：Private Sub Command1_Click()If Text1.Text = "女生" Then MsgBox "老师输入的是女生"Else If Text1.Text = "男生" Then MsgBox "老师输的是男生"Else MsgBox "老师输入的是" & Text1.Text End If End If End Sub ...
答：Dim z As IntegerPrivate Sub Command1_Click() '剪切'...其他代码略...z = 1End SubPrivate Sub Command2_Click() '复制'...其他代码略...z = 2End SubPrivate Sub Command3_Click() '粘帖If z = 1 Then Text2.Text = Text4.TextElseIf z = 2 Then Text2.Text = ...
答：正确的格式为：If 条件语句 Then 执行语句 Elseif 条件语句 Then 执行语句 Elseif ...End If
答：每一层要用end if来结束本层判断。
答：注意，If语句一定要有判断条件和执行语句，最后用 End If 结尾。但如果执行语句只有一条，就可以缩成一行，不必再写End If。如：If 条件1 Then 语句1 或：If 条件1 Then 语句1 Else 语句2 好，下面做这样一个题：输一个数，判断奇数还是偶数。这时可以使用一个新的运算符——Mod。Mod可以对一...
答：在vb中用if判断一个String变量Str是否为空，可以用二种方法：If Str<>"" Then Print "Str 不是一个空串"或：If Len(Str)>0 Then Print "Str 不是一个空串"
网友评论：
乐秀15554225657：
vb中用if语句怎么写5个换一行 -
21179衡梅
： 以下代码可以输入数字,5个一行: k=0 for i=1 to 500if i mod 13=0 then ?i; : k=k+1 '输出500以内能被13整除的所有数if k mod 5=0 then ? '5个一行 next i
乐秀15554225657：
在VB中,怎么用IF语句编写程序 -
21179衡梅
： Private Sub Command1_Click() Dim x x = Val(Text1.Text) b = Sgn(x) Print b End Sub
乐秀15554225657：
VB:使用IF块结构语句,写出如图程序 -
21179衡梅
： private sub command1_click() label1.caption = ＂符合条件的自然数已显示在列表框中＂ dim i as integer for i = 1 to 500 if i mod 4 = 0 and i mod 7 = 0 then list1.additem str(i) end if next 哗肠糕段蕹灯革犬宫华 end sub 其他的你要不会我也没办法了
乐秀15554225657：
VB中用IF语句编一输3位数输出最大值 -
21179衡梅
： Private Sub Command1_Click() A = Int(InputBox(＂第1个数＂)) B = Int(InputBox(＂第2个数＂)) C = Int(InputBox(＂第3个数＂))If A < B ThenA = B End If If A < C ThenA = C End If Print A End Sub
乐秀15554225657：
VB编程IF语句的使用
21179衡梅
： VB的这个if其实可以用意思来配上去的.. if在这里就是＂如果/判断＂. then在这里就是＂接着＂.else在这里就是＂相反＂..end if在这里就是＂结束判断＂ .. 这些只是我的翻译..但是理解这些就比较好用了.. 比如例子: if text1.text = ＂ok＂ then ' 如果...
乐秀15554225657：
VB中的if语句怎么编写 -
21179衡梅
： 最易懂的代码: if x<=0 theny=2-x endif if x>0 and x<=2 theny=x+2 endif if x>2 and x<=5 theny=x*x endif if x>5 theny=25-x endif
乐秀15554225657：
VB中的elseif的用法,哪位高手能举个例子并解释一下,谢谢了! -
21179衡梅
： 1.if必以end if结束 2.elseif与else if不同 3. If···Then···ElseIf···End If 是 VB 中的块结构条件语句,主要用来针对不同的情况,让应用程序做出不同的反应.语句功能如下:If 假设情况1 Then假设情况一成立时执行的语句块1〔...
乐秀15554225657：
请问一下vb中的if语句的用法 -
21179衡梅
： If...Then...Else 语句 根据表达式的值有条件地执行一组语句. 语法 If condition Then [statements][Else elsestatements] 或者,可以使用块形式的语法: If condition Then [statements] [ElseIf condition-n Then [elseifstatements] ... [Else [...
乐秀15554225657：
哪位高人能帮小弟个忙?用vb写一个很简单的if语句的程序.内容是...
21179衡梅
： Option Explicit Option Base 1 Private Sub Form_Click() Dim m, n, i, j Dim name As String Dim a() a() = Array(＂小李＂, ＂小刘＂, ＂小张＂, ＂小风＂, ＂小苦＂) For i = 1 To 5 name = InputBox(＂请输入名字＂) For j = 1 To 5 If name = a(j) Then Print a(j) ElseIf name <> a(j) Then MsgBox ＂请重新输入＂ Else MsgBox ＂输入无效＂ End If Next j Next i End Sub
乐秀15554225657：
VB 中if 语法怎么用 -
21179衡梅
： 就是只有当“条件”满足的时候,才执行“返回内容“ end if是固定格式,和if then end if共同组成这个选择语句 例如:if1+1<3 then msgbox＂判断正确＂ end if 就是说,当1+1<3这个语句正确的话,执行,弹出“判断正确”的对话框
