6、下面是用一個(gè)子程序求2!+3!+4!的值的程序,請(qǐng)完成程序。 Private Sub Command1_Click() s=0 For t= GoSub 200 s=s+p Next t Print ″2!+3!+4!=″;s Exit Sub 200:p=1 For k=1 To t p=p*k Next k
9、搬磚問題:36塊磚,36人搬,男的搬4塊,女的搬3塊,2個(gè)小兒抬1塊,要求1次全部搬完,問需男、女、小兒各多少人? Private Sub Command1_Click() For Male=1 To 9 For Female=1 To 12 For Boy=1 To 36 Step 2 If Boy+Female+Male=36 And Then Print Male,Female,Boy End If Next Boy Next Female Next Male End Sub
(本題分值:2分)
【正確答案】【11】Male*4+Female*3+Boy/2=36
10、下面的程序用于根據(jù)文本框X中輸入的內(nèi)容進(jìn)行以下處理: 若X為2、4、6,則打印“X的值為2、4、6”;若X為3、5,則打印“X的值為3、5”;若X為7、8,則打印“X的值為7、8”;否則,打印“X不在范圍內(nèi)”。 Private Sub Command1_Click() Select Case Val(X.Text) Case Print ″X的值為2、4、6″ Case Print ″X的值為3、5″ Case Print ″X的值為7、8″