16.某程序功能如下:將自然數從1到100按某種方式排列起來,單“輸出”按鈕 Commandl,在列表框List1中顯示排列后的數表,運行結果如圖所示。 實現上述功能的VB程序如下,加框處代碼有錯,請改正。 Private Sub Commandl_Click( ?。?br />Const n=10 Dim i As Integer,j As Integer Dim d(100)As Integer For i=1 To n For j=1 To n IfThen'(1) d(j)=(j-1)2+1 Else If j=1 Then d((i-1)*n+1)=i'2 Else If j>=i Then '(2) EIse d(i-1)*n+j)=d(i-1)*n+j-1)-1 End If Next j Next i 在列表框List1中按每行10個輸出數組d的所有元素,代碼略; End sub
。 (2)實現上述功能的VB程序如下,運行結果如圖所示,請在橫線處填入合適的代碼。 Private Sub Commandl_Click( ) Dim d(1 To 2)As Integer i As Integer,j As Integer Dim s As String.jye.ai As Integer,s2 As Integer,t As Integer s= Textl.Text:s1=0:s2=0:j=I For i=1 To len (s)c= Mid(s,i,I)If c<> “?”Then if i Mod 2=0 Then sl=sl+Val(c)Else s2=s2+Val(c) Else
j=j+1 End If Next i Listl Clear For i=0 To 9 For j=0 To 9 t= If (s1-s2+i+j)Mod 3=0 And t Mod 1I=0 Then s=Sreplace(s,d(1),i) s=Sreplace(s,d(2),j) Listl.AddItem s End If Next j Next i End Sub 函數 Sreplace的返回值字符串中要求沒有空格 Function Sreplace(s As String,x As Integer,y As Integer)As String Sreplace =Mid(s,1,x-1)+ End Function