- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术——VB基础知识

小王用VB编写了一个能自动识别浙江省固定电话号码所属地区的程序，在文本框Text1中输入固定电话全号（“0”+区号+电话号码）单击命令按钮 Command1，程序自动在标签 Label2中输出电话号码所属地区浙江省地市），程序运行界面如图所示。

浙江省电话区号和地区对应关系如下表：

地区	衢州	杭州	湖州	嘉兴	宁波	绍兴	台州	温州	丽水	金华	舟山
电话区号	570	571	572	573	574	575	576	577	578	579	580

（1）、要使程序运行后，命令按钮 Command1的Caption属性值自动变为“识别”，可在（单选，填字母：A .Label2_Click( )/B .Form_Load( )/C .Command1_Click( )）事件过程中添加语句Command. Caption= “识别”。

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

Private Sub Command1_Click( )

Dim s As String, DH As String, qh As Integer

DH= “衢州杭州湖州嘉兴宁波绍兴台州温州丽水金华舟山”

s=Text1. Text

qh=Val (Mid (s,2,3))

If gh > = 570 And gh < = 580 Then

Label2. Caption= “该电话号码属于:”+

①

Else

Label2.Caption= “该电话号码不属于浙江省！”

②

End Sub

① ②

（3）、若在文本框Text1中输入的内容为“5720-30875121”，单击“识别”按钮，则标签Label2中显示的内容是。

举一反三

[加试题]若x表示能被3整除的正整数，则下面逻辑表达式的值一定为真的是：（）

公司年会，领导要小李编写一个小程序，用于抽奖，小李将参加年会的人员姓名、手机号保存在一个access数据库中库名：年会嘉宾.accdb 数据表名为：联系人
程序设计的主要思路是：窗体装入时读出所有嘉宾的姓名和手机号，保存在两个数据中，从text1中取得要抽奖的人数，用随机函数产生1~num间的数作为中奖号，从数据中读出对应的姓名和手机号，手机号中间4位用“新年快乐”代替。已抽中过的姓名和手机号从数据中删除，以防止重复中奖。

Dim sname(1 To 1000) As String   ‘用于保存嘉宾姓名
Dim phone(1 To 1000) As String   ‘用于保存嘉宾手机号
Dim num As Integer ‘未抽奖人数
Private Sub Command1_Click()
Dim n As Integer   ‘拟抽奖人数
Randomize
n = Val(Text1.Text)
List1.Clear
If     ①     Then
For i = 1 To n
    k = Int(Rnd * num) + 1
    List1.AddItem Str(i) + " " + sname(k) + "   " +   ②
    For j = k To num
        sname(j) = sname(j + 1)
        phone(j) = phone(j + 1)
    Next j
    num =      ③
Next i
Else
    List1.AddItem "剩余的数据不足！"
End If
End Sub
Rem 下列程序段用于从数据库中读取嘉宾的姓名和手机号，分别保存在全局变量sname()和phone()两个数组中，设嘉宾个数不超过1000个。
Private Sub Form_Load()
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 联系人"
num = 0
Do While Not rs.EOF And num < 1000
    num = num + 1
    phone(num) = rs.Fields("联系电话")
    sname(num) = rs.Fields("姓名")
    rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

已知a=2, b=0,c=3,下列表达式中值为真的是（）

【加试题】有10个数据：83，90，96，46，44，36，45，47，55，72依次存放在数组元素a(1)到a(10)中，部分VB程序段如下所示：

m=1：k=1

For i=2 To 10

If a(i)<a(i-1)Then

k=k+1

If k>m Then m=k

Else

k=1

End If

Next i

Text1．Text=Str(m)

End Sub

执行该程序段，文本框Text1中显示的是（）

在VB中，下列程序段执行后，变量b的值是（）

a=4

b=7

a=a+b

b=a+b

下图是通过VB程序读取“GDP2018.accdb”文件中的GDP总量，显示在列表框中，部分代码实现如下：

Private Sub Command1_Click() ‘列表框中输出 b(i)，代码略

End Sub

Private Sub Form_Load()

conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DATASource="& App.Path & "\GDP2018.accdb" conn.Open：Set myrecord.ActiveConnection = conn：myrecord.Open "GDP"

n = 0

Do While Not myrecord.EOF n = n + 1

a(n) = myrecord.Fields("2018")

b(n) = Left(myrecord.Fields("Area"), 5) & " " & myrecord.Fields("2018") myrecord.MoveNext

Loop

conn.Close: myrecord.Close: Set myrecord = Nothing: Set conn = Nothing End Sub

下列说法不正确的是（）

相关试卷

公司介绍

服务介绍

帮助中心