For i=1 To 15 x=2*i-1 if x Mod 3=0 Then S=S+1 Next i Labell.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是： 29.(7分) Private Sub Command1_Click() Dim a As Integer:Dim b As Integer a=10:b=20 Changel a,b Print "Al=";a,"BI=";b a=10:b=20 Change2 a,b Print "A2=";a,"B2=";b End Sub Sub Changel(x As Integer,y As Integer) t-x:x y:y t End Sub Sub Change2(By Val x As Integer,ByVal y As Integer) t-x:x y:y=t End Sub 程序运行后，单击command1按钮，在窗体上输出的结果是： 得分 评卷人 四、完善程序题（共10分）》 30.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程 序运行后，驱动器列表框Drivel的默认驱动器设置为e盘，选择Fle1中所列的图片文件(*， 985For i=l To 15 x=2 i-1 if x Mod 3=0 Then S=S+l Next i Label1. Caption = S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是: 29. (7 分) Private Sub CommandLClickO Dim a As Integer: Dim b As Integer a = 10: b = 20 Change1 a. b Print "Al ="; a , "B1 ="; b a = 10: b = 20 Change2 a , b Print "A2="; a , "B2="; b End Sub Sub ChangeICx As Integer. y As Integer) t x: x y: y t End Sub Sub Change2CByVal x As Integer , ByVal y As Integer) x: X y: y t End Sub 程序运行后，单击 commandl 按钮，在窗体上输出的结果是: 四、完善程序题{共 10 分) 30. 在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程 序运行后，驱动器列表框 Drivel 的默认驱动器设置为 盘，选择 File1 中所列的图片文件(铃. 985