网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,122贴子：1,166,142
  • 7回复贴，共1页

VB 特简单的一个问题 菜鸟求教

Private Sub Command1_Click()
Dim x As Integer, y As Integer
Dim z As Integer, i As Integer
Dim f As Integer
x = InputBox("请输入一个1-10之间的整数", "输入", "100")
If x < 1 Or x > 10 Then
x = InputBox("请输入一个1-10之间的整数", "输入", "100")
End If
y = InputBox("请输入一个1-10之间的整数", "输入", "100")
If y < 1 Or y > 10 Then
y = InputBox("请输入一个1-10之间的整数", "输入", "100")
End If
z = x * y
i = InputBox("请输入x,y的乘积", "答案", 100)
If z = i Then
Print i
ElseIf z <> i Then
f = MsgBox("输入有误，是否重新输入", 36, "提示")
If f = 6 Then
i = InputBox("请输入一个1-10之间的整数", "输入", "100")
If z = i Then
Print i
Else
End If
End
ElseIf f = 7 Then
End
End If
End sub
这个是程序代码
为什么运行的时候 提示 块If 没有End if
我按照视频做的啊


注意缩进，缩进好你就能看出来了


2025-06-14 04:31:07
广告
谢谢 可是VB 好像不可以自动缩进的吧 我的是VB6.0 不会自动缩进


按TAB


If z = i Then
Print i
这里


还有很多你都没打end if啊。。


非常感谢


Private Sub Command1_Click()
z = Val(Text1.Text) * Val(Text2.Text)
If z = Val(Text3.Text) Then
Label1.Caption = Val(z)
Else: MsgBox "输入有误，是否重新输入", 36, "提示"
Text3 = ""
Text3.SetFocus
End If
If z = Val(Text3.Text) Then
Label1.Caption = Val(z)
End If
If Text3.Text = 7 Then
End
End If
End Sub Private Sub Form_Load()
Text1.MaxLength = 2
Text2.MaxLength = 2
End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 And KeyAscii <> 8 Then
MsgBox "只能输入数字！", , "提示"
KeyAscii = 0
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 And KeyAscii <> 8 Then
MsgBox "只能输入数字！", , "提示"
KeyAscii = 0
End If
End Sub
这是我的。。无聊做的 3个text框（清空） 一个command 一个Label框（清空）


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 7回复贴，共1页
分享到: