原创力文档- 1、本文档共8页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
1、算法描述：求的1~100之间所有偶数的和
注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码
Function func()
(1) i As Integer dim
func = (2) 0
For i = 2 To 100 Step (3) 2
func = func + i
Next i
End Function
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 = 0
While buzai = True And i 10
顺序查找单词，数组下标增1，在赋值号右侧添加表达式
i =(4) i+1
判断数组元素是否为单词name,在if语句后添加判断条件
If (5) Then d(i) = name
buzai = False
End If
Wend
If buzai = False Then
MsgBox 在数组中的位置为： + Str(i)
Else
MsgBox 不在数组中
End If
End Sub
3、小王今年26岁，资助了一名贫困大学生，
他想从明年开始每年比上一年多资助一名贫困大学生。
编程求解小王到多少岁，就能资助到n名甚至更多大学生？
Function func(n)
stu = 1
age = 26
请完善下面两条语句
Do While stu Val(n)
age = age + (1) 1
stu = (2) + age – 25 stu
Loop
func = age
End Function
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(n)
Close #1
Else
请完善大学生数n的输入语句
(3) = InputBox(请输入大学生数 n:, Input) n
MsgBox func(n)
End If
End Sub
4、操作要求:
设计一个VB学习指导程序的窗口运行界面，界面设计如下图。要求
（1）打开“C:\MyExam\工程1.vbp”，设置窗体Form1属性值：
将该窗体标题命名为“VB学习指导”；
（2）添加一个标签控件Label1，并设置如下属性值：
该控件填充内容“VB学习指导”；
字体为隶书，字形为粗体，字号为三号，字体颜色为调色板中第5行第7列，并居中对齐；
（3）对标签控件Label2（请输入口令：），设置如下属性值：
根据字体大小自动调整；
（4）添加一个文本框控件Text1，并设置如下属性值：
文本框高度为650，宽度为2215；
文本框内容为空；
（5）添加
文档评论（0）