题目内容

执行如下程序段后，intsum的值为【13】。 Private Sub Command1_Click() sum=0 For i=1 To 18 Step 2 For j=2 To 6 If(i Mod j)＜＞0 Then sum=sum+j Next Next Print sum End Sub

查看答案

搜索结果不匹配？点我反馈

更多问题

设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8：s=0 Do s=s+n:n=n-1 Loop While n＞0 Print s End Sub 以上程序的功能是计算1到8的和。程序运行后，单击窗体，输出结果为【12】。

下面程序的功能是计算给定正整数序列中奇数之和y与偶数之和x，最后输出x平方根与 y平方根的乘积。请在画线处填上适当的内容使程序完整。 Private Sub Form_Click() a=Array(3，6，8，11，64，13，24，9，42，35，22) y=Fun1(a) print y End Sub Private Function Fun1(b) x=0：y=0 for k=0 to 10 If 【9】 Mod 2=0 then x=x+b(x) else y=y+b(x) End If Next Fun1=Sqr(x)*Sqr(y) End Function

紫雪丹长于（）

A. 化痰开窍，消肿止痛
B. 清热解毒豁痰
C. 芳香开窍，化浊
D. 息风止痉
E. 芳香开窍，温中

至宝丹长于（）

A. 化痰开窍，消肿止痛
B. 清热解毒豁痰
C. 芳香开窍，化浊
D. 息风止痉
E. 芳香开窍，温中