(程序说明) 计算下列算式的值。a，Ai为正整数，从键盘输入。其小∑Ai＝1+2…+ Ai，Ai!＝1 *2*3*Ai(i＝1，2… a)。

(程序)

SET TAIK OFF

C．LEAR

INPUT“M＝”TO M

STORE 0 TO S1，S2

F．OR I=1 TO M(8)

D．O SUB1

D．O SUB2

E．NDFOR

? ” 所求算式的值为：“+ALLTRIM(STR(S1/S2，15，3))

SET TALK ON

PROCEDURE SUB1(9)

F．OR R＝1 TO A

K＝K+R

E．NDFOR(10)

RETURN

PROCEDURE SUB2(11)

F．OR P＝1 TO A

T=T*P

E．NDFOR(12)

RETURN(8)

A．INPUT“A＝”TO A

B．INPUT“I=”TO I

C．INPUT“R=”TO STR(R)

D．INPUT“K＝”TOK

[单选题]某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结

[试题]（ 6 ） 下面程序的功能是从键盘输入 1 大于 100 的整数 m ，计算并输出满足不等式1+22+32 +42 + …… .+n2<m的最大的 n 。请填空Private Sub Command1__Click （）D．im s ,m,n AS Integerm=Val （ InputBox （ “ 请输入一个大于 100 的整数 ” ））n=_________s=0D．o While s<mn=n+1s=s+n*nLoopPrint “ 满足不等式的最大 n 是_____E．nd

[试题]（ 9 ） 下面的程序执行时 ， 可以从键盘输入一个正整数 ， 然后把该数的每位数字按逆序输出 。 例如 ： 输入 7685 ，则输出 5867 ，输入 1000 ，则输出 0001 。请填空。Private Sub Command1_Click()D．im x As Integerx=InputBox( “ 请输入一个正整数 ” )While x>_ _[11] ___Print x Mod 10;x=x/10WendPrint__ [12] __E．nd Sub

[主观题]阅读以下说明和流程图，回答问题。[说明]从键盘输入一个高精度正整数n，去掉其中s个数字后按原左右次序再组成一个新的正整数。对给定的n，要寻找一种方案，使得余下的数字组成的新数最小。算法分析：每次删除一个数字，选择一个使余下的数最小的数字作为删除对象。当s=1时，在n中删除哪一个数字能达到最小的目的?从左到右每相邻的两个数字比较：若出现减，郎左边大于右边，则删除左边的大数字；若不出现减，即所有数字全部升序，则删除最右边的大数字。当s＞l(当然小于n的位数)，按上述操作一个一个删除，删除一个达到最小

[试题]下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5 8 6 7；输人1000，则输出0 0 0 1。请填空。 Private Sub Command1_Click Dim x As Integer X=InputBox(“请输入一个正整数”) While x> (11) Print x Mod 10； x=x＼10 Wend Print (12) End Sub

[单选题](程序说明)从键盘输入学生的学号，在“成绩”表中计算该生的平均成绩，并说明成绩的档次(优、良、中、及格和不及格)，如果该生不在表中则提示相应的信息。(程序)SET TALK OFFC．LEARUSE 成绩A．CCEPT“请输入学生的学号：” TO XH(1)IF (2)?“查无此人!”E．LSE(3) 成绩TO CJ FOR 学号＝XHD．O CASEC．ASE CJ＞=90D．C=“优”C．ASE CJ＞＝80D．C＝“良”C．ASE CJ＞＝70D．C=“中”C．ASE CJ＞＝60D．C＝

[问答题] 计算分段函数：X的值从键盘输入，Y的值送显示器输出。

[单选题](程序说明)程序功能是比较从键盘输入的若干个数的大小，并输出其中的最大和最小值。(程序)SET TALK OFFC．LEAINPUT“M=” TO M(4)D．O WHILE .T.INPUT“N＝” TO N(5)D．＝NE．NDIFIF X＞N(6)E．NDIFYN＝“A”(7)WAIT“是否继续输入(Y—继续/N—结束)”TO YNE．NDDO(8)E．XITE．NDIFE．NDDO?“最大的数是：”，D?“最小的数是：”，XSET TALK ON(4)A．STORE M，0 TO D，X

[多选题] 键盘输入程序应该具有（）功能。A . 单次响应B . 去除键抖动C . 辨别键值D . 辨别有无键闭合

[问答题] 计算分段函数：A，B的值从键盘输入，Y的值送显示器输出（∧表示“并且”，∨表示“或者”）。