历年vb题目整理(带答案)

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 mand = "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)添加一个命令按钮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 Then

func = (1) abs(3*x+1)

Else

func = (2) 4*x+1

End If

End Function

6、操作要求: 打开“C:\MyExam\工程1、vbp”补充完成程序并保存！该程序得功能就是:从键盘上输入两个数a与b,比较a与b得大小,并输出较小得数。

Function func(a, b)

If (1) Then a

func = a

Else

If (2) Then a>b

func = b

Else

func = "两数相等"

End If

End If

End Function

7、操作要求: 输入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 Function

Sub Main()

If mand = "assess" Then

Open "in、txt" For Input As #1

Line Input #1, a

Line Input #1, b

Line Input #1, c

Close #1

Open "out、txt" For Output As #1

Print #1, f(a, b, c)

Close #1

Else

a = InputBox("请输入 a", "Input")

b = InputBox("请输入 b", "Input")

'请完成变量c得输入语句

(3) c = InputBox("请输入 c", "Input")

MsgBox f(a, b, c)

End If

End Sub

8、操作要求: 打开“C:\MyExam\工程1、vbp”补充完成程序并保存！该程序得功能就是: 求实数x得绝对值。

Function func(x)

If x >= 0 (1) then

func = x

Else

func = (2) -x