简单试穿衣服的模特:超简单的VB编程,作出来就给你分

来源:百度文库 编辑:神马品牌网 时间:2024/05/12 03:50:37
要求:从键盘上输入2个数,然后按按纽,可以分别求出2个数的和,差,积,商,第一个数平方,第一个数绝对值.

2.从键盘输入2个数,然后按按纽,计算任意两个数之间的偶数和

把变成数据复制上来就行了

Private Sub Command1_Click()
Dim a, b, c, temp, i As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then temp = b: b = a: a = temp
For i = a To b
If i Mod 2 = 0 Then c = c + i
Next i
Text3.Text = a + b
Text4.Text = b - a
Text5.Text = a * b
Text6.Text = a / b
Text7.Text = a * a
Text8.Text = Abs(b)
Text9.Text = c
End Sub

。。。才30分 不干

晕,简单还要让别人做啊,你的分很多啊,要不给我些吧,呵呵~~~~

00