- 二一组卷

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

浙江省高中信息技术——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中显示的内容是。

举一反三

key=Va 1(Text 1．Text)

i=1

j=9

Text 2.Text=""

Do While i<=j

If key=a(m) Then Exit Do

If key<a(m) Then i=m+1 Else j=m-1

Text 2.Text=Text 2.Text+“”+Str(a(m) )

Loop

数组元素a(1)到a(9)的值依次为88，75，70，68，61，58，55，50，43，文本框Text 1中输入的值是58，执行该程序段，文本框Text 2中显示的是61，50，55，则方框处的代码应为（）

相关试卷