16.在窗體上畫一個命令按鈕Command1,然后編寫如下代碼: Private Sub Command1_Click ( ) Dim arr1(10),arr2(10)As Integer n=3 For i=1 To 5 arr1(n)=i arr2(i)=2*arr1(n)+1 Next i Print arr1(n),arr2(n); End Sub 程序運行后,單擊命令按鈕,輸出結果是
17.某同學編寫了VB程序其功能和界面如下所示.在文本框(text1)中輸入一段英文,點擊“統計刪除”按鈕,在標簽(Label3)中顯示該語句中最長的單詞(如有多個長度相同的單詞則顯示靠后的單詞),在標簽(Label5)中顯示該單詞的字符長度,在標簽(Label7)中顯示刪除該單詞后的句子. Private Sub Command1_Click ( ) Dim s As Integer,imax As Integer,pimax As Integer,t As Integer Dim source As String source=Text1.Text s=Len(source) imax=1 pimax=1 t=0 For i=1To s d=
If (d>=“a”And d<=“z”) Or (d>=“A”And d<=“Z”) Then
Else If t>=imax Then imax=t
End If t=0 End If Next i Label3.Caption=Mid(source,pimax,imax) Label5.Caption=imax Label7.Caption=