刷题首页
题库
高中信息
题干
以下算法是用循环结构求数列1,3,5,7,9…前10项的和。完成空缺部分。(每行只能填写一个VB语句)
dim i as integer
dim a as integer
dim sum as integer
[1]
i=1
do while i<=10
[2]
sum=sum+a
i=i+1
loop
print sum
上一题
下一题
0.99难度 填空题 更新时间:2015-11-18 05:22:21
答案(点此获取答案解析)
同类题1
有如下VB程序段:
Next i
数组元素a(1)到a(5)的值依次为“1,3,4,2,3”,执行该程序段后,变量s的值为( )
A.7
B.12
C.13
D.15
同类题2
将以下程序段补充完整。
问题:输入一个正整数n,判断n是否为素数。要判断n是否为素数,最简单的方法是:统计2到n-1之间能整除n的整数个数s,若s大于0,则n不是素数,否则就是素数。根据以上方法,完善以下程序代码。
Dim n, s As Integer
n = Val(InputBox(“n=”))
s=0
For i=2 to
①
_________
If n Mod i = 0 then
s=s+1统计因数个数
End If
Next i
If
②
__________Then
Print n & “是素数”
Else
Print n & “不是素数”
End If
同类题3
用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数,其调用时需要三个参数:布尔类型参数sx来确定是升序还是降序,sx为True时为升序,否则为降序;整数型数组a()是待排序的数据,数据从a(1)开始存放;整数型参数n表示传入的数组长度,该函数的返回值也是一个整数型数组。所以调用此函数实现排序非常方便:
比如有一个整数型数组a(1 to 10)需要降序排序,可以直接这样调用:
a()=bubble_sort(False,a(),10)
该函数VB代码如下:
Function bubble_sort(sx As Boolean,a() As Integer,n As Integer) As Integer()
Dim i,j,t As Integer
For i=1 To n-1
For j=____
①
____ Step-1
If ____
②
____ Then
If a(j)<a(j-1) Then t=a(j):a(j)=a(j-1):a(j-1)=t
Else
If a(j)>a(j-1) Then t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i
bubble_sort=a()
End Function
请将代码补充完整:
①___________________________________________。
②___________________________________________。
同类题4
有以下程序段:
s = 1:j=2
Do While s<j
For j =" 2" To -2 Step -1
s = s*j
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是( )
A.1
B.4
C.5
D.6
同类题5
以下语句中错误的是( )
A.Const var1=123
B.Dim var2 As String
C.x+y=9
D.Dim d(1 to 500) As Double
相关知识点
算法理论
面向对象程序设计 VB开发工具
循环语句