。 Private Sub Command1_Click( ?。?br />Dim a As String,b As String,c As String a=“印象西湖“ b=“中國“ c=b+Mid(a,1,2) Lab.Caption=c End Sub (2)下列程序運(yùn)行后,在標(biāo)簽Label1上顯示的是
。 Private Sub Command1_Click ( ) Dim a As Single,b As Single,c As Single,w As Single w=6:a=60:b=50:c=30 If w<=10And a+b+c<=115Then Label1.Caption=“攜帶“ Else Label1.Caption=“托運(yùn)“ End If End Sub (3)下列程序運(yùn)行后,數(shù)組元素d(3)的值是
。 Private Sub Command1_Click ( ?。?br />Dim d(1To 8)As Integer Dim i As Integer For i=1To 8 d(i)=2*i List1.AddItem Str(d(i)) Next i End Sub
(填字母)。 A.Dim k As Integer B.For k=211000To 211999 C.Label2.Caption=Str(k) (8)保存工程后,徐明發(fā)現(xiàn)結(jié)果文件夾中產(chǎn)生了yzwt。frm、yzwt.jye.ai、yzwt.vbw三個(gè)文件,其中窗體文件是