中原工学院VB题库（含参考答案）4份整合+大题版(6)

（1分）

7、For i=3 To 27 Step 2 将循环 （1分）

13次。

8、有如下声明：Dim stu(4,5) As Single,则该声明建立一个有 （1分）

30个元素的数组。

9、声明模块级变量用Private或 （1分）

Public关键字。

10、程序运行过程中，要向列表框ListBox1中添加一项，应该使用 （1分）

Items.Add方法。

11、类的成员包括数据成员、 （1分）

方法、事件和方法。

12、若想让菜单标题显示为“文件(F)”,则应把菜单项的Text属性设置为 （1分）

文件(F)。

13、使用FileStream类的 （1分） Seek方法可将文件流的当前位置设置为指定值。 14、根据题意，将程序补充完整。 通过输入对话框inputbox输入一个年份，利用msgbox判断其是否是闰年。闰年的年份必须满足以下两个条件之一： （1）能被4整除，但不能被100整除的年份是闰年； （2）能被400整除的年份是闰年。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim y As Integer，p1 As Boolean, p2 As Boolean y = 前面有这题 p1 = y Mod 4 = 0 And y Mod 100 <> 0 p2 = y Mod 400 = 0 If Then Else End If End Sub （6分） 15、根据题意，将程序补充完整。 将用户输入的10个数显示到文本框textbox1中，用比较法按照从大到小排序，将排序后的结果显示到文本框textbox2中。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(9) As Integer Dim i, j, t As Integer For i = 0 To 9 a(i) = InputBox(\请输入第\个数\textbox1.text = textbox1.text & a(i) & Space(2) Next For i = 0 To 8 For j = If i+1To 9 Then a(i) max Then Next End Function max=a(i) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(9), i As Integer For i = 0 To 9 a(i) = Int(Rnd() * 100) + 1 TextBox1.Text = TextBox1.Text & a(i) & Space(2) Next TextBox2.Text =End Sub （6分） max(a) 四、编程题（4道小题，共36分） 1、新建项目，在窗体上创建1个命令按钮(Button1)、1个标签(Label1)和3个单选按钮(RadioButton1~RadioButton3) (1)在属性窗口中设置:标签文字为你的姓名，命令按钮上的文字为“退出”， 3个单选按钮上的文字分别为“16”、“18”、“28”。 (2) 编写代码，要求：运行程序，单击单选按钮可相应改变标签文字的大小。单击命令按钮“退出”可关闭窗体。 【本题要求上传窗体文件】 （8分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 Public Class Form1 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object Label1.Font = New Font(Label1.Font.FontFamily, 16) End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object Label1.Font = New Font(Label1.Font.FontFamily, 28) End Sub 2、输入一个代表购物款的实数，判断并输出其对应的实际付款金额。其中，100元以下为“没有折扣”，[100,500)元为“九五折”，[500,1000)元为“九折”，1000元及其以上为“八五折”。 【本题要求粘贴源程序】 （10分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 3、有一个数列，其前二项分别为1、2，从第三项开始，每项均为其相邻的前二项之和的1/3。判断该数列从第几项开始小于0.0001。 【本题要求粘贴源程序与运行结果】 （12分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! Public Function fact(ByVal n As Integer) As Double Dim Count As Integer Count = 2 Dim A As Double, B As Double 请将你解答本题所写的源程序粘贴到下面或者上载源程序 4、创建一个项目，项目的名称为“Student”，该项目中定义一个学生类Student（建议将该类定义为一个独立的.vb文件），该类包含的成员如下： （1）两个公有数据成员分别表示姓名（name）和性别(sex)，一个私有数据成员表示成绩（score）。 （2）一个可读写私有数据成员score的公有属性Scoret。 （3）一个公有方法Result，该方法用于返回一个字符串。当成绩大于等于80分时Result()方法返回“你很棒”字符串，否则为“继续努力!”字符串。 最后在该项目的窗体中使用Student类来创建对象s1，通过文本框设置对象s1的姓名（name），单击“确定”按钮，在标签中根据对象是s1的成绩显示相应的信息(“你很棒”或者“继续努力!”)，窗体的界面如附图(b4-3)。 【本题要求粘贴源程序】 【附图21】（6分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 ??考号：201212345678 姓名：偏好剩余时间：99:56保存交卷退出帮助 ????考号：201212345678 姓名：偏好剩余时间：99:56保存交卷退出帮助 ??

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库中原工学院VB题库（含参考答案）4份整合+大题版(6)在线全文阅读。