(單選,填字母:A.Command1/B.Text1/C.Form1)。 (2)實(shí)現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼。 ①
②
③
(3)程序加框處代碼有錯,請改正。 改正:
Dim n As Integer Dim a(1 To 20)As Integer Dim b(1 To 20)As Integer Dim c(1 To 20)As Integer Private Sub Command1_Click
Dim i As Integer,t As String,ch As String n=0:t=““ ①
Do While i<=Len(Text1.Text) ch=Mid(Text1.Text,i,1) If ch=“,“Then n=n+1 ②
b(n)=n t=““ Else t=t+ch End If i=i+1 Loop End Sub Private Sub Command2_Click
Dim i As Integer,j As Integer,t As Integer For i=1 To n-1 For j=n To i+1 Step-1 If a(j)>a(j-1)Then t=b(j):b(j)=b(j-1):b(j-1)=t End If Next j Next i For i=1 To n ③
Label1.Caption=Label1.Caption+Str(b(i)) Label2.Caption=Label2.Caption+Str(c(i)) Next i End Sub
16.給定n個不同的正整數(shù)(小于等于100),將它們分組,使得每組中任意兩個數(shù)互質(zhì)(它們的公約數(shù)為1)。按照以下算法對n個數(shù)進(jìn)行分組: n個正整數(shù)由文本框Text1輸入,依次存儲到a數(shù)組中,b(1 to 25)中存儲100內(nèi)的素數(shù),c數(shù)組存儲每一組的數(shù)字個數(shù)及對應(yīng)數(shù)字,d數(shù)組存儲每一組內(nèi)所含的質(zhì)因子,相同質(zhì)因子只存儲一次,最后分組情況顯示在列表框List1中。 c數(shù)組初始狀態(tài):
組(填具體數(shù)字)。 (2)請在橫線處填入合適的代碼。 Const n=6'數(shù)據(jù)個數(shù) Dim a(1 To n) As Integer'存儲原始數(shù)據(jù) Dim b(1 To 25)As Integer'存儲100以內(nèi)的素數(shù) Dim c(0 To (n+1)*n) As Integer'存儲每一組的數(shù)字個數(shù)及對應(yīng)數(shù)字 Dim d(1 To 25*n) As Integer'd數(shù)組存儲每一組內(nèi)含有的質(zhì)因子 Private Sub Command1_Click
Dim t As Integer,i As Integer,j As Integer Dim k As Integer,m As Integer,p As Integer Dim y As Integer,zu As Integer Dim st As String For t=1 To n k=1 i=1 Do While d((k-1)*25+i)<>0 If a(t) Mod d((k-1)*25+i)=0 Then ①
i=0 End If i=i+1 Loop m=(k-1)*(n+1)'每一組存儲數(shù)字個數(shù)的所在位置 c(m)=c(m)+1 ②
For j=1 To 25 If a(t) Mod b(j)=0 Then ③
i=i+1 End If Next j Next t p=0 Do While c(p)>0 st=““ For i=1 To c(p) st=st+Str(c(p+i)) Next i zu=p\(n+1)+1 List1.AddItem“第“+CStr(zu)+“組為:“+st 'Cstr的功能:將數(shù)值型轉(zhuǎn)為字符串型 p=p+n+1 y=y+1 Loop List1.AddItem“至少分:“+CStr(y)+“組“ End Sub Private Sub Form_Load
'讀取文本框Text1中的各個數(shù)據(jù)依次存儲到數(shù)組a中,存儲100以內(nèi)的素數(shù)到數(shù)組b中,代碼略 End Sub