本答案对应课程为:点我自动跳转查看
本课程起止时间为:2018-03-30到2018-06-10
本篇答案更新状态:已完结

第6讲 循环结构和常用控件(参考教材第4、5章) 第6讲 单元测验

1、 问题:若有如下程序,在文本框中输入“VisualBasic”,程序运行后Label1显示的是____。 Dim s$,ch$,k%s=""For k=1 TO Len(Text1.Text)    ch = Mid(Text1.Text,k,1)    s = ch+sNext kLabel1.Caption = s
选项:
A:BasicVisual
B:VISUALBASIC
C:cisaBlausiV
D:visualbasic
答案: 【cisaBlausiV

2、 问题:有如下程序,用来求4个整数(从键盘输入)中的最小值。若程序运行后,依次输入56,88,23,14,则在Label1显示的是____。 Private Sub Command1_Click()Dim min%, k%, a%    For k = 1 To 4        a = Val(InputBox("输入一个整数"))        If a < min Then           min = a        End If    Next    Label1.Caption = minEnd Sub
选项:
A:14
B:23
C:56
D:88
E:0
答案: 【0

3、 问题:刑警在处置某案件时采用“地毯式”方式搜寻犯罪嫌疑人,相当于计算机中的_____方法。
选项:
A:枚举法
B:迭代法
C:递归法
D:选择法
答案: 【枚举法

4、 问题:两个小和尚合吃1个馒头,年轻和尚一次吃3个馒头,老和尚一次吃2个馒头。总共有40个和尚他们刚好吃40个馒头,问有多少个小和尚,年轻和尚和老和尚?程序如下,请在_处选择适当的内容,完善程序。    Dim y%, s%, x%    For x = 1 To 40        For y = 1 To 40            s = _            If s / 2 + y * 3 + x * 2 = 40 Then                Print x & "个老和尚, " & y & " 年轻和尚," & s & "  个小和尚。" & vbCrLf            End If        Next    Next
选项:
A:x + y
B:40 – y
C:40 + x
D:40 – x – y
答案: 【40 – x – y

5、 问题:若有程序,显示有规律的图形,效果如下图。 请在_处选择适当的内容,完善程序。Private Sub Command1_Click()    Dim n%, s$    s = Text1.Text    n = _    Cls    For i = 1 To n        Print Tab(2 * n – i); Mid(s, n – i + 1, i)    NextEnd Sub
选项:
A:Val(Text1.Text)
B:Len(s)
C:Mid(s, i, 1)
D:n + 1
E:Val(Mid(s, i, i))
答案: 【Len(s)

6、 问题:下列关于定时器Timer控件的说法中,正确的是____。
选项:
A:当Enabled属性为False时,不产生Timer事件
B:当Enabled属性为True时,不产生Tick事件
C:当Interval属性为False时,不产生Timer事件
D:当Interval属性为True时,不产生Timer事件
E:当Visible属性为False时,不产生Timer事件
F:当Visible属性为True时,不产生Timer事件
答案: 【当Enabled属性为False时,不产生Timer事件

7、 问题:拖动滚动条(ScrollBar)的滑块,下列___事件将被触发 。
选项:
A:Scroll
B:GetFocus
C:LostFocus
D:DragDrop
答案: 【Scroll

8、 问题:在嵌套的内循环中,可以利用Exit语句跳出循环,跳到最外层的循环之外。
选项:
A:正确
B:错误
答案: 【错误

9、 问题:要使定时器Timer1控件每隔1秒触发Timer事件,应将Interval属性设为10。
选项:
A:正确
B:错误
答案: 【错误

10、 问题:如下程序的功能是计算自然对数e的近似值。请在_处填入适当的内容(不要空格,字母小写),完善程序。e的近似公式:    Dim e!, i%, s!, t!    e = 1: i = 1: s = 1    Do        s = _        t = 1 / s        e = e + t        i = i + 1    Loop While t > 0.0001    Print e
答案: 【(以下答案任选其一都对)si;
i
s

第2讲 简单VB程序设计(参考教材第2章) 第2讲 单元测验

1、 问题:关于文本框的焦点叙述中,错误的是__。
选项:
A:文本框失去焦点时,不会引发自己的LostFocus事件
B:文本框当其Enabled属性为False时,不能获得焦点
C:利用TabIndex属性改变Tab顺序
D:文本框得到焦点时,会引发自己的GotFocus事件
答案: 【文本框失去焦点时,不会引发自己的LostFocus事件

2、 问题:要判断在文本框里是否按了回车键,应该在文本框的_事件中判断。
选项:
A:KeyPress
B:Changed
C:Click
D:Enter
E:LostFocus
答案: 【KeyPress

3、 问题:若要使命令按钮不可用,可对按钮的_属性进行设置。
选项:
A:Enabled
B:Caption
C:Title
D:Click
E:Locked
答案: 【Enabled

4、 问题:若要使图像控件Image中的图像随着控件的大小自动放大或缩小,可对_属性进行设置。
选项:
A:Stretch
B:AutoSize
C:Size
D:Location
E:Align
答案: 【Stretch

5、 问题:任何控件都具有的属性是_
选项:
A:Name
B:Text
C:Caption
D:Color
E:Font
F:Stretch
答案: 【Name

6、 问题:控件在窗体上的位置是由控件的Top和Left属性决定的,Top属性值的含义是_
选项:
A:控件离开上边框的距离,默认单位为缇(Twip)
B:控件离开上边框的距离,默认单位为像素
C:控件离开下边框的距离,默认单位为缇(Twip)
D:控件离开下边框的距离,默认单位为像素
答案: 【控件离开上边框的距离,默认单位为缇(Twip)

7、 问题:若要使标签Label不遮盖背景图像,有效的设置是_
选项:
A:将BackStyle设置为Opaque
B:将BackStyle设置为Transparent
C:将BackStyle设置为Fixed
D:将BorderStyle设置为Transparent
E:将BorderStyle设置为Fixed
答案: 【将BackStyle设置为Transparent

8、 问题:文本框TextBox的MaxLength属性默认为0,其含义是不能输入字符。
选项:
A:正确
B:错误
答案: 【错误

9、 问题:Image控件与PictureBox控件都可以装入图片,所以两个控件的功能完全相同。
选项:
A:正确
B:错误
答案: 【错误

10、 问题:若要使标签控件Lable的大小随着文字内容自动调整,可对_属性进设置。
答案: 【AutoSize

11、 问题:若要在属性窗口修改文本框Text1的字体,可选择_属性进行设置。
答案: 【Font

第12讲 数据文件(参考教材第10章) 第12讲 单元测验

1、 问题:在执行语句: Open "a1.txt" For Output As #1 后,对文件a1.txt能够执行的操作是______。
选项:
A:不能读出,也不能写入
B:可以读出,也可以写入
C:可以读出,不可以写入
D:不可以读出,可以写入
答案: 【不可以读出,可以写入

2、 问题:文件按照访问模式可以分为三类,分别是_____。
选项:
A:程序文件、ASCII文件和二进制文件
B:顺序文件、随机文件和二进制文件
C:磁盘文件、程序文件和数据文件
D:数据文件、磁盘文件和打印文件
答案: 【顺序文件、随机文件和二进制文件

3、 问题:利用通用对话框控件打开磁盘上的顺序文件中读取数据,下列打开文件语句正确的是____。
选项:
A:    Open CommonDialog1.FileName For Output As #1 
B:    Open "CommonDialog1.FileName" For Input As #1 
C:    Open CommonDialog1.FileName For Input As #1 
D:    Open CommonDialog1.FileName For Append As #1

本门课程剩余章节答案为付费内容
本文章不含期末不含主观题!!
本文章不含期末不含主观题!!
支付后可长期查看
有疑问请添加客服QQ 2356025045反馈
如遇卡顿看不了请换个浏览器即可打开
请看清楚了再购买哦,电子资源购买后不支持退款哦

   

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注