Question

信息技术考试以下VB模拟题答案

注意事项
'在提示语句后完善程序，共5条
'保存工程

Sub main()
Dim i As Integer
Dim buzai As Boolean
'定义数组d,下界为1,上界为10,数据类型为string，在dim后完善语句
Dim

'输入10个单词，在for语句后完善i的初始值与终值
For i =

'输入每个单词给数组元素，在赋值号左侧添加变量
= InputBox("Please input word " & i)

Next i
buzai = True
i = 0
While buzai = True And i < 10
'顺序查找单词，数组下标增1，在赋值号右侧添加表达式
i =

'判断数组元素是否为单词"name",在if语句后添加判断条件
If Then

buzai = False
End If
Wend
If buzai = False Then
MsgBox "在数组中的位置为：" + Str(i)
Else
MsgBox "不在数组中"
End If
End Sub

' 算法描述：求的1~100之间所有偶数的和
'注意事项：
' 1、请在 func() 函数中实现算法，返回算法结果
' 2、请不要修改 Main() 过程
' 3、完成后保存并提交。
'注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码
'
Function func()
(1) i As Integer
func = (2)

For i = 2 To 100 Step (3)

func = func + i

Next i

End Function
'
' 请不要修改 Main() 过程 ！
'
Sub Main()
If Command = "assess" Then

'Open "in.txt" For Input As #1
'Line Input #1, n
'Close #1

Open "out.txt" For Output As #1
Print #1, func()
Close #1

Else

'n = InputBox("Please input the value ", "Input", "1")
MsgBox func()

End If
End Sub

Answer 1

1、d(1 to 10) as string
2、1 to 10
3、d(i)
4、i+1
5、d(i)="name"

（1）、dim
（2）、0
（3）、2