柠檬试题库
search
首页 计算机 公务员 驾照 关于
sum
运行下列程序，输入数据8、9、3、0后，窗体中显示结果是(　　)。 Private Sub Form_click() 　　　　Dim sum As Integer，m As Integer 　　　　sum＝0 　　　　Do 　　　　　　 m＝InputBox("输入m") 　　　　　　 sum＝sum＋m 　　　　Loop Until m＝0 　　　　MsgBox sum End Sub
在窗体中有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() 　　Dim s As Integer 　　s＝P(1)＋P(2)＋P(3)＋P(4) 　　debug.Print s End Sub Public Function P(N As Integer) 　　 Dim Sum As Integer 　　 Sum＝0 　　 For i＝1 To N 　　　　　　 Sum＝Sum＋i 　　 Next i 　　 P＝Sum End Function 打开窗体运行后，单击命令按钮，输出结果是(　　)。
在报表的组页脚区域中要实现计数统计，可以在文本框中使用函数
单击命令按钮时，下列程序的执行结果为 Private Function P(N As Integer) Static sum For I = 1 To N sum = sum + 1 Next I P = sum End Function Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Debug.Print S End Sub
窗体中有文本框为Text1、Text2和Text3。运行时在Text1中输入整数m，在Text2中输入整数n（m
窗体中有文本框Text1、Text2和Text3。运行时在Text1中输入整数m，在Text2中输入整数n（m
窗体中有文本框Text1、Text2和Text3。运行程序时，输入整数m和n（n>0），单击按钮Command1计算下列表达式的值： SUM=m+(m-1)/2+(m+2)/3+(m-3)/4+…+(m+(-1)n+1(n-1))/n 在Text3给出结果，事件代码如下： Private Sub Command1_Click() Dim sum As Double m=Val(me!Text1) n=Val(me!Text2) sum=0 For k=1 to n sum=sum+(【 】)/k Next k Me!text3=sum End Sub 程序【】处应填写的语句是：