Question

vb设计出错了，大一的，求解啊！求最大值的，是command1的click事件

dim a.b.c as integer
dim lbg as integer
a=int（text1.text）
b=..............2....
c=..............3....
if （a＞b）then
lbg=a
else
lbg=b
end if
if（lbg＜c）then
lbg=c
end if
lable1.caption=str（lbg）

Answer 1

dim a.b.c as integer
dim lbg as integer
a=int（text1.text）'获取文本框1的数字
b=int（text2.text）'获取文本框2的数字
c=int（text3.text） '获取文本框3的数字
if （a＞b）then '比较a和b的大小，如果a>b,那么最大值=a，否则最大值=b
lbg=a
else
lbg=b
end if
if（lbg＜c）then '如果a和b比较后的最大值小于c，那么最大值改成c
lbg=c
end if
lable1.caption=str（lbg）'将最后的最大值赋值给标签

Answer 2

提示：Int用于将实数取整，而你此处需要将Text转换成数值，请用Val函数。最后一行不需要转换，可直接输出，见以下代码
Dim后面变量之间应使用英文逗号隔开，不是小数点
最后一行Label拼错
代码已修改，亲测可用。原创回答，请勿抄袭

dim a,b,c as integer
dim lbg as integer
a=Val（text1.text）
b=Val（text2.text）
c=Val（text3.text）
if （a＞b）then
lbg=a
else
lbg=b
end if
if（lbg＜c）then
lbg=c
end if
label1.caption=lbg

Answer 3

Dim a, b, c As Integer
Dim lbg As Integer
a = Int(Text1.Text) '获取文本框1的数字
b = Int(Text2.Text) '获取文本框2的数字
c = Int(Text3.Text) '获取文本框3的数字
If (a > b) Then '比较a和b的大小，如果a>b,那么最大值=a，否则最大值=b
lbg = a
Else
lbg = b
End If
If (lbg < c) Then '如果a和b比较后的最大值小于c，那么最大值改成c
lbg = c
End If
Label1.Caption = Str(lbg) '将最后的最大值赋值给标签
End Sub
‘直接复制保证能用 注意标签的单词为 label 不是lable

追问

我错在哪了呢？我很纳闷啊！

追答

dim a.b.c as integer——应改为dim a,b,c as integer
lable1.caption=str（lbg）_____应改为label1.caption=str（lbg）
你很好问，但书还是要看的。

Answer 4

如果说错吧，就是你的变量定义出错。变量定义中间是英文半角逗号，另外如果你是直接在窗体上画控件的话，label的名称应为label1，而不是lable1.定义三个变量为integer为：
dim a as integer,b as integer,c as integer
dim lbg as integer
a= int(text1)
b=int(text2)
c=int(text3)
lbg = a
if b > a Then lbg = b
if c> lbg Then lbg = c
label1.caption = lbg
用数组好：
'数组控件text1（0-2）：
'定义数组控件的方法为在窗体上画一个text1，接着在其index属性中输入0，再复制粘贴二次
'数组a（0-2）：
dim a(2) as integer
dim lbg as integer
lbg = int(text1(0))
for i = lbound(a) to ubound(a)
a(i) = int(text1(i))
if a(i) > lbg Then lbg = a(i)
next
在vb中不像在vc中，一起定义多个变量必须声明每个变量的类型。
判断语句中的条件可以不加括弧。