VB题6.docVIP

2010-2011学年第一学期《VB程序设计》期末考试试题 试题编号：201006 适用范围： 2009级本科生 考试时间：60分钟 要求：1、在我的电脑D：盘下建立文件夹，文件夹为自己的学号如“20008111001”； 2、工程文件窗体文件保存为：.vbp, 201006.frm； 3、工程文件只能在做好后保存或另存为题目中要求的文件名切记不要在关闭工程文件后重命名，这样会导致文件打不开。 ．界面设计，如图所示。（40分） （1）建立一个为“vb程序设计”的窗体（）在该窗体上画两个文本框，一个图形框，三个按钮，属性如所示。 默认控件名 属性 属性值 Form1 Caption Vb程序设计 Label1 Caption 设置为自己的系、班、学号、姓名 Font 楷体，字号小四号，加粗 Text1 Text 50 Text2 Text 100 Picture1 Picture 默认 Command1 Caption 计算 Command2 Caption 显示 Command3 Caption 生成矩阵 二．程序填空题：有如下函数，输入X，计算Y的值。要求在Command1_Click()的单击事件中， 在text1文本框中任意输入X的值，当单击“计算”按钮时，按照公式把结果y显示在text2文本框中。（每空5分，共20分） Private Sub Command1_Click() Dim x As Single, y As Single x = （1） If x 0 Then y = -x (2) then y = 2 * x Else y = （3） End If （4） = y End Sub 三．程序改错题在Command2_Click()的单击事件中，（20分）Private Sub Command2_Click() Dim Flower%, i%, j%, k% For Flower = 100 To 999 i = Flower \ 10 求出百位数 j = (Flower - i * 100) / 10 求出十位数 k = Flower - i * 100 - j * 10 求出个位数 If Flower = i 3 + j 3+ k 3 Then Picture1. Print Flower End Next Flower 图2 生成矩阵 End Sub 四．编程题：.编写程序生成一个3行3列的矩阵，矩阵中的数字由指定区间的随机数生成，在text1和text2中输入数字给定区间，单击“生成矩阵”按钮时，生成的矩阵显示在picture1中，运行结果如图2所示（20分）。 系班： 姓名： 学号： 机号： 试题编号：201006 第 1 页，共 2 页 Y= 3x-5 x≥5 2x 0≤x5 -x X0