柠檬试题库
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 程序【】处应填写的语句是:
随机标签
a+b
生日
相同
汇编语言
位图