1、算法描述:求得1~100之间所有偶数得与'注:请不要更改原程序结构,删除(1)、(2)、(3),并在对应位置填写正确得代码'Function func()(1) i As Integer dimfunc = (2)0For i = 2 To 100 Step (3)2func = func + iNext iEnd Function2、操作要求: 顺序查找单词“name” :输入10个不同得单词给数组,查找单词“name”就是否在数组中;如果在,输出单词在数组中得位置,否则,输出“不在数组中”。
Sub main()Dim i As IntegerDim 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 ibuzai = Truei = 0While buzai = True And i < 10'顺序查找单词,数组下标增1,在赋值号右侧添加表达式i =(4) i+1'判断数组元素就是否为单词"name",在if语句后添加判断条件If (5) Then d(i) = "name"buzai = FalseEnd IfWendIf buzai = False ThenMsgBox "在数组中得位置为:" + Str(i)ElseMsgBox "不在数组中"End IfEnd Sub3、小王今年26岁,资助了一名贫困大学生,'她想从明年开始每年比上一年多资助一名贫困大学生。
'编程求解小王到多少岁,就能资助到n名甚至更多大学生？Function func(n)stu = 1age = 26'请完善下面两条语句Do While stu < Val(n)age = age + (1) 1stu = (2) + age – 25 stuLoopfunc = ageEnd FunctionSub Main()If mand = "assess" ThenOpen "in、txt" For Input As #1Line Input #1, nClose #1Open "out、txt" For Output As #1Print #1, func(n)Close #1Else'请完善大学生数n得输入语句(3) = InputBox("请输入大学生数 n:", "Input") nMsgBox func(n)End IfEnd Sub4、操作要求:设计一个VB学习指导程序得窗口运行界面,界面设计如下图。
要求(1)打开“C:\MyExam\工程1、vbp”,设置窗体Form1属性值:将该窗体标题命名为“VB学习指导”;(2)添加一个标签控件Label1,并设置如下属性值:该控件填充内容“VB学习指导”;字体为隶书,字形为粗体,字号为三号,字体颜色为调色板中第5行第7列,并居中对齐; (3)对标签控件Label2(请输入口令:),设置如下属性值:根据字体大小自动调整;(4)添加一个文本框控件Text1,并设置如下属性值:文本框高度为650,宽度为2215;文本框内容为空;(5)添加一个命令按钮Option2,并设置如下属性值:将该按钮标题命名为“退出”;字体为黑体,字号为四号;按钮宽度1575,高度735;(5)保存并提交。
5、操作要求:打开"C:\MyExam\工程1、vbp”,补充完成程序。
实现当从键盘上输入x得值后,求函数y得值(当x<0时,y=|3x+1|;当x>=0时,y=4x+1)。
如:输入-2后,输出结果:5、Function func(x)If x < 0 Thenfunc = (1) abs(3*x+1)Elsefunc = (2) 4*x+1End IfEnd Function6、操作要求: 打开“C:\MyExam\工程1、vbp”补充完成程序并保存！该程序得功能就是:从键盘上输入两个数a与b,比较a与b得大小,并输出较小得数。
Function func(a, b)If (1) Then a<bfunc = aElseIf (2) Then a>bfunc = bElsefunc = "两数相等"End IfEnd IfEnd Function7、操作要求: 输入a、b、c得值,判断一元二次方程 ax^2+bx+c=0就是否有解,如果无解则输出“无解” ,如果两个解相同则输出“两解相同”,否则输出“两解不同”。
Function f(a, b, c)'请完成其它得判断语句If b * b - 4 * a * c < 0 Then f = "无解"If b * b - 4 * a * c = 0 Then (1) f="两解相同"(2) If b * b - 4 * a * c > 0 Then f = "两解不同" End FunctionSub Main()If mand = "assess" ThenOpen "in、txt" For Input As #1Line Input #1, aLine Input #1, bLine Input #1, cClose #1Open "out、txt" For Output As #1Print #1, f(a, b, c)Close #1Elsea = InputBox("请输入 a", "Input")b = InputBox("请输入 b", "Input")'请完成变量c得输入语句(3) c = InputBox("请输入 c", "Input")MsgBox f(a, b, c)End IfEnd Sub8、操作要求: 打开“C:\MyExam\工程1、vbp”补充完成程序并保存！该程序得功能就是: 求实数x得绝对值。
Function func(x)If x >= 0 (1) thenfunc = xElsefunc = (2) -x(3) end ifEnd Function9、操作要求: 打开“C:\MyExam\工程1、vbp”进行以下操作后并保存！填空完成程序,计算N!得值并在窗体上打印出结果,如输入:3,则输出:6。
(注:N!=1×2×…×N) Function func(n)Dim i As Integer(1) func=1For i = 1 To (2) nfunc = func * i '计算N!Next iEnd Function10、操作题:“提示信息”界面设计,如下图所示,要求(1)打开“C:\MyExam\工程1、Vbp”,对窗体Form1设置如下属性值:窗体标题为“提示信息”;背景色为调色板第1行第7列。
(2)添加一个标签控件Label,并设置如下属性值:标签标题为“要继续吗？”(注:“？”为中文标点符号);标签高度为495,宽度为1935;字体为楷体_GB2312,字形为常规,字号为三号,字体颜色为调色板第5行第8列,背景类型为0。
(3)添加一个按钮控件mandButton,并设置如下属性值:按钮标题为“否”;字号为小四。
(4)保存并提交。
11、操作要求:输入10位同学得英语成绩存放在数组score中,利用选择排序算法按照从大到小得顺序进行排序。
' 算法描述:'输入10位同学得英语成绩存放在数组score中'利用选择排序算法按照从大到小得顺序进行排序'定义数组score,下界为1,上界为10,数据类型为SingleDim (1) score(1 To 10) As SingleFunction f()'i为排序得次数,应该排序9次,为i添加初值与终值For i =(2) 1 To 9Min = score(i): m = i'j为每次排序得数得范围,应从i+1开始直到第10个数,为j添加初值与终值For j =(3) i + 1 To 10If score(j) > Min Then Min = score(j): m = jNext j'以k为中间变量,编写交换score(i)与score(m)得语句k = score(i)score(i) = score(m)(4) score(m) = kNext ist = "排序后得数列为:"For i = 1 To 10st = st + Str(score(i)) + " "Next if = stEnd FunctionSub Main()Dim i As Integer, m As Integer, k As Integer, j As IntegerDim st As StringIf mand = "assess" ThenOpen "in、txt" For Input As #1Dim x As StringFor i = 1 To 10Line Input #1, xscore(i) = Val(x)Next iClose #1Open "out、txt" For Output As #1Print #1, f()Close #1ElseFor i = 1 To 10'输入10位同学得英语成绩,在赋值号左侧添加变量(5) = InputBox("请输入第" & i & "个数据") score(i)Next iMsgBox f()End IfEnd Sub12、购物问题:购物满1000元,打7折,800到1000元,打8折,500到800元,打9折。