30.下面的程序是求100以內奇數和S的值(S=1+3+5+7…+99),請把空缺的地方填寫完整. Private Sub Command1_Click( ) Dim S As Integer Dim I As Integer S=(1) For I=1to 100Step (2) S=S+I Next (3) Label1(4)=(5)(S)空格(5)內請填相關函數 End Sub (1)
31.某旅行團共有30個人,其中有男人、女人和小孩,他們在一家餐廳吃自助餐花去500元.已知自助餐的價格是每個男人30元,每個女人20元,每個小孩10元.問:男人、女人、小孩各為多少人.下面是解決該問題的VB程序,請在空缺的地方填寫完整. Private Sub Command1_Click( ) Dim Man As Integer,Woman As Integer,Child As Integer Dim Money As Integer,Count As Integer Count=0‘用來記錄符合條件的組合數 For Man=1To (1)(500/30) For Woman=1To (500\20) Child=(2) Money=30*Man+20*Woman+10*Child If (3) Then Count=Count+1 List1.AddItem Str(Man)+““+Str(Woman)+““+Str(Child) End If Next (4) Next (5) End Sub (1)