刷题首页
题库
高中信息
题干
下列程序运行后的输出结果是[ ]
DIM A(6) AS INTEGER
FOR I= 1 TO 6
A(I)= I
NEXT I
PRINT A(I)
A.0
B.6
C.7
D.显示出错信息
上一题
下一题
0.99难度 选择题 更新时间:2019-09-12 12:53:25
答案(点此获取答案解析)
同类题1
下图是当循环、直到循环两种循环结构,请结合下图选择下列说法中正确的是 ( )
A.当循环是当条件成立退出循环
B.当循环不可能出现不执行循环步骤的情况
C.直到循环是条件成立时执行循环步骤
D.直到循环至少执行一次循环步骤
同类题2
由“For k="35" To 0 Step 3 : Next k ”循环语句控制的循环次数是_______。
A.12
B.0
C.-10
D.-11
同类题3
某校有100个学生的期末成绩存储在数据库中,并已经按学号升序排序,学号编号从1到100。现要求找出成绩最高的学生的得分。如果有多个符合要求的学生,只输出学号排在前面的。小吴为此编写了VB程序,程序运行时,单击按钮Command1后,在文本框Text1中输出最大成绩。实现上述功能的VB代码如下,请补全代码。
Dim a(1 To 100) As Single '依次存储100个学生成绩
Const n = 100
Private Sub Form_Load()
'本过程从数据库中读取1到100号学生成绩,并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As single
max =
①
(1分)
For i =" 2" To n
if
②
(2分)
Next i
Text1.Text = "成绩最高分是:" + Str(max)
End Sub
(1)程序中①画线处应填入
。
(2)程序中②画线处应填入
。
同类题4
随机产生10个12,20间的随机整数放在A数组中,打印最大的和最小的.请完善程序
PRIVATE SUB FORM_CLICK( )
________
1
MAX=0: MIN=21
FOR I= 1 TO 10
A(I)=________2
IF ________
3
THEN MAX=A(I)
IF ________4THEN MIN=A(I)
NEXT I
PRINT “最大数是”;MAX ,”最小数是” ;MIN
END SUB
同类题5
本程序的功能是:输入一个字符串,将该字符串反向输出。例如,输入:abcdefgh 输出:hgfedcba。请将下列程序补充完整。
Dim s1 As String, s2 As String
Dim c As Integer, i As Integer
s1 = InputBox("请输入一串字符")
s2 = ""
c = Len(s1)
For i = ____________________
s2 = Mid(s1, i, 1) + s2
Next i
Print s2
(函数功能提示)
(1)函数Len(x)的功能是:取字符串x的长度值(即字符个数值)。
若x="abc",则Len(x)的值为3。
(2)函数Mid(x,y,z)的功能是:在字符串x中第y个字符开始取z个字符。
若x="abcdefg",则 Mid(x,4,3)取得的值是"def"。
程序空白处应填写的语句是:_________________________________
相关知识点
算法理论
面向对象程序设计 VB开发工具
循环语句