更多"下列程序为比较排序法排序程序,请补充完该程序(该程序对10个数值数据进"的相关试题:
[填空题]下列程序是用来计算1+2+3……+10的程序段,请补充该程序。
Dim i, s, k As Integer
s =0: k = 0
For 【9】 To 1
k=k+1
s=s+ k
Next i
Print s
[单项选择]以下程序输出1到1000之间所有的偶数之和,请补充完该程序。
Private Sub Cotmand1_Click( )
Dim x As Double
For i=0 To 1000
If______ Then
x=x+ i
End If
Next i
Print x
End Sub
A. i Mod 2= 0
B. x mod 2=0
C. I mod 2<>0
D. x mod 2<>0
[填空题]下面程序是用来打印九九乘法表的,请补充完整。
Dim i As Integer,j As Integer,Strl$
Strl=" "
For i=1 To 9
Forj=1 To 9
If 【 】 Then
Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j))
Else
Strl=Strl & Chr(13)
【 】
End If
Next j
Next i
Print Str
[填空题]下列程序是判断一个整数(>=3)是否为素数,请补充完整。
Dim n As Integer
n=InputBox("请输入一个整数(>=3)")
k=Int(Sqr(n))
i=2
swit=0
While i<=k And swit=0
If n Mod i=0 Then
【 】
Else
【 】
End If
Wend
If swit=0 Then
Print n;"是一个素数。"
Else
Print n;"不是一个素数。"
End If
[填空题]以下程序用来建立一个10*10矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。
该程序运行结果见下图。
Private Sub Form_ click( )
Dim s(10, 10) As Integer
For n = 1 To 10
For m = 1 To 10
If 【12】 Or 【13】 Then
s (n, m) = 1
Else
s (n, m) = 0
End If
Next m
Next n
For n = 1 To 10
For 【14】 。
Picturel. Print Tab(m * 3); s(n, m)
Next m
Print
Next n
End Sub
[填空题]以下程序用于求s=1+(1+2)+(1+2+3)+……(1+2+……100)的和,请补充完该程序。
Dim n As Integer
Dim i As Integer
Dim j As Long
Dim s As Long
n=100
j=0
s=0
For i=1 To 【12】
J= 【13】
s= 【14】
Next i
Print s
[填空题]已知如下程序段:
Dim MyInt As Integer
Dim MyLen
MyLen=Len(MyInt)
执行以上程序段后,MyLen为______。
[单项选择]以下程序的输出结果是( )。
Dim var1
Dim var2
Dim var3
var1 = "Hello"
var2 = "World !"
var3 = var1&" "&var2
var1 = 10
var2 = 20
MsgBox var1 + var2
A. Hello World! 30
B. 30
C. 102
D. Hello World!
[单项选择]下面程序段的运算结果正确的是( )。
Dim x As Single
Dim y As Single
If x < 0 Then
y=3
Elself x < 1 Then
y=2*x
Else: y= -4 * x+6
End If
A. 当x=2时,y=-2
B. 当x=1时,y=3
C. 当x=0.5时,y=-4
D. 当x=-2.5时,y=11