16.小李編寫VB程序模擬“中國福利彩票雙色球”抽獎(jiǎng),實(shí)現(xiàn)如下功能:雙色球投注區(qū)分為紅色球號(hào)碼區(qū)和藍(lán)色球號(hào)碼區(qū),紅色球號(hào)碼區(qū)由1-33共33個(gè)號(hào)碼組成,藍(lán)色球號(hào)碼區(qū)由1-16共16個(gè)號(hào)碼組成。每次隨機(jī)選擇6個(gè)紅色球號(hào)碼(紅球號(hào)碼不能重復(fù)出現(xiàn))和1個(gè)藍(lán)色球號(hào)碼(可以和紅色號(hào)碼相同),界面如圖所示。單擊“產(chǎn)生號(hào)碼”按鈕(Command1)在Text1中產(chǎn)生紅球號(hào)碼,在Text2中產(chǎn)生藍(lán)球號(hào)碼。單擊“退出”按鈕(Command2)結(jié)束程序。 實(shí)現(xiàn)上述功能的VB程序如下,但加框處代碼有錯(cuò)誤,請(qǐng)改正。 Dim a(1To 6)As Integer Private Sub Command1_Click ( ) Dim y As Integer,i As Integer Text1.Text=““ Randomize For i=1To 6 a(i)=Int(Rnd*33)+1 Do While And i>1 a(i)=Int(Rnd*33)+1 Loop Next i For i=1To 6 Text1.Text=Text1.Text+Str(a(i)) Next i y= Text2.Text=Str(y) End Sub Function check(m As Integer,n As Integer) As Boolean Dim j As Integer check=False For j=1To n-1 If m=a(j) Then check=True Exit For End If Next j End Function Private Sub Command2_Click ( ) End End Sub
17.某農(nóng)科所研究不同品種生豬產(chǎn)肉量比,數(shù)據(jù)利用Visual Basic 進(jìn)行數(shù)據(jù)處理,生豬的品種編號(hào)、產(chǎn)肉比等數(shù)據(jù)存儲(chǔ)在某數(shù)據(jù)庫文件中,程序運(yùn)行界面如下: 程序運(yùn)行后,在列表框List1中顯示生豬品種編號(hào)以及對(duì)應(yīng)的產(chǎn)肉比,單擊“排序”按鈕(Command1)后,在列表框List2中顯示以產(chǎn)肉比的高低,進(jìn)行降序排列后的生豬品種編號(hào)以及對(duì)應(yīng)的產(chǎn)肉比;單擊“查找”按鈕(Command2)后,在列表框List3中顯示產(chǎn)肉比相同的品種編號(hào)。 請(qǐng)?jiān)跈M線處填入合適的代碼。 Dim conn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset Dim NO(1To 20)As String‘品種編號(hào) Dim Crb(1To 20)As Single‘產(chǎn)肉比 Dim n As Integer Private Sub Command1_Click ( ) Dim i As Integer,j As Integer,t1As String,t2As Single For i=1To 19 For j=20To i+1Step-1 If①
Then t1=NO(j):NO(j)=NO(j-1):NO(j-1)=t1 t2=Crb(j):Crb(j)=Crb(j-1):Crb(j-1)=t2 End If Next j Next i List2.Clear For i=1To 20 List2.AddItem NO(i) &““& Str(Crb(i)) Next i End Sub Private Sub Command2_Click ( ) Dim s As String,k As Integer,flag As Boolean For i=1To 19 s=““ k=i s=②
flag=False For j=i+1To 20 If ③
Then s=s+“和“+NO(j) flag=True End If Next j If flag=True Then List3.AddItem s Next i End Sub Private Sub Form_Load ( ) conn.ConnectionString=“Provider=microsoft.ACE.OLEDB.12.0;Data Source=“+App.Path+“\szcrb.jye.ai“ conn.Open strsql=“select*from crb“ Set rs.ActiveConnection=conn 本過程其他代碼略 End Sub