1.3使用文本框同步练习人教版信息技术选修1

1.3使用文本框同步练习人教版信息技术选修1

学校:___________姓名：___________班级：___________考号：___________

一、选择题

1．在VB中，将窗体标题“Form1”改为“中华美食”需设置的属性是（     ）

A．Name B．Caption C．Font D．Visible

2．在VB中，“zjxj.frm”文件属于（    ）。

A．工程文件 B．代码文件 C．窗体文件 D．可执行文件

3．要使程序运行时，窗体Form1标题显示“字符串生成”，可在Form_Load事件过程中添加语句（    ）。

A．Form1＝“字符串生成”

B．Form1.Text＝“字符串生成”

C．Form1.Caption＝“字符串生成”

D．Caption.Form1＝“字符串生成”

4．一个VB工程的部分设计界面如图所示。下列说法不正确的是(　　)

①工程文件名是“工程1.vbp”        ②该工程只有1个窗体

③窗体文件名是“Form.frm”        ④窗体名称是“寻找水仙花数”

A．①② B．②③ C．①③ D．③④

5．下列有关VB属性说法正确的是（　　）

A．计时器每隔3秒Timer事件发生一次，则Interval属性应设置为3

B．设置标签框字体的颜色应在Font属性中设置

C．图像框（imagel）中图片的加载可以通过Picture属性设置

D．确定一个控件在窗体上位置的属性是Width和Height

6．有如下 VB 程序段

Dim conn As New ADODB．Connection

Dim rs As New ADODB．Recordset

conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB．12.0；Data Source=” & App.Path & “\词库.accdb”

conn.Open

Set rs.ActiveConnection = conn

rs.Open “SELECT * FROM  words”

n = 0

Do While Not rs.EOF

    n = n + 1

en（n） = rs.Fields（1）

ch（n） = rs.Fields（2）

rs.MoveNext

Loop

rs.Close

conn.Close

下列说法中正确的是（  ）

①连接的数据库文件名是“\词库.accdb” ②程序运行后，变量n 的值表示该数据表中记录的总数 ③数组 en（n）所存储的是数据表第 2 个字段的字段值 ④“ConnectionString”是 conn 对象的属性值⑤查询的数据表名称是“words” ⑥省略语句“rs.MoveNext”，程序也可以正常运行

A．①④⑤ B．③④⑥ C．②③⑤ D．②③④

7．下列VB逻辑或关系表达式中，输出结果为“真”的是（    ）。

A．Int(-7.8) =-7 B．(12<5) or (8>6) C．Not(10<>9) D．(5>3) and (3>1)

8．当现有的软件无法解决问题时，我们可以利用编程语言自己编制程序解决问题。下列选项中用编程来解决比较合适的是（    ）

A．将一组统计数据转换成图表显示

B．制作二维动画

C．用计算机修复发黄的旧照片

D．找出所有的4位水仙花数

9．某VB程序的一个事件过程代码如下：

PrivAte SuB CommAnD1_CliCk()

Dim A As Single,x As Single,z As Single

A=vAl(Text1.Text)

x=(A+10)/(A*A+8)

y=(A-1)/(x+A)

z=Sqr(x-y)

Text2.Text="Str(z)"

EnD SuB

程序运行时在文本框Text1中输入-1，单击命令按钮CommAnD1，弹出如右图所示的错误提示信息，产生此错误的语句是(    )

A．A=VAl(Text1.Text) B．x=(A+10)/(A*A+8)

C．y=(A-1)/(x+A) D．z="Sqr(x-y)"

10．某程序运行后界面如下图所示，单击“计算”按钮后会提示错误，造成错误的代码序号是（   ）

Private Sub Command1_Click()

Dim a As String, b As String, c As String

a = Text1．Text          '①

b = Text2．Text          '②

c = a + b                '③

Text3．Text = Str(c)     '④

End Sub

A．① B．② C．③ D．④

二、填空题

11．下列VB程序运行时，在文本框Text1中输入数据-25，在文本框Text2中输入数据-100，单击命令按钮Command1后，文本框Text3中显示的内容是______。

Private Sub Command1_Click( )

Dim a As Integer, b As integer, c as integer

a = Val(Text1.Text)

b = Val(Text2.Text)

If a>b and a>0 Then c="sqr(a)" else c=sqr(abs(b))

Text3.Text = str(c)

End Sub

12．观察程序界面，回答以下问题

（1）此图共有_______个对象。

（2）此窗体Form1的_______属性的值为“文字加密”

（3）设计此程序时，“密码：”“原文：”“密文”是用到工具箱上的哪个控件(      )

A．B．C．D．

（4）．窗体中密文的文本框外观与原文文本框不同，是因为设置了哪项属性(      )

A．ForeColor     B．BackColor      C．Font       D．Text

（5）．本程序的功能是对原文进行加密计算，加密的结果显示在密文中，要实现在密文文本框内不能输入文字，应该设置文本框的属性和属性值为(      )

A．Visible属性为True

B．Visible属性为False

C．Enabled属性为True

D．Enabled属性为False

13．在通过VB设计“BMI指数”的程序中，王明将变量BZ赋值给Text2.text输出，相应的代码是_____________ 。

14．下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是______，文本框Text2中显示的内容是_______。

Private Sub Command1_click( )

Dim a(1 to 3) as integer,k as integer,t as integer,s as integer

a(1)="15:" a(2)="36:" a(3)=7

s=0

For k="2" to 3

if a(k)>a(1) then

t=a(1):a(1)=a(k):a(k)=t

s=s+1

End if

Next k

text1.text=str(a(1))

text2.text=str(s)

End sub

15．(              )用于对窗体上的对象分组。

三、操作题

16．某同学设计了一个名为“交通知识小测验”的程序，该程序功能如下：程序开始运行后在文本框“Text1”输入答案编号，点击“答题”按钮，在标签“label2”中给出答题结果，同时文本框“Text1”的内容全部清空。运行界面如图所示：

打开“VB”文件夹中“test1”文件夹下的“test1.vbp”工程，完成以下操作：

（1）参照上图，在窗体的合适位置添加命令按钮Label2，将其Backcolor属性值设置为&H0000FFFF&。

（2）为命令按钮Command1、Command2选择合适的事件过程，并将test1文件夹下“code.txt”文件中的代码复制到该过程中。

（3）调试并运行程序，发现单击“确定”按钮后“查看各标志意义”按钮出现，是 1 语句实现了此功能，如果要对象Image1不可见，则相应语句为2

①______________________________________________

②______________________________________________

（4）程序调试正确后，生成“test1.exe”，保存在VB文件夹下。保存窗体文件和工程文件。。

参考答案：

1．B

2．C

3．C

4．D

5．C

6．C

7．BD

8．D

9．C

10．D

11．10

12．     8     Caption     D     B     D

13．Text2.text=Str(BZ)

14．（1）36（1分）  （2）1（1分）

15．框架

16．（2）分别双击按钮Command1、Command2

（3）Command2.Visible = True；‚Image1.Visible = False