vb编程实例2013VIP专享VIP免费

实验3 0 (1 ) PublicClassForm1 PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a AsString, b AsString, c AsString Dim x1 AsSingle, x2 AsSingle a = InputBox("输 ?入 ?A", "输 ?入 ?数簓据YY", , 500, 500) b = InputBox("输 ?入 ?B", "输 ?入 ?数簓据YY", , 500, 500) c = InputBox("输 ?入 ?C", "输 ?入 ?数簓据YY", , 500, 500) x1 = -b + Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / a x2 = -b - Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / a MsgBox("x1="& Format(x1, "###.###") &" x2="& Format(x2, "###.###")) EndSub PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim x AsSingle Dim y AsSingle x = InputBox("输 ?入 ?x") y = Math.Log(20) + Math.Abs(x - 16) MsgBox("Math.Log(20) + Math.Abs(x - 16)="& y) EndSub 计算落体 PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Const g AsSingle = 9.81 Dim v AsSingle, o AsSingle, t AsSingle, s AsSingle v = InputBox("输 ?入 ?初 ?速ù度è") o = InputBox("输 ?入 ?角 ?度è ") t = 2 * v * Math.Sin(o * Math.PI / 180) / g s = v * Math.Sin(2 * o * Math.PI / 180) / g MsgBox("落 ?地 ?所ù需è时骸?间 ?"& t &" 落 ?地 ?时骸?运 ?动ˉ的?射 ?程ë "& s) EndSub EndClass 实验3 0 (2 ) 随机产生奇偶数并输出 PublicClassForm1 PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x AsInteger x = Int(Rnd() * 100) If x Mod 2 = 0 Then MsgBox(x &"是 ?偶 ?数簓") Else MsgBox(x &"是 ?奇 ?数簓") EndIf EndSub 比较三个数的大小并输出 PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a AsSingle, b AsSingle, c AsSingle, x AsSingle, y...