Private Sub Command1_Click ( ?。?br />Dim x As Integer Dim y As Integer Dim z As Integer x=Val(Text1.Text) y=5:z=10 If x-y>5 Then z=z-y Else z=y-z End If End Sub
Private Sub Command2_Click ( ?。?br />Dim x As String,y As String,ans As String x=Text1.Text For i=Len(x) To 1 Step-2 ans=ans+Mid(x,i,1) Next i
17.要求從某一字符串中刪除指定的字符(假設(shè)所含的英文字母均為小寫字母),并將處理后的字符串重新輸出。程序功能:程序運(yùn)行時,從文本框Text1中輸入原始字符串,從文本框Text2中輸入要刪除的字符,單擊Command1后,在文本框Text3中顯示處理后的結(jié)果。 操作界面與程序代碼如下: Dim s As String,k As String,resu As String Dim i As Integer s=Text1.Text k=Text2.Text For i=1 To Len(s) If ① Then‘判斷是否符合條件 resu=resu+Mid(s,i,1) End If Next i ②‘輸出處理后的結(jié)果 End Sub 回答下列問題: (1)如果在文本框Text2中輸入字符r,程序運(yùn)行后在文本框Text3中顯示的結(jié)果是