VB第4-6章课后编程题代码.doc

代码：第四章：Page。108。4（1），分段函数：Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(InputBox(assign a number to x, Number x, 0)If x 1 Theny = xElseIf x = 1 Theny = 3 * x - 2Elsey = 4 * x - 12End IfPicture1.Print when x=; x; then y=; yEnd SubPrivate Sub Command2_Click()EndEnd Sub4（2）：Private Sub Command1_Click()RandomizeFor i = 1 To 100n = Int(Rnd * (99 - 10 + 1) + 10)Text1 = Text1 + CStr(n) + Select Case n C