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

6、要使标签控件中显示的文本在垂直方向上居中，而在水平方向上靠右则应将其MiddleRight。 （1分） TextAlign属性设置为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=1/i+sNext 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个标签(Label1)、2个命令按钮(Button1,Button2)。 (1) 在属性窗口中设置:标签文字为你的姓名，1个命令按钮上的文字为“日期”，1个命令按钮上的文字为“粗体”。 (2) 编写代码，要求：运行程序，单击按钮“日期”，窗体标题栏上显示系统当前日期(要求使用函数)。单击按钮“粗体”，将标签文字改为粗体。 【本题要求上传窗体文件】 （8分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Sy Label1.Text = Today() End Sub Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As Label1.Font = New Font(Label1.Font.name, Label1.Font.size, FontSt End Sub 2、用输入对话框InputBox输入一个正整数，判断其能否同时被5和17整除，如能则用标签输出“xxx能同时被5和17整除”，否则输出“xxx不能同时被5和17整除”。其中，标签中的“xxx”应显示为实际输入的数据。 【本题要求上传窗体文件】 （10分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Sy 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,99]之间的整数组成，要求计算主对角线及其上方三角形区域元素之和。 要求：利用随机函数(随机数种子 Randomize(2) 产生上述整数。 【本题要求粘贴源程序与第一次运行结果】 （12分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 1064 请将你解答本题所写的源程序粘贴到下面或者上载源程序 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Dim a(4, 4), i, j As Integer Dim s, s1 As String Randomize(2) For i = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd() * 90 + 10) s = s & a(i, j) & \ Next s = s & vbCrLf Next s = s & vbTab 4、创建一个项目，项目的名称为“Student”，该项目中定义一个学生类Student（建议将该类定义为一个独立的.vb文件），该类包含的成员如下： （1）两个公有数据成员分别表示姓名（name）和性别(sex)，一个私有数据成员表示成绩（score）。 （2）一个可读写私有数据成员score的公有属性Scoret。 （3）一个公有方法Result，该方法用于返回一个字符串。当成绩大于等于80分时Result()方法返回“你很棒”字符串，否则为“继续努力!”字符串。 最后在该项目的窗体中使用Student类来创建对象s1，通过文本框设置对象s1的姓名（name），单击“确定”按钮，在标签中根据对象是s1的成绩显示相应的信息(“你很棒”或者“继续努力!”)，窗体的界面如附图(b4-3)。 【本题要求粘贴源程序】 【附图21】（6分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 此题参考答案不完整，做到此题，应该也没什么时间了。这题自己研究吧，我也不（不完整程序）Public Class student Private _name As String Private _sex As Boolean Private _score As Integer Public Sub result(ByVal a As String) End Sub Public Property scoret() As Integer Get

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