(單選,填字母:A.Form1.Text=“查找ASCII最大的字符“/B.Form1.Caption=“查找ASCII最大的字符“/C.Form1.AddItem“查找ASCII最大的字符“) (2)實(shí)現(xiàn)上述功能的VB程序如下,請?jiān)跈M線處填入合適代碼。 Const n=40 Private Sub Command1_Click ( ?。?br />Dim s As String,ch As String Dim i As Integer,max As Integer s=Text1.Text max=0 For i=1 To Len(s) ch=
If Asc(ch)>max Then max=Asc(ch) Next i Label1.Caption=“最大ASCII碼:″+
+″該字符為:″+Chr(max) End Sub Private Sub Form_Load ( ?。S機(jī)生成可見字符并顯示在文本框Text1中 Randomize For i=1 To n Text1.Text=Text1.Text+
(只需填一個方法名); (2)根據(jù)題意,請?jiān)跈M線處填入合適代碼; (3)加框處程序代碼有錯,請改正。 Const n=15 Private Sub Command1_Click ( ?。?br />Dim a(1 To n) As Integer'數(shù)組a存放不同顏色襪子的數(shù)量,默認(rèn)值為0 Dim s As String,ch As String Dim c As Integer,i As Integer,t As Integer List1.Clear s=Text1.Text t=0:c=0:i=1 Do While i<=Len(s) ch=Mid(s,i,1) If ch>=“0“And ch<=″9″Then t=t*10+Val(ch) Else a(t)=
t=0 End If i=i+1 Loop For i=1 To n If
Then List1.AddItem″落單襪子的顏色為″+Str(i) c= Next i Label1.Caption=″能配對的襪子有″+Str(c)+″雙″ End Sub