5、mi%,j%Fori=5To1Step-1Forj=1To6-iPrintTab(j+5);"*";NextjPrintNextiEndSub答案:***************2PrivateSubForm_Click()Dimx%,y%X=10Y=20Ifx>ythenPrintx-yElsePrinty-xEndifEndsub答案:103PrivateSubForm_Click()ForI=15to18Print“*”;Forj=3to6step1Print“*”;NextjPrintNextiEndSub答案:********************4Private Sub Form
6、_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 答案:125privatesubform_click()Dimx!,y!x=4.5y=6.5ifx<>0theny=y-xelseify>5.5thenx=yelseifx<>6.5theny=y*xendifprintx,yendsub答案:4.526privatesubform_Click()Di