落日·残阳
落日·残阳
关注数: 22
粉丝数: 131
发帖数: 1,140
关注贴吧数: 59
321 321
合并服务器 人物没了啊
123 Private Sub Label1_Click() End End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left - 50 If Label1.Left < -Label1.Width Then Label1.Left = Form1.Width End If End Sub
123 Dim i, a, t, g, b As Integer x = 2000 y = 2000 For i = 1 To 20 a = a + 50 Randomize r = Rnd * 256 g = Rnd * 256 b = Rnd * 256 Circle (x, y), a, RGB(r, g, b) Next i
求高端签名
SB们 Private Sub Command1_Click() Dim x As Single, y As Single x = Val(InputBox("x=", "输入斤数")) If x > 2 Then y = 1.8 * x * 0.8 Else y = 1.5 * x End If Print "应付金额"; y End Sub Private Sub Command2_Click() Dim a As Single, b As Single, c As Single, x1 As Single, x2 As Single a = Val(InputBox("a=", "输入a")) b = Val(InputBox("b=", "输入b")) c = Val(InputBox("c=", "输入c")) If b * b - 4 * a * c >= 0 Then x1 = (-b + Sqr(b * b - 4 * a * c) / 2 * a) x2 = (-b - Sqr(b * b - 4 * a * c) / 2 * a) End If Print "方程的解x1="; x1; "x2="; x2 End Sub
我要加入
寻找 |冰河洗剑|
“我们的六年”怎么回事？ “我们的六年”怎么回事？ “我们的六年”怎么回事？
有打CS1.6的吗？
申请会员是必须2帖吗？
钱能干什么？（RMB） RT
[求助] 怎么盲狙呀？ RT
创造新的奇迹！ 点击率的奇迹！
首页
1
2
下一页
