下载文档原格式
VB期末考卷——城市学院一、选择题（每题2分，共20分）1. Visual Basic中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()2. 在Visual Basic中，下列哪个语句用于声明一个整型变量？A. Dim a As IntegerB. Dim a As IntC. Dim a As RealD. Dim a As NumberA. New()B. Create()C. Make()D. Build()4. 在Visual Basic中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. UnloadA. LabelB. TextBoxC. ComboBoxD. PictureBox6. 在Visual Basic中，下列哪个操作符用于取模运算？A. %B. /C. \D. &A. Round()B. Int()C. Fix()D. Ceiling()8. 在Visual Basic中，下列哪个语句用于退出Sub过程？A. Exit SubB. End SubC. ReturnD. StopA. ListBoxB. ComboBoxC. ListViewD. TreeView10. 在Visual Basic中，下列哪个关键字用于声明一个常量？A. ConstB. DimC. StaticD. Public二、填空题（每题2分，共20分）1. Visual Basic中，用于声明变量的关键字是______。
2. 在Visual Basic中，______函数用于返回当前日期。
3. 在Visual Basic中，______语句用于无条件结束当前过程的执行。
4. 在Visual Basic中，______事件在按钮被时发生。
5. 在Visual Basic中，______方法用于打开一个已存在的文件。
诚信应考 考出水平 考出风格浙江大学城市学院2009 — 2010 学年第二学期期末考试试卷《 VB 程序设计基础与实验 》开课单位： 计算分院 ；考试形式：闭卷；考试时间： 2010 年 7 月 1 日 所需时间：120 分钟一、单选题(本大题共 18 题，每题 2 分，共 36 分。
)二、程序填空题(本大题共 1 题 5 空，每空 2 分，共 10 分。
) (1) (2) (3) (4)三、程序阅读题(本大题共 6 题，每题 4 分，共 24 分)第1题:第2题:第3题: 第4题: 第5题:第6题:第1题： .第2题： .第3题： .2009 — 2010 学年第二学期期末考试试卷《VB程序设计基础与实验》开课单位：计算分院；考试形式：闭卷；考试时间：2010 年 7 月 1 日所需时间：120 分钟一、单选题（36%，每小题2分）1．Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是。
A．属性、控件和方法B．属性、事件和方法C．窗体、控件和过程D．控件、过程和模块2．函数(Int(45 * Rnd) + 5) * 2的值是在___范围内的偶数？A．[0,100] B．[0,98] C．[10,100] D．[10,98]3．哪一条语句执行后将会删除文本框Text1中的文本？A．Text1.Text=””B．Text1.SelText=””C．Text1.Clear D．Text1.SelText.Clear4．下列各组函数中，函数值类型相同的一组是。
A．Exp(x)、Chr(x)、Lcase(x) B．Asc(x)、Str(x)、Rtrim(x) C．Sgn(x)、Int(x)、Len(x) D．Fix(x)、Left(x)、Ucase(x) 5．先声明Dim X As String*10，再赋值X=”浙江”，最后Len(X)的值为。
A．10 B．2 C．4 D．126．判断变量x、y中有且只有一个为0的下列各表达式中，正确的是。
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
VB期末考试上机题编程答案1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在D盘的VBTest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击"查找"按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：Private Sub Command1_Click()Dim i As Integer, a As IntegerFor i = 1000 To 9999If k(i) Then List1.AddItem i: a = a + 1Next iText1.Text = aEnd SubPrivate Sub Command2_Click()List1.ClearText1.Text = ""End SubPrivate Sub Command3_Click()EndEnd SubPrivate Function k(n As Integer) As IntegerDim i As Integer, a As Integer, s1 As Integer, s2 As IntegerDim s As Strings = CStr(n)For i = 1 To Len(s) / 2s1 = s1 + Mid(s, i, 1)s2 = s2 + Mid(s, Len(s) + 1 - i, 1)Next iIf s1 = s2 Then k = TrueEnd Function2. 新建一个工程，编写求某一自然数因子和的程序。
浙江大学城市学院2004-2005学年第二学期《Visual Basic 程序设计》期末考试试卷时间: 2005年7月8日8:30--10:30 注: 将试题一至试题三的答案涂写在答题卡上，将试题四、试题五的答案填写在答卷上，否则作无效处理。
试题一、判断题（每小题1分，共10分）1. B2. B3. B4. A5. A6. B7. A8. A9. A 10. A 试题二、单选题（每小题2分，共20分）11. B 12. A 13. C 14. A 15．D 16. C 17. C 18. D 19. D 20. A 试题三、程序填空题（每空2分，共20分）21．B 22. D 23. A 24. B 25. D 26. C 27. B 28. A 29. A 30. C 试题四、程序阅读题(每小题5分，共20分) 1. 0 2. Z C 3. 1 1 2 1 U C 1 1 2 123 C U 1 2 2 2 CZ 2 2 34.试题五、程序设计题（每小题各10分，共30分）1. 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入n ，按下式计算s 并以标签控件Label1显示s 的值。
Private Sub Command1_Click()Dim s As Single, f As Integer, p As Single, n As Integer, i As Integern = InputBox("请输入n")s = 0f = -1p = 1For i = 1 To nf = -fp = p / is = s + f * i * p!)1(!44!33!2211n n s n +-+⋅⋅⋅+-+-=Label1.Caption = "s=" & sEnd Sub2. 编制通用函数过程fMax，求出Single类型一维数组所有元素的最大值。
计算机vb期末考试题及答案计算机VB期末考试题及答案一、选择题（每题2分，共20分）1. VB中的变量声明关键字是：A. DimB. DeclareC. VarD. Let答案：A2. 下列哪个不是VB中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 模块结构答案：D3. VB中的数组声明方式是：A. Dim arr(10) As IntegerB. Dim arr = New Integer(10)C. Dim arr = Array(10)D. Dim arr = New Integer[10]答案：A4. 在VB中，以下哪个是正确的函数调用方式？A. Call Print("Hello World")B. Print("Hello World")C. Call Print "Hello World"D. Print "Hello World"答案：B5. 下列哪个是VB中的事件？A. SubB. FunctionC. EventD. Property答案：C...二、填空题（每空2分，共20分）1. 在VB中，使用________关键字声明常量。
答案：Const2. 一个VB程序的入口点是________过程。
答案：Sub Main3. 在VB中，使用________关键字定义类。
答案：Class4. VB中的________属性用于设置控件的可见性。
答案：Visible5. 在VB中，使用________方法可以清空文本框中的内容。
答案：Clear...三、简答题（每题10分，共20分）1. 简述VB中的类和对象的区别。
答案：类是一个模板，定义了对象的结构和行为，但本身不包含数据。
对象是根据类创建的具体实例，包含数据和行为。
2. 解释VB中的继承概念。
答案：继承是面向对象编程中的一个特性，允许一个类（子类）继承另一个类（父类）的属性和方法，而无需重新编写代码。
实验十、上机综合练习浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验十、上机综合练习学生姓名专业班级学号实验成绩指导老师（签名）日期一. 实验目的和要求掌握基本设计程序的能力，能使用条件语句、循环语句和数组解决一般的数据处理及应用问题；掌握常用算法（求平均值，求最大最小值，排序，产生任意随机数等）。
二. 实验内容和原理【练习10-1】从键盘输入两个正整数，判定其中一个是否能整除另一个；【练习10-2】从键盘输入n，计算s=1-5+9-13+17-…+(4n+1)的值；【练习10-3】产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出；Private Sub Form_Click()Dim a(30) As Integer, k As Integer, t As IntegerFor i = 1 To 30a(i) = Int(Rnd * 90) + 10Next iFor i = 1 To 29k = iFor j = i + 1 To 30If a(k) > a(j) Then k = jNext jIf i <> k Thent = a(i)a(i) = a(k)a(k) = tEnd IfNext iFor i = 1 To 30If a(i) Mod 2 = 1 Then Print a(i);Next iEnd Sub【练习10-4】求二维数组a（m,n）中的最大值以及最大值所在的行号和列号，行数m、列数n 及数组元素从键盘输入；Public Sub form_click()Dim x() As Integer, m As Integer, n As IntegerDim i As Integer, j As Integer, max As Integer, imax As Integer, jmax As Integerm = InputBox("输入数组的行数：")n = InputBox("输入数组的列数：")ReDim x(m, n)For i = 1 To mFor j = 1 To nx(i, j) = InputBox("输入数组元素:")Next j, imax = x(1, 1)imax = 1jmax = 1For i = 1 To mFor j = 1 To nIf x(i, j) > max Thenmax = x(i, j)imax = ijmax = jEnd IfNext j, iPrint "最大值:"; maxPrint "最大值所在的行号和列号:"; imax; jmaxEnd Sub【练习10-5】产生k个互不相等的三位正整数。
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
2010年重修上机测试题
1.编写计算下列函数的程序，结果在窗体上打印出来。
自变量x ，y 的值用InputBox 函数输入。
⎪⎩⎪⎨⎧>>-<<+=其他
00,00,062),(y x y
x y x y x y x f
2.从键盘上输入月份的值（即1-12之间的整数），打印出该月份的季节。
12月、1月和2月为冬季，3月、4月和5月为春季，其余类推。
例如，输入7，则打印出SUMMER 。
3. 设sum=11×22×32×…×n2，求sum 不大于100000时最大的n 。
4. 在窗体上输出1900——2010年之间哪些年是闰年，每行5个。
闰年判断条件： 年份能被4整除但不能被100整除，或者年份能被400整除。
5．换零钱问题。
如果要将一元人民币换成零钱（换成1分，2分，5分），分别有哪些换法？
6. 从键盘输入一行字符，分别统计出其中字母、数字和其他字符的个数。
7. 编程输出下列图案，层数n 由键盘输入。
(27>n>0)
*
***
*****
*******
8．编程，在窗体的单击事件中完成：随机产生100个三位正整数，按从大到小的顺序在窗体上输出，每行5个。
9．随机产生10个任意的两位正整数，放入一数组中，求出它们的最大值、最小值和平均值。
在窗体上显示整个数组的原值和结果。
10. 编写计算阶乘的Function 函数过程，单击窗体时计算下列表达式的值并在窗体上输出。
要求：用输入对话框输入M 和N （M ≥N ≥0）。
)!(!!
N M N M
11．编程输出2~100之间的所有素数，每行显示10个数据。
12．设计一个根据摄氏温度求对应的华氏温度的程序。
在Text1中输入摄氏温度后，单击“计算”按钮，右文本框内显示出该摄氏温度对应的华氏温度；单击“清除”按钮使得2个文本框的内容被清除；单击“退出”按钮结束程序运行。
计算公式：F=9C/5+32，其中C 表示摄氏温度，F 表示华氏温度。
13．根据所输入的百分制成绩score ，给出相应的五级计分等级，即“优秀” (score>=90)，“良好”(80<=score<90)，“中”(70<=score<80)，“及格”(60<=score<70)，“不及格”(score<60)。
给出如下的程序运行界面，请编程完成。
14．设计一个银行帐务处理初始界面，检查口令的程序。
用于输入密码的文本框的长度为6个字符。
程序运行后，帐号已刷卡确定，不能修改，在第二个文本框中输入密码，单击“确定”按钮，检查密码是否正确。
若正确，则进入第二个窗体；否则显示一个信息框，重新输入，这样允许重输三次，超过三次，则结束程
序。
15．设计一个简易的文本编辑器，参考以下界面，可以对文本进行剪切、复制和粘贴操作。
这些操作通过ClipBoard实现。
16．编程，为图片框控件加载汽车图片，命令按钮Command1的标题初态为“前进”，按该按钮时：若标题为“前进”，则图片向左移动，当图片移到窗体的左边沿时，将按钮标题改为“倒车”；若标题为“倒车”，则图片向右移动，当图片移到窗体的右边沿时，将按钮标题改为“前进”。
提示程序如下：
Private Sub Command1_Click()
If Command1.Caption = "倒车" Then
Picture1.Left = Picture1.Left + 100
Else
Picture1.Left = Picture1.Left - 100
End If
…
…
End Sub
17.窗体上放置一图片框，通过鼠标在图片框内的拖动画红色的实心圆。
鼠标左键按下点为圆心，鼠标左键释放点到鼠标按下点所拖动的距离为半径。
18. 创建一个窗体、一个图片框及三个单选框，实现完成以下操作：
（1）当单击“装入图片”单选框时，将C盘WINDOWS文件夹下的clouds.bmp 文件装到图片框中。
（2）当单击“清除并显示”单选框时，清除图片框中的图片，并以字号为40，颜色为红色在图片框中显示文字“欢迎使用”。
（3）当单击“画圆”单选框时，清除图片框中的文字，并以不超过1000缇的任意数作为半径，在图片框内产生50个不同圆心坐标、随机颜色的圆。
19.新建一个工程，完成“偶数迁移”程序的设计。
具体要求如下：
(1)窗体的标题为“偶数迁移”。
(2)窗体中有以下控件：两个列表框控件、两个标签框控件，两个命令按钮控件。
(3)完成以下功能：单击“产生”按钮，实现随机产生10个两位正整数，在左边列表框内显示；单击“—>”按钮，把左边列表框中的偶数全部移到右边列表框中。
