微店如何删除分销:刚学VB30分钟，遇上了个不懂的问题~

我只能说，你刚学 30 分钟，不应该看这么难的东西。而且，你还有几分？呵呵。

' 定义对 Command1 按钮的 Click 事件的响应过程
Private Sub Command1_Click()
' 定义单精度类型的变量 X、Y 和 t
Dim X As Single, Y As Single, t As Single
' 将 Text1 文本框的内容转换为数值后赋给变量 X
X = Val(Text1.Text)
' 将 Text2 文本框的内容转换为数值后赋给变量 Y
Y = Val(Text2.Text)
' 如果 X 小于 Y，那么
If X < Y Then
' 交换 X 和 Y 的值（以下三句）
t = X
X = Y
Y = t
' 判断结束
End If
' 弹出提示框，显示 X 和 Y 中比较大的数。
MsgBox "比较大的数是" & X
' 过程结束
End Sub

你所有的分？15分么？

Private Sub Command1_Click()
Dim X As Single, Y As Single, t As Single ‘定义3个数字变量
X = Val(Text1.Text) ‘给变量x赋值TEXT1（这个是窗体上的控件）的数值
Y = Val(Text2.Text) ’同上，是text2的数值
If X < Y Then ‘如果X小于Y 那么
t = X ’给t赋值为x也就是text1的数值
X = Y ’给x赋值为y也就是text2的数值
Y = t ’给y赋值为t也就是text1的数值
End If ‘ 结束判断
MsgBox "比较大的数是" & X ‘ 弹出对话框，显示”比较大的数是“和X的数值

这段程序是用来显示两个数字中的哪个值比较大的，耐心去按照他的顺序看一下就明白了

Private Sub Command1_Click()
当按钮1被单击的情况下执行一下命令
Dim X As Single, Y As Single, t As Single
设有X、Y、t、三个函数分别都是单精度性小数
X = Val(Text1.Text)
X的值是由文本框1的内容转化来的（从文本到数值）
Y = Val(Text2.Text)
Y的值是由文本框1的内容转化来的 （从文本到数值）
If X < Y Then
判断，当X<Y的情况下执行如下命令
t = X
将X的值赋给变量t
X = Y
此时又将Y的值赋给X
Y = t
将t值赋给Y
End If
结束IF条件的判断语句
MsgBox "比较大的数是" & X
信息框输出比较大的数字
End Sub
当前子程序结束

yueliangyao - 魔法学徒 一级 7-9 23:42
哇塞～～～～
你好厉害哦～！～！
呵＾＾＾
佩服佩服！～！～
有空教教我／1‘～！
QQ：105827076
谢谢！谢谢～！～！

这是写得超烂的一段代码。目的是输出两个框中的较大数，只需要
Private Sub Command1_Click()
Dim X As Single, max As Single '定义变量，max记住最大值。
max = Val(Text1.Text) '把第一个框的数赋给max
x = Val(Text2.Text) '把第二个框中的数赋给x
If X > max Then max = x '如果x大于max,则max应该是x
MsgBox "比较大的数是" & max '输出
End Sub
就可以了。

还得用你能看懂的文字解释，太麻烦。