【简答题】【消耗次数：1】
已知函数 。下面是实现计算该函数的程序，请填空完成以下程序。
Private Sub Command1_Click()
Dim k As Integer, i As Integer, s As Long
n = 5 : k = 1
For i = 1 To n
s = s +[填空]
Next i
Print s
End Sub
Function pow(a As Integer, b As Integer) As Long
Dim i As Integer, t As Long
t = 1
For i = 1 To a
[填空]
Next i
pow = t
End Function
参考答案：
复制
纠错
相关题目
【简答题】
下列程序段的运行结果是[填空] 。
Private Sub Form_Click()
Dim a(3) As Long
a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4
j = 1
For i = 3 To 0 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
【单选题】
设有如下程序：
Option Base 0
Private Sub Form_Click()
??? Dim a
??? Dim i As Integer
??? a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
??? For i = 0 To 3
??????? Print a(5 - i);
??? Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是？
①
6?5?4 3
②
5?4?3?2
③
4?3?2 1
④
7?6?5?4
【单选题】
下列程序段的循环结构执行后，i的输出值是_______。
Dim y as Integer
For i = 1 To 10 Step 2
y = y + i
Next i
Print i
①
25
②
10
③
11
④
因为y初值不知道，所以不确定
【单选题】
窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1_Click()
Dim m(10) As Integer
For k = 1 To 10
m(k) = 12 - k
Next k
x = 8
Print m(2 + m(x))
End Sub
运行程序，单击命令按钮，在窗体上显示的是 。
①
6
②
5
③
7
④
8
【单选题】
设执行以下程序段时依次输入1、3、5，执行结果为______。
??? Dim a(4) As Integer, b(4) As Integer
??? For K = 0 To 2
??????? a(K + 1) = Val(InputBox(请输入数据))
??????? b(3 - K) = a(K + 1)
??? Next K
??? Print b(K)
①
0
②
3
③
5
④
1
【简答题】
有如下程序段：
For i=1 To 3
For j=5 To 1 Step -1
Print i*j
Next j
Next i
程序运行后，语句print i*j的执行次数为[填空]。
【简答题】
以下程序的运行结果是[填空1]。 #include stdio.hvoid main(){int i=1,s=1;do{s+=i++;if (s%7==0)continue;else++i;} while (sprintf(%d\n}
【简答题】
以下程序的运行结果是[填空1]。 #include stdio.hvoid main(){int i=1,s=8;do{s+=i++;if (s%7==0)continue;else++i;} while (sprintf(%d\n}
随机题目
【单选题】
接通起动开关时，起动机能带动发动机正常转动，但是不能够起动发动机让其工作，有时候伴随着车的迹象。采用调火方法进行判断时，可见高压火为黄红色，造成这一现象的原因是
①
点火线圈性能劣化
②
叶片式空气流量传感器损坏
③
曲轴位置传感器无信号
④
不能判断原因
【单选题】
下列叙述正确的是( A )
①
局域网是指一个有限区域内连接的计算机网络
②
数据总线是独立模块运行数据的通道
③
多数传输是在不同通道或线路上同时传输多余信息
④
CAN 协议支持两种报文格式，即标准格式和扩宽格式