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

5、算术表达式4+2*3^2\\2*4的运算结果是 （1分） 6。 6、实现窗体隐藏的方法是 （1分） Hide。 7、For i=3 To 27 Step 2 将循环 （1分） 13次。 8、如果要得到数组指定维数的上界大小，则可以使用函数 （1分） Ubound。 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 = val(inputbox(\ p1 = y Mod 4 = 0 And y Mod 100 <> 0 p2 = y Mod 400 = 0 If p1=true or p2Then msgbox(y&\Else msgbox(y&\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, k, 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 k = i For j = i+1To 9 If a(k) < a(j) Then Next If Next For i = 0 To 9 k=j k<>iThen t = a(i) : a(i) = a(k) : a(k) = t TextBox2.text = TextBox2.Text & a(i) & Space(2) Next End Sub （6分） 16、根据题意，将程序补充完整。 编写一个函数过程：求数列1+1/2+1/3+1/4+??+1/n的和，用户在文本框TextBox1输入一个值n，在Button1的click事件中调用此过程，求出结果并显示在文本框TextBox2中。 Private Function sum(ByVal n As Integer) As Single Dim i As Integer, s As Single s = 0 For i = 1 To n s=s+1/nNext textbox2.text End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer n = Val(TextBox1.Text) sum(n) End Sub （6分） 四、编程题（4道小题，共36分） 1、新建项目，在窗体上创建1个命令按钮(Button1)、1个标签(Label1)和3个单选按钮(RadioButton1~RadioButton3) (1)在属性窗口中设置:标签文字为你的姓名，命令按钮上的文字为“退出”， 3个单选按钮上的文字分别为“16”、“18”、“28”。 (2) 编写代码，要求：运行程序，单击单选按钮可相应改变标签文字的大小。单击命令按钮“退出”可关闭窗体。 【本题要求上传窗体文件】 （8分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As S Me.Close() End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object Label1.Font = New Font(Label1.Font.Size, 16) End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object Label1.Font = New Font(Label1.Font.Size, 18) 2、用输入对话框InputBox输入一个正整数，判断其能否同时被5和17整除，如能则用标签输出“xxx能同时被5和17整除”，否则输出“xxx不能同时被5和17整除”。其中，标签中的“xxx”应显示为实际输入的数据。 【本题要求上传窗体文件】 （10分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Dim a, b As Integer a = Val(InputBox(\ If a Mod 5 = 0 Then b = a Mod 17 If b = 0 Then Label1.Text = a & \ End If Else Label1.Text = a & \ End If 3、声明一个5行5列的二维数组，其元素由[10,55]之间的整数组成，要求分别计算第2行和第4列的数据之和。 要求：利用随机函数(随机数种子 Randomize(5))产生上述整数。 【本题要求粘贴源程序与运行结果】 （12分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 316 请将你解答本题所写的源程序粘贴到下面或者上载源程序 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As S Dim a(4, 4), i, j As Integer Dim s As String Randomize(5) For i = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd() * 46 + 10) s = s & a(i, j) & \ Next s = s & vbCrLf 4、创建一个项目，项目的名称为“Rect”，运行效果见附图(b4-2)。 要求在该项目中定义一个长方体类Rect（建议将该类定义为一个独立的.vb文件），该类包含： （1）两个公有数据成员表示长方体的长（length）和宽(width)，一个私有数据成员表示长方体的高（high）。 （2）一个可读写私有数据成员high的公有属性Hight。 （3）一个公有方法ComputeVol，用来计算长方体的体积。 最后在该项目的窗体中使用Rect类来创建长方体对象r1，通过文本框设置长方体对象r1的长，宽和高，单击“创建对象”按钮，则在标签中显示长方体对象r1的长，宽，高和体积。 【本题要求粘贴源程序】 【附图22】（6分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 麻烦，弄不懂，不做了，想要做的同学自己研究

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