最新visualbasic程序設計作業(yè)答案(留存版)
【正文】 100 Then y = x Else If x 200 Then y = * x Else If x 300 Then y = * x Else If x 500 Then y = * x Else y = * x End If End If End If End If = yEnd Sub 2． Private Sub Form_Load() Dim x As Integer x = 100 Do Until x 200 If x Mod 3 0 Then = amp。 For j=3 to 12 Step 3 Print Tab(3*j)。 (Saturday) End SelectEnd FunctionPrivate Sub Text1_KeyPress(KeyAscii As Integer) Dim n As Integer n = Val() If KeyAscii = 13 Then If n = 0 And n 7 Then = Day(n) Else MsgBox 請輸入0~6之間的整數(shù)！ End If End If
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1