【正确答案】D 10.下面程序运行后,输出的值是() Private Sub Command1_Click() J=1 While J<5 J=J+1 A=A+J*J Wend Print A End Sub
(本题分值:1分) A.25 B.16 C.29 D.54
【正确答案】D
希望与更多计算机等级考试的网友交流,
.
www.59wj.com
11.有如下程序: Private Sub FormKeyPress(KeyAscii As Integer) For m=1 To 3 For j=1 To m For k=j To 3 n=n+m+j-k Next k Next j Next m Print n End Sub 程序运行后,按任意键,n的值是()(本题分值:1分) A.3 B.14 C.9 D.20
【正确答案】【6】MDIChild 6、下面是用一个子程序求2!+3!+4!的值的程序,请完成程序。 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
End Sub
(本题分值:4分)
【正确答案】【7】2 To 4 【8】Return 7、使用Mod运算符判断变量i是否为偶数,若为偶数就把它在窗体上显示出来。使用单行结构条件语句为 。
(本题分值:2分)
【正确答案】【9】If i Mod 2=0 Then Print i 8、在运行时,MDI父窗体中的子窗体最小化时,其图标将显示在 中。
(本题分值:2分)
【正确答案】【10】MDI父窗体 9、搬砖问题:36块砖,36人搬,男的搬4块,女的搬3块,2个小儿抬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、下面的程序用于根据文本框X中输入的内容进行以下处理: 若X为2、4、6,则打印“X的值为2、4、6”;若X为3、5,则打印“X的值为3、5”;若X为7、8,则打印“X的值为7、8”;否则,打印“X不在范围内”。 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″