Question

VB问题、各位来回答、

private sub check1-click() 这是在啥按钮下进行的？
label1.fontbold=check1.value 这个fontbold和check1.value啥意思？
end sub
private sub check2-click() 这是在啥按钮下进行的？
label1.fontunderline=check2.value 这个fontunderline和check2.value啥意思？
endsub
-----------------------------------------------------
Dim a, b, c As Integer
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If a > b And a > c Then
a = Text4
If b > a And b > c Then
b = Text4
If c > a And c > b Then
c = Text4
End If
End If
End If
求三个编辑框的最大数！请您给我改一下代码，好吗？我的代码编译出来没反应，，谢谢了
------------------------------------------------------
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Text1.Text = a
Text2.Text = b
Text3.Text = c
Text4.Text = d
Text5.Text = e
Text6.Text = f
If a <> "" And b <> "" And c <> "" And d <> "" And e <> "" And f <> "" Then
g = d * a
h = e * b
n = c * f
Label1.Caption = n + h + g
Else
MsgBox "信息提示", vbinfornation, "输入为空"
End If
点击按钮后，出现实时错误“13” 类型不匹配
继续 结束 调试 帮助

Answer 1

private sub check1-click() 这是复选框被单击过程

label1.fontbold=check1.value 这个fontbold是是否显示粗体文字 ture显示粗体，check1.value是复选框一的值，打勾是为ture ，不打勾为false
private sub check2-click() 这是复选框二的单击事件
label1.fontunderline=check2.value 这个是是否有下划线，check2被勾上就有 没勾就没有。

If a > b And a > c Then a = Text4
If b > a And b > c Then b = Text4
If c > a And c > b Then c = Text4

或者
If a > b And a > c Then
a = Text4
End If
If b > a And b > c Then
b = Text4
End If
If c > a And c > b Then
c = Text4
End If

Label1.Caption = n + h + g 改成 Label1.Caption = str（n + h + g）

追问

我按照你说的去做了，可是不成功，还是出现出现实时错误“13” 类型不匹配
继续 结束 调试 帮助 ，出现调试对话框后，看到软件编辑框的内容都变0了，

追答

If a "" And b "" And c "" And d "" And e "" And f "" then
这个改为0，
If a 0 And b 0 And c 0 And d 0 And e 0 And f 0 then

Answer 2

应该是在checkbox 按钮进行了Click点击事件 求最大数建议用冒泡排序 然后在取出最大值
类型不匹配 是因为你定义的变量是Integer 而你if判断的时候应该判断它是否为0 而不是为空吧 建议将变量定位string 或则Cstr()转型

追问

你说的太深奥了，还没学到冒泡排序呢，能不能给我if语句给我写出来我问的最后两个问题的小代码，

追答

取最大数那个 你不要用if嵌套 你试试这样写
If a > b And a > c Then
a = Text4
elseif b > a And b > c Then
b = Text4
elseIf c > a And c > b Then
c = Text4
End If

最后一个问题 你是不是弄反了
是不是应该用你定义的变量 去接收文本框输入的值！如果是把 if判断放前面 判断文本框为不为空 不要去判断变量，因为为本框为string类型，你定义的变量却为integer类型， 然后获取值时 a=cstr(text1.text) .....b、c、d、e、f 这样装换，这样应该不会报类型不匹配错误 你试试吧 成功了别忘记采纳