16.數(shù)據(jù)插入.用VB設(shè)計程序,主要功能如下:隨機產(chǎn)生15個200以內(nèi)的正整數(shù)數(shù)列,按升序排序后顯示在List1列表框中,在文本框Text1中輸入1個200以內(nèi)的正整數(shù),單擊“插入”按鈕Command1后將其插入到數(shù)列中,并保持數(shù)列仍然有序,顯示在列表List2中,同時在標簽Label4中顯示插入的位置,程序界面如圖所示. 實現(xiàn)上述功能的VB程序代碼如下,請在橫線處填上合適的代碼. Dim a( 1To 20)As Integer Private Sub Command1_Click ( ?。?br />Dim key As Integer key=① i=1 Do While key>a ( i ) And ( i<=1 5 ) i=i+1 Loop Label4.Caption=“該數(shù)插入的位置是:”+Str ( i ) If i=16 Then a ( i )=key Else For j=16 To i+1Step-1 ② Next j a ( i )=key End If List2.Clear For i=1To 16 List2.AddItem a( i) Next i End Sub Private Sub Form_Load ( ?。?br />'隨機生成15個200以內(nèi)的正整數(shù) Randomize For i=1To 15 a ( i )=Int(Rnd*200)+1 Next i '將15個數(shù)從小到大排序 For i=1To 14 k=i For j=i+1To 15 If a ( k )>a ( j ) Then k=j Next j If i<>k Then t=a(i);a( i)=a ( k ):a ( k ) End If Next i '將排好序的數(shù)輸出在列表框Listl中 Listl.Clear For i=1To 15 Listl.AddItem str ( a ( i ) ) Next i End Sub 程序中①橫線處應(yīng)填入
17.如果一個自然數(shù)恰好等于它的各因數(shù)之和,則稱該數(shù)為完全數(shù).這里的因素都是除去本身的正因數(shù).例如:第一個完全數(shù)是6,它有因數(shù)1、2、3、6,除去它本身6外,其余3個數(shù)相加,1+2+3=6.尋找完全數(shù)并不是容易的事.經(jīng)過不少數(shù)學(xué)家研究,到2013年2月6日為止,一共找到了48個完全數(shù). 小明設(shè)計了一個VB程序,用于求解10000以內(nèi)的所有完全數(shù).點擊按鈕Command1,標簽Label1顯示完全數(shù)的個數(shù),并在列表框中顯示10000以內(nèi)所有的完全數(shù). 程序運行效果如圖所示 實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適代碼. Private Sub Command1_Click ( ) Dim i As Integer,j As Integer,c As Integer,s As Integer c=0‘用于存儲完全數(shù)的個數(shù) For i=1To 10000 s=0‘用于存儲各因數(shù)之和 For j=1To i-1 If fac(i,j) Then
Next j If i=s Then
Listl.AddIltem Str( i) End If Next i Label.Caption=“10000 以內(nèi)共有”+Str(c)+“個完全數(shù)!” End Sub
Function fac(x As Integer,y As Integer) As Boolean '如果y是x的因數(shù)返回True,否則返回False If