历年vb题目(带答案).docxVIP

历年 vb 题目整理 ( 带答案 ) 1 、算法描述 : 求的 1~100 注 :请不要更改原程序结构 Function func() (1) i As Integer func = (2) For i = 2 To 100 Step func = func + i Next i End Function  之间所有偶数的与 ,删除 (1) 、(2) 、 (3), 并在对应位置填写正确的代码 dim 0 (3) 2 2 、操作要求 : 顺序查找单词“ name ” : 输入 10 个不同的单词给数组 , 查找单词“  name  ”就是否在数组中  ; 如果在  ,输出单词在数 组中的位置 ,否则 ,输出“不在数组中” 。 Sub main() Dim i As Integer Dim buzai As Boolean 定义数组 d,下界为 1, 上界为 10, 数据类型为 string, 在 dim 后完善语句 Dim (1) d(1 To 10) As String 输入 10 个单词 ,在 for 语句后完善 i 的初始值与终值 For i =(2) 1 to 10 输入每个单词给数组元素 ,在赋值号左侧添加变量 (3) = InputBox(Please input word i) d(i) Next i buzai = True i =