大基VB模拟题

1、PPID49 20162017第一学期期末大基VB模拟试卷 试卷预览单选题1.(2分)在VB.NET集成环境创建VB.NET应用程序时，除了工具箱窗口、设计窗口、属性窗口外，必不可少的窗口是_。1. 窗体布局窗口 2. 立即窗口 3. 代码窗口 4. 监视窗口 2.(2分)在Label1.Text="VB.NET程序设计" 语句中，Label1、Text和" VB.NET程序设计"分别属于_。1. 对象、值、属性 2. 对象、方法、属性 3. 对象、属性、值 4. 属性、对象、值 3.(2分)当输入焦点离开文本框的时，发生的事件是_ 。1. GotFoc

2、us 2. Active 3. LostFocus 4. DblClick 4.(2分)若要使命令按钮不可操作，则应对其_属性进行设置。1. Enabled 2. Visible 3. Style 4. Disable 5.(2分)以下正确的变量名是_。1. 4Answer 2. _name 3. Integer 4. SHU JU 6.(2分)表示“X是能被3整除的数”的逻辑表达式是_。1. x mod 3=0 2. x mod 3 <> 0 3. x 3=0 4. x 3 <>0 7.(2分)已知 a=2,b=2， 复合赋值语句 ：  a *=b+10 执

3、行后，a的值是_。1. 12 2. 24 3. 2 4. 14 8.(2分)下面正确的赋值语句是_ 。1. xy=30 2. sin(x)=r*r 3. 2y=x+30 4. 30=x*y 9.(2分)以下哪个语句可以使程序结束当前循环，而进入下一次循环_ 。1. Close 2. Exit 3. Continue 4. End 10.(2分)Dim s%Do While s<=3      s=s+1Loop执行加法操作的次数为_。1. 0 2. 3 3. 4 4. 5 程序填空题1.(12分)在文本框中分别输入身高和体重，回车后，根据计算公式将

4、相应的提示信息显示在标签中。       计算公式为：T = W / H2  即：体重指数 = 体重 / 身高的平方  若 T>25显示"偏胖，注意节食!"； 25<=T<18则显示"正常，继续保持！"；T<=18显示"偏瘦，增加营养!"。     Private Sub TextBox2_KeyPress() Handles TextBox2.KeyPress  

5、0;     Dim tzzs, sg, tz As _(1)_               Dim str As String        If Asc(_(2)_) = 13 Then            sg = Val(TextBox1.

6、Text)            tz = Val(TextBox2.Text)            tzzs = tz / sg / sg             Select Case tzzs     

7、           Case _(3)_> 25                     str = "偏胖，注意节食!"            

8、60;   Case _(4)_                    str = "正常，继续保持!"                Case Else     

9、60;              str = "偏瘦，增加营养!"            End Select            Label1.Text = str     &

10、#160;                 End If    End Sub答案: Singledoublee.KeyCharIs18 To 252.(12分)程序的功能是移动滚动条滑块时，在标签中显示1到滚动条当前值之间所有的完全数。完全数是指这样的数：该数恰好等于它的因子之和（自身因子除外）。如6的除自身之外的因子有1、2、3，而6=1+2+3，故6为完全数。在Load事件中，设置滚动条的部分属性值。 

11、;     Private Sub Form1_Load() Handles MyBase.Load   HScrollBar1.Maximum = 1000   HScrollBar1._(1)_ = 1   HScrollBar1.smallchange = 1 '单击两端箭头时Value的增、减量为1   End Sub   Private Sub HScrollBar1_Scroll() Handles HScrollB

12、ar1.Scroll    Dim m%, n%, g%, s%    Label1.Text = "1" & HScrollBar1.Value & "间的完全数有：" & vbCrLf        For m = HScrollBar1.Minimum To HScrollBar1._(2)_       &

13、#160;    s = 0            For n = 1 To m - 1                If _(3)_ = 0 Then s = s + n            N

14、ext            If _(4)_ Then Label1.Text &= m & " "        Next   End Sub答案: Minimumvaluem mod ns = m程序调试题1.(24分)点此下载素材2015error1.exe文件到D盘，释放并打开2015error1中的项目，修改和调试该程序，并按原文件名和位置保存。上传

15、注意：调试结束后，将整个项目压缩成"学号-debug.rar"再上传。正确的运行结果如图所示。改错方法：不能添加新变量，不允许增加和删除语句，但可适当调整语句位置。 改错题1：（2处错误）该功能是在TextBox1中任意输入二个用逗号隔开的正整数，单击"改错题1"按钮，将二数分两行显示。改错题2：（3处错误）该功能是计算折扣。消费金额小于1000不打折，大于等于1000小于2000打九折，2000以上打八折。消费金额在TextBox2 输入，在Label2显示实际的支付金额。改错题3：（3处错误）该功能是计算部分级数和。运行时在TextBox3中输入正整数n，单击"改错题3"按钮后，利用公式求出s的值，并将结果显示在Label3中。计算公式如下： 设计操作题1.(32分)参照样例（点此下载样例2015net2.exe），编写一个完整的程序，要求如下： 1界面设计要求窗体的标题为学生的学号（你自己的学号），没有最大化、最小化按钮，窗体边框固定。水平滚动条的最小值为1，最大值为5。其他控件属性请参考样例设置。2保存和上传要求解决方案名称为"学号-A.sln"，项目设计完成后将整个项目目录压缩成&