1.2编一个简单的vb程序同步练习人教版信息技术选修1

1.2编一个简单的vb程序同步练习人教版信息技术选修1

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

一、选择题

1．有如下 VB 程序段：

t = "abcd123456" :   x = Int(Sqr(Len(t))) :   y=1

If  x > 3 Then

   y =2

ElseIf x > 2 Then

   y=3

ElseIf x > 1 Then

   y=4

End  If

执行该程序段后，变量y的值为（   ）

A．1 B．2 C．3 D．4

2．回文字符串的特征是从左到右读和从右到左读是完全一样的，如“aba”、“aabbaa”，判断字符串中忽略“，”字符后，该字符串是否是回文字符串的VB程序段如下：

s = "ab,,,cb,a"

n = Len(s)

i = 1: j = Len(s)

flag = True

Do While i <= j

If Mid(s, i, 1) = Mid(s, j, 1) Then

i = i + 1: j = j - 1

Else

End If

Loop

If flag = False Then Print ("不是回文") Else Print ("回文")

横线处的代码由以下三部分组成：

① If Mid(s, i, 1) = "," Or Mid(s, i, 1) = "," Then i = i + 1

② If Mid(s, j, 1) = "," Or Mid(s, j, 1) = "," Then j = j – 1

③ If Mid(s, i, 1) <> "," And Mid(s, j, 1) <> "," Then flag = False: Exit Do

下列选项中，代码顺序正确的是（   ）：

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

3．以下选项哪种文本文件格式用于编写程序源代码（   ）。

A．txt B．png C．htm D．docx

4．已知k为十进制多位整数，下列选项中能正确表示含义“若k的十位是偶数则a为1，否则a为2”的是（   ）

A．a=1:if k mod 2<>0 then a=2 B．a=2:if k mod 100 \2 <>0 then a=1

C．If k\100 mod 2 <>0 then a=2 else a=1 D．if k\10 mod 2 =0 then a=1  else a=2

5．在VB中，下列选项属于字符串型数据的是(    )

A．2021 B．20.21 C．"abc" D．False

6．利用VB生成两位奇数随机数，其表达式正确的是（   ）

A．Int(Rnd * 45)*2 + 11 B．Int(Rnd * 33)*3 + 3

C．Int(Rnd * 89) + 11 D．Int(Rnd * 100) - 1

7．VB表达式9 Mod 66\3^2/3*4的值是（  ）

A．9 B．4 C．0 D．36

8．下列 VB 表达式中，值不为5的选项是 （   ）

A．Val(Mid("12345",5,1)) B．Abs(Int(-4.1))

C．sqr(12345 Mod 10) D．Len("天天向上!")

9．VB表达式Int（Sqr（26）+0.5）*3Mod16\2^2的值是（    ）

A．3 B．2 C．9 D．6

10．下列选项中与表达式2021 Mod 100 \ 10的值相等的是（   ）

A．Val(Mid("2021"，2，2)) B．Len("2021")Mod 2

C．Str(Abs(2020－2021)) D．Int(Sqr(2021 \ 1000))

二、填空题

11．DIM    A(-2  TO  3, 4)  AS   INTEGER  ，该数组占的字节数是(         )，该数组中的元素个数是(     )个。

12．MSGBOX函数的返回值是(          )型的。

13．第一个列表框的默认名称是(          )，第一个组合框的默认名称是(        )

14．VB中一行写多条语句时，用(        )号分隔。

15．组合框是(       )和(         )组合而成的控件。

三、判断题

16．TEXT1.TEXT=100的唯一功能只是改变该对象的属性值（   ）

17．VB是一种非常有名的文字处理软件。(      )

18．(必修)Visual Basic是面向过程的程序设计语言。 (     )

19．Function 函数名在函数过程中必须被赋值（   ）

20．在VB窗口中，双击任何对象都可以进入编程界面（   ）

四、操作题

21．统计不同单词个数，在Text1中输入一行单词，点击“统计”按钮后在Text2中输出不同单词的个数。单词字母有大小写，同一单词的大小字母视为相同，句子以符号结尾， 程序运行界面如图1所示。

图1

图2

（1）观察以下代码，该代码中 Command1_Click（）是 ___（选：A．对象名 /B．事件名 /C．事件处理过程名）

（2）在设计应用程序界面时，应使用图2所示“控件工具箱”中的________添加列表框List1.

（3）实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click()

 Dim a(1 To 100) As String ,s As String, ch As String, word As String

Dim i As Integer, j As Integer, k As Integer, numb As Integer

 s = Text1.Text :  k = 0 :  word = ""

 For i = 1 To Len(s)

   ch = Mid(s, i, 1)

   If ch >= "a" And ch <= "z" Or ch >= "A" And ch <= "Z" Then

     If ch >= "A" And ch <= "Z" Then ①_________

     word = word + ch

   Else

     flag = False

     For j = 1 To k

       If a(j) = word Then flag = True

     Next j

     If Not flag And word <> "" Then

       ②_____

       a(k) = word

       numb = numb + 1

     End If

     ③_____

   End If

 Next i

 Text2.Text = str(numb)

End Sub

五、简答题

22．简答题

邓凯、邓旋、杨柳、文雪同学组成学习小组制作网站，他们要做一个关于海南的网站，赞美和宣传海南。

（1） 他们将做好的网站发布在邓凯的计算机上供别人浏览时，邓凯的计算机充当的是服务器还是客户机？

（2）如下图是其中一张网页的部分代码，从图中代码可知，这张网页的标题是什么？

（3）该网页属于动态网页还是静态网页？网页中使用的CSS样式表类型是什么？

（4）下图是制作网页过程中的部分代码，其中使用的脚本语言文件的完整文件名是什么？

23．闰年的条件是：年份（Y）能被4整除，但不能被100整除。请写出表示闰年的VB表达式。

参考答案：

1．C

2．D

3．A

4．D

5．C

6．A

7．B

8．C

9．A

10．D

11．     60     30

12．数值

13．     List1     Combo1

14．冒

15．     文本框     列表框

16．错误

17．

18．错误

19．正确

20．正确

21．     C     4     ①ch = Chr(Asc(ch) + 32) 或 ch = Chr(Asc(ch) + Asc("a")- Asc("A"))     ②k = k + 1     ③word = ""

22．（1）服务器；（2）美丽三亚；（3）动态网页；内联式样式表；（4）Sy.js

23．Y MOD 4=0  AND  Y MOD 100<>0