2019-2020学年浙江省普通高校招生选考科目考试信息技术试题(一)

文档属性

名称 2019-2020学年浙江省普通高校招生选考科目考试信息技术试题(一)
格式 zip
文件大小 5.6MB
资源类型 教案
版本资源 通用版
科目 信息技术(信息科技)
更新时间 2019-11-30 14:25:55

文档简介

浙江省普通高校招生选考科目考试
信息技术试题(一)
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
1.下列有关信息的说法,不正确的是(  )
A.Python程序设计语言也是一种信息
B.给微信朋友圏点赞也是一种信息评价方式
C.信息在传输过程中,必须遵循一定的规则
D.对相关数据进行加工处理,使数据之间建立相互联系,从而形成信息
解析 信息是一种具体的含义,语言是信息的载体。
答案 A
2.下列有关网页与浏览器的说法,不正确的是 (  )
A.网页的三种基本元素是文字、图形图像和超链接
B.网页内容是用HTML(超文本标记语言)进行描述的
C.浏览器中收藏的网页,在没有接入网络的状态下也能进行浏览
D.浏览器中以“*.txt”格式另存网页,网页中的超链接不能被保存
解析 本题主要考查网上信息获取的相关知识。浏览器中收藏网页只是保存了网页的URL,在未联网的状态下不能进行浏览。
答案 C
3.使用Access软件编辑数据表,部分界面如图所示。 下列说法正确的是(  )
A.“ID”字段名不能进行修改
B.第1条记录被删除后不能撤销
C.在当前视图下,“票价”字段被删除后可用撤销来恢复
D.将数据导出到Excel电子表格后,“3D”列的内容将显示为“是”或“否”
解析 本题主要考查Access数据库相关知识。“ID”字段名能进行修改,字段类型不能进行修改。当前为数据表视图,数据表视图下删除字段不能撤销。字段类型”是否”导出到Excel电子表格后,将显示为”True”或”False”。
答案 B
4.使用UltraEdit软件查看字符“如果 A<>0 then b=b/A”内码,部分界面如图所示。
下列说法正确的是 (  )
A.存储上述字符需要20个Byte
B.“a-z”字符内码值都比“A-Z”字符的内码值小
C.字符“D”的内码用二进制表示为“01100100”
D.使用UltraEdit软件查看字符,字符个数超过15个的时候会自动换行
解析 本题主要考查内码与进制转化相关知识。“a-z”字符内码值都比“A-Z”字符的内码值大。字符“D”的内码用二进制表示为“01000100”。 使用UltraEdit软件查看字符,占用字节数超过16个的时候会自动换行。
答案 A
5.下列关于多媒体技术的说法,正确的是(  )
A.多媒体技术中的媒体是指承载信息的载体.如文字、声音、图形和图像等
B.多媒体数据压缩标准中,MPEG是静态图像压缩标准
C.某软件能根据文本内容自动朗读,该功能主要应用了多媒体技术中的语音识别技术
D.智能手机的指纹识别功能,主要应用了多媒体技术中的OCR技术
解析 本题考点多媒体技术等知识点。多媒体技术中的媒体是指数字、文字、声音、困形和耳是静态图像压缩标准,MPEG是动态图像压缩标准,语音识别技术属于人工智能技术。
答案 A
6.使用GoldWave软件编辑某音频文件,选择其中一段音频后的部分界面如图所示。
下列说法错误的是(  )
A.从当前位置开始播放5秒,只能听到一个声道的声音
B.选中部分在中间的位置,不能作淡入处理
C.复制其他文件的声音,执行“粘贴”命令,会替换当前部分声音
D.在当前状态下,执行删除或剪裁命令,两次分别保存后的文件容量是相同的
解析 该声音的左声道没有声波图形,因而没有声音。淡入只是把音量从小到大处理,不管声音在哪个位置。粘贴命令会替换选中部分声音。
答案 B
7.某算法流程图如下图所示。
执行该算法,下列说法正确的是(  )
A.变量i的值是21 B.语句i=i+1执行了5次
C.变量s的值为10 D.语句i<=20被执行了5次
解析 当i=5时,退出循环,因此共循环5次,i的值为5,s的值为1+2+3+4+5。
答案 B
8.产生一个在[10,99]中随机奇数的VB表达式是(  )
A.11 + Int(Rnd * 99) B.11 + Int(Rnd * 45)*2
C.11 + Int(Rnd * 89) D.10 + Int( Rnd * 90)
解析 本题主要考查VB的函数。在[10,99]中随机奇数范围应为[11,99],可以转换为[0,88]+11,且[0,88]只能为偶数。而[0,88]可以表达为[0,44]*2,即[0,45) *2。综合可得选项B正确。
答案 B
9.有如下VB程序段:
a(1) = 1
For i = 2 To 6
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2 = 1 Then
a(i) = a(i) 2 + 1
Else
a(i) = a(i) / 2
End If
Next i
执行程序后,a数组各元素可能是(  )
A.1 3 4 6 7 9 B.1 2 0 3 5 6
C.1 2 3 4 5 4 D.1 3 4 5 1 1
解析 Int(Rnd*5+1)的范围在[1,5]之间,a(2)范围在[2,6]之间,进行运算后,a(2)范围在[1,3];当a(2)=2时,a(3)范围在[3,7]之间,进行运算后,a(3)范围在[2,4],排除选项B,再加[1,5],属于[3,9],进行运算后,a(4)范围在[2,5],再加[1,5],属于[3,10],进行运算后,a(5)范围在[2,5]。
答案 C
10.有如下 VB 程序段:
For i = 4 To 3 Step -1
If a(i) < a(i - 1) Then
 tmp = a(i)
 For j = i - 1 To 1 Step -1
If tmp > a(j) Then Exit For
a(j + 1) = a(j)
 Next j
  a(j + 1) = tmp
End If
Next i
数组元素 a(1)到 a(6)的值依次为“19,8,96,92,85,88”,经过该程序段“加工”后,数组元素 a(1)到 a(6)的值依次为(  )
A.8,19,92,96,85,88 B.8,19,85,88,92,96
C.19,8,92,96,85,88 D.19,8,85,92,96,88
解析 该题分i=4和i=3两种情况,i=4时,进行插入排序,将92移动96前。I=3时,不满足a(i) < a(i - 1)。
答案 C
11.某同学编写了一个VB程序,功能为在文本框Text1中输入英文字符串,单击“转换”按钮Command1,文本框Text1中的大写英文字母转换为小写,结果显示在文本框Text2中。部分程序段如下:
s1 = Text1.Text
s2=” ”
For i=1 To Len(s1)
 ch=Mid(s1, i, 1)
 If ch>=”A” And ch<=”Z” Then
′提示:“A”的ASCII码值为65,“a”的ASCII码值为97
  
 End If
 s2=s2 & ch
Next i
Text2.Text = s2
要使程序实现上述功能,则方框中的代码是(  )
A.ch = Chr(Asc(ch) + 32)
B.ch = Asc(Chr(ch) + 32)
C.ch = Chr(Asc(ch) - 32)
D.ch = Str(Val(ch) - 32)
解析 根据程序注释语句中的提示,可知同一个字母小写ASCII码值比大写ASCII码值大32,排除C、D选项。函数Chr(X)的功能为查看十进制ASCII码值对应的字符,函数Asc(X)的功能为查看字符的十进制ASCII码值。因此A正确。
答案 A
12.已知直角三角形的斜边长度,利用对分査找算法计算其他两条整数边长的VB程序段如下:
flag = True : p = 0
Key = 5
For i = 1 To Key - 1
L = i
____①____
Do While____②____
M = (L + R) 2
p = p + 1
If i * i + M * M < Key * Key Then
     L = M + 1
ElseIf i * i + M * M > Key * Key Then
     R = M - 1
Else
    Text2.Text = Str(i) + ” ” + Str(M) + ” ” + Str(key)
    flag = False
    i = Key
End If
Loop
Next i
If flag Then Text2.Text = ”没有符合条件的整数勾股数对!”
上述程序段 2 个划线处的代码分别为(  )
A.①R=Key-1 ②L<=R And flag
B.①R=Key ②L<=R And flag
C.①R=Key – 1 ②L<=R Or flag
D.①R=Key – 1 ②L<=R And flag=False
解析 L 和R表示两条直角边长,R只能比较斜边短。Flag表示是否找到的标志。
答案 A
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
13.学校对各班级的文艺汇演成绩做了评分,并利用Excel 软件进行数据处理,部分界面如图a所示。
图a
(1)用公式计算出各班级得分,可在I3 单元格输入公式,再利用自动填充得到其他班级得分,则I6 单元格上的公式为__________。
(2)将各年级最后得分最高的班级设为该年级的一等奖,下列方法可得到高二年级一等奖班级的是__________(多选,填字母)。
A.选择区域B8:I12,再按“列I”为关键词进行降序排序后,该区域的第1 条记录为高二年级一等奖班级
B.先筛选出“班级”开头是“高二”的记录,再筛选出“最后得分”为最大1 项的记录,筛选结果即为高二年级一等奖班级
C.先筛选出“最后得分”为最大1 项的记录,再筛选出“班级”包含“高二”的记录,筛选结果为高二年级一等奖班级
D.先按“最后得分”升序排序,再筛选出“班级”包含“高二”的纪录,最后一条记录为高二年级一等奖班级
(注:全部选对的得2 分,选对但不全的得1 分,不选或有选错的得0 分)
图b
(3)根据数据表中的数据制作的图表如图b所示,创建该图表的数据区域为__________。
答案 (1)=(SUM(C6:H6)-MAX(C6:h6)-MIN(C6:H6) (2)AD (3)B2,B8:B12,I2:I8:I12
14.小林创作多媒体作品,请回答下列问题。
(1)使用Photoshop软件制作一张背景图片,如下图所示。
若要使图a“湖.psd”中“gz”图层中鸽子出现在夏日.psd中,下列操作可行的是________。
图a
(多选,填字母:A.使用“复制图层”命令将“gz”图层复制到夏日.psd中 /B.将 “gz”图层直接通过鼠标拖到夏日.psd中 /C.使用魔棒工具(容差为5)选中“gz”图层中的图像并进行拷贝后复制粘贴到夏日.psd中 /D.选中 “gz”图层后,执行“全部”选择操作,进行拷贝,在夏日.psd中粘贴。)
(2)使用Flash软件制作动画,时间轴如图b所示。
图b
小林在“鸽子”图层第50帧设置了动作脚本“stop()”若要使“声效”图层中的声音在动画播放到第50帧后,仍能持续播放完毕,可设置该声音的同步为________(选填:事件/数据流)。
(3)在“鸽子”图层制作鸽子文字渐变成一只鸽子的补间动画,该动画属于________(选填字母:A.逐帧/ B.动画补间/ C.形状补间)动画。
(4)如图b所示,当前在“按钮”图层第50帧应用了“静音”按钮,若要使该按钮始终在当前场景呈现,可进行的操作是__________________________________。
(5)若单击“静音”按钮,停止所有声音的播放,则在该按钮上需添加的动作脚本是__________________________________________________________________。
答案 (1)BD (2)事件 (3)C (4)将按钮图层第50帧拖曳到第1帧、清除按钮图层第1帧的空白关键帧(或等效操作) (5)on (release) {stopAllSounds();}
15.如果两个质数的差为2,则这两个质数称为孪生质数对;编写VB程序,实现如下功能:单击“显示孪生质数对”按钮Command1,在列表框List1中显示100以内的所有孪生质数对(运行效果如图所示)。
实现上述功能的VB代码如下。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k = 0:i = 3
Do While i <= 100
 If  Not prime(i) Then   
k = k + 1

 End If 
  i = i + 2
Loop
For i = 2 To k
  If ____①____  Then
 List1.AddItem Str(a(i-1)) +”和” + Str(a(i))
 End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i = 2 To Int(Sqr(x))
 If x Mod i = 0 Then
prime = True
Exit For
 End If
Next i
End Function
(1)语句“List1.AddItem Str(a(i-1))+”和”+Str(a(i))”中的AddItem是________(单选,填字母:A.对象名/B.属性名/C.事件名/D.方法名)。
(2)程序代码中,加框处有错,请改正。
(3)程序代码中,将①处语句补充完整。
(4)在自定义函数中,函数返回值prime=Flase表示的含义是______。
答案 (1)D (2)a(k)=i (3)a(i) = a(i -1)+2
(4)数x是质数
16.给出只包含加、减、乘、除中一个运算符的算术等式,求该算术等式中的最小进制。如等式6*9=42,该等式中的数字均属于13进制。推算的算法是:
1)找出等式中单个数字的最大值;
2)从最大值加1的数制开始,按该数制的运算规则,把等式中所有数字转换成十进制数;
3)如果等式两边的结论是成立的,那么该数制就是符合上述等式的最小数制,否则从下一个数制重新计算,直到十六进制为止。
小明为此编写了一个VB程序,程序运行时,在文本框Text1中输入一个等式,单击“计算”按钮Command1,在文本框Text2中显示该等式中数字所属的数制。程序运行界面如下图所示。
(1)根据上述算法,则等式“5+7=13”成立,则该等式中的数属于________进制数。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s1 As String, ysf As String, t1 As String, t2 As String, t3 As String
Dim ch As String, t As String, max As Integer, jz As Integer, i As Integer
s1=Text1.Text
t1=0: max=0
For i=1 To Len(s1)
ch=Mid(s1, i, 1)
If ch=”+” Or ch=”-” Or ch=”*” Or ch=”\” Then
    ysf=ch: t1=t: t=” ”
ElseIf ch=”=” Then
    t2=t: t=” ”
ElseIf ch >= ”A” And ch <= ”F” Then
    t=t+ch
    temp=____①____
    If max < temp Then max=temp
Else
    t=t+ch
    If max < Val(ch) Then max=Val(ch)
End If
Next i
t3=t: jz=0
_____②____
Do While i <= 16
If ysf=”+” Then
    If XtoD(i, t1)+XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=”-” Then
    If XtoD(i, t1) - XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=”*” Then
    If XtoD(i, t1) * XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
Else
    If XtoD(i, t1) / XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
End If
i=i+1
Loop
If jz <> 0 Then
Text2.Text=”该数属于” +Str(jz)+”进制”
Else
Text2.Text=”没有找到合适的进制”
End If
End Sub
Function XtoD(x As Integer, s As String) As Integer
Dim j As Integer
j=0
For i=Len(s) To 1 Step -1
XtoD=XtoD+Val(Mid(s, i, 1)) * x ^ j
  ____③____
Next i
End Function
答案 (1)9或九 (2)①Asc(ch) - Asc(”A”)+10 ②i=max+1 ③j=j+1
浙江省普通高校招生选考科目考试
信息技术试题(一)
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
1.下列有关信息的说法,不正确的是(  )
A.Python程序设计语言也是一种信息
B.给微信朋友圏点赞也是一种信息评价方式
C.信息在传输过程中,必须遵循一定的规则
D.对相关数据进行加工处理,使数据之间建立相互联系,从而形成信息
2.下列有关网页与浏览器的说法,不正确的是 (  )
A.网页的三种基本元素是文字、图形图像和超链接
B.网页内容是用HTML(超文本标记语言)进行描述的
C.浏览器中收藏的网页,在没有接入网络的状态下也能进行浏览
D.浏览器中以“*.txt”格式另存网页,网页中的超链接不能被保存
3.使用Access软件编辑数据表,部分界面如图所示。 下列说法正确的是(  )
A.“ID”字段名不能进行修改
B.第1条记录被删除后不能撤销
C.在当前视图下,“票价”字段被删除后可用撤销来恢复
D.将数据导出到Excel电子表格后,“3D”列的内容将显示为“是”或“否”
4.使用UltraEdit软件查看字符“如果 A<>0 then b=b/A”内码,部分界面如图所示。
下列说法正确的是 (  )
A.存储上述字符需要20个Byte
B.“a-z”字符内码值都比“A-Z”字符的内码值小
C.字符“D”的内码用二进制表示为“01100100”
D.使用UltraEdit软件查看字符,字符个数超过15个的时候会自动换行
5.下列关于多媒体技术的说法,正确的是(  )
A.多媒体技术中的媒体是指承载信息的载体.如文字、声音、图形和图像等
B.多媒体数据压缩标准中,MPEG是静态图像压缩标准
C.某软件能根据文本内容自动朗读,该功能主要应用了多媒体技术中的语音识别技术
D.智能手机的指纹识别功能,主要应用了多媒体技术中的OCR技术
6.使用GoldWave软件编辑某音频文件,选择其中一段音频后的部分界面如图所示。
下列说法错误的是(  )
A.从当前位置开始播放5秒,只能听到一个声道的声音
B.选中部分在中间的位置,不能作淡入处理
C.复制其他文件的声音,执行“粘贴”命令,会替换当前部分声音
D.在当前状态下,执行删除或剪裁命令,两次分别保存后的文件容量是相同的
7.某算法流程图如下图所示。
执行该算法,下列说法正确的是(  )
A.变量i的值是21 B.语句i=i+1执行了5次
C.变量s的值为10 D.语句i<=20被执行了5次
8.产生一个在[10,99]中随机奇数的VB表达式是(  )
A.11 + Int(Rnd * 99) B.11 + Int(Rnd * 45)*2
C.11 + Int(Rnd * 89) D.10 + Int( Rnd * 90)
9.有如下VB程序段:
a(1) = 1
For i = 2 To 6
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2 = 1 Then
a(i) = a(i) 2 + 1
Else
a(i) = a(i) / 2
End If
Next i
执行程序后,a数组各元素可能是(  )
A.1 3 4 6 7 9 B.1 2 0 3 5 6
C.1 2 3 4 5 4 D.1 3 4 5 1 1
10.有如下 VB 程序段:
For i = 4 To 3 Step -1
If a(i) < a(i - 1) Then
 tmp = a(i)
 For j = i - 1 To 1 Step -1
If tmp > a(j) Then Exit For
a(j + 1) = a(j)
 Next j
  a(j + 1) = tmp
End If
Next i
数组元素 a(1)到 a(6)的值依次为“19,8,96,92,85,88”,经过该程序段“加工”后,数组元素 a(1)到 a(6)的值依次为(  )
A.8,19,92,96,85,88 B.8,19,85,88,92,96
C.19,8,92,96,85,88 D.19,8,85,92,96,88
11.某同学编写了一个VB程序,功能为在文本框Text1中输入英文字符串,单击“转换”按钮Command1,文本框Text1中的大写英文字母转换为小写,结果显示在文本框Text2中。部分程序段如下:
s1 = Text1.Text
s2=” ”
For i=1 To Len(s1)
 ch=Mid(s1, i, 1)
 If ch>=”A” And ch<=”Z” Then
′提示:“A”的ASCII码值为65,“a”的ASCII码值为97
  
 End If
 s2=s2 & ch
Next i
Text2.Text = s2
要使程序实现上述功能,则方框中的代码是(  )
A.ch = Chr(Asc(ch) + 32)
B.ch = Asc(Chr(ch) + 32)
C.ch = Chr(Asc(ch) - 32)
D.ch = Str(Val(ch) - 32)
12.已知直角三角形的斜边长度,利用对分査找算法计算其他两条整数边长的VB程序段如下:
flag = True : p = 0
Key = 5
For i = 1 To Key - 1
L = i
____①____
Do While____②____
M = (L + R) 2
p = p + 1
If i * i + M * M < Key * Key Then
     L = M + 1
ElseIf i * i + M * M > Key * Key Then
     R = M - 1
Else
    Text2.Text = Str(i) + ” ” + Str(M) + ” ” + Str(key)
    flag = False
    i = Key
End If
Loop
Next i
If flag Then Text2.Text = ”没有符合条件的整数勾股数对!”
上述程序段 2 个划线处的代码分别为(  )
A.①R=Key-1 ②L<=R And flag
B.①R=Key ②L<=R And flag
C.①R=Key – 1 ②L<=R Or flag
D.①R=Key – 1 ②L<=R And flag=False
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
13.学校对各班级的文艺汇演成绩做了评分,并利用Excel 软件进行数据处理,部分界面如图a所示。
图a
(1)用公式计算出各班级得分,可在I3 单元格输入公式,再利用自动填充得到其他班级得分,则I6 单元格上的公式为__________。
(2)将各年级最后得分最高的班级设为该年级的一等奖,下列方法可得到高二年级一等奖班级的是__________(多选,填字母)。
A.选择区域B8:I12,再按“列I”为关键词进行降序排序后,该区域的第1 条记录为高二年级一等奖班级
B.先筛选出“班级”开头是“高二”的记录,再筛选出“最后得分”为最大1 项的记录,筛选结果即为高二年级一等奖班级
C.先筛选出“最后得分”为最大1 项的记录,再筛选出“班级”包含“高二”的记录,筛选结果为高二年级一等奖班级
D.先按“最后得分”升序排序,再筛选出“班级”包含“高二”的纪录,最后一条记录为高二年级一等奖班级
(注:全部选对的得2 分,选对但不全的得1 分,不选或有选错的得0 分)
图b
(3)根据数据表中的数据制作的图表如图b所示,创建该图表的数据区域为__________。
14.小林创作多媒体作品,请回答下列问题。
(1)使用Photoshop软件制作一张背景图片,如下图所示。
若要使图a“湖.psd”中“gz”图层中鸽子出现在夏日.psd中,下列操作可行的是________。
图a
(多选,填字母:A.使用“复制图层”命令将“gz”图层复制到夏日.psd中 /B.将 “gz”图层直接通过鼠标拖到夏日.psd中 /C.使用魔棒工具(容差为5)选中“gz”图层中的图像并进行拷贝后复制粘贴到夏日.psd中 /D.选中 “gz”图层后,执行“全部”选择操作,进行拷贝,在夏日.psd中粘贴。)
(2)使用Flash软件制作动画,时间轴如图b所示。
图b
小林在“鸽子”图层第50帧设置了动作脚本“stop()”若要使“声效”图层中的声音在动画播放到第50帧后,仍能持续播放完毕,可设置该声音的同步为________(选填:事件/数据流)。
(3)在“鸽子”图层制作鸽子文字渐变成一只鸽子的补间动画,该动画属于________(选填字母:A.逐帧/ B.动画补间/ C.形状补间)动画。
(4)如图b所示,当前在“按钮”图层第50帧应用了“静音”按钮,若要使该按钮始终在当前场景呈现,可进行的操作是__________________________________。
(5)若单击“静音”按钮,停止所有声音的播放,则在该按钮上需添加的动作脚本是__________________________________________________________________。
15.如果两个质数的差为2,则这两个质数称为孪生质数对;编写VB程序,实现如下功能:单击“显示孪生质数对”按钮Command1,在列表框List1中显示100以内的所有孪生质数对(运行效果如图所示)。
实现上述功能的VB代码如下。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k = 0:i = 3
Do While i <= 100
 If  Not prime(i) Then   
k = k + 1

 End If 
  i = i + 2
Loop
For i = 2 To k
  If ____①____  Then
 List1.AddItem Str(a(i-1)) +”和” + Str(a(i))
 End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i = 2 To Int(Sqr(x))
 If x Mod i = 0 Then
prime = True
Exit For
 End If
Next i
End Function
(1)语句“List1.AddItem Str(a(i-1))+”和”+Str(a(i))”中的AddItem是________(单选,填字母:A.对象名/B.属性名/C.事件名/D.方法名)。
(2)程序代码中,加框处有错,请改正。
(3)程序代码中,将①处语句补充完整。
(4)在自定义函数中,函数返回值prime=Flase表示的含义是______。
16.给出只包含加、减、乘、除中一个运算符的算术等式,求该算术等式中的最小进制。如等式6*9=42,该等式中的数字均属于13进制。推算的算法是:
1)找出等式中单个数字的最大值;
2)从最大值加1的数制开始,按该数制的运算规则,把等式中所有数字转换成十进制数;
3)如果等式两边的结论是成立的,那么该数制就是符合上述等式的最小数制,否则从下一个数制重新计算,直到十六进制为止。
小明为此编写了一个VB程序,程序运行时,在文本框Text1中输入一个等式,单击“计算”按钮Command1,在文本框Text2中显示该等式中数字所属的数制。程序运行界面如下图所示。
(1)根据上述算法,则等式“5+7=13”成立,则该等式中的数属于________进制数。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s1 As String, ysf As String, t1 As String, t2 As String, t3 As String
Dim ch As String, t As String, max As Integer, jz As Integer, i As Integer
s1=Text1.Text
t1=0: max=0
For i=1 To Len(s1)
ch=Mid(s1, i, 1)
If ch=”+” Or ch=”-” Or ch=”*” Or ch=”\” Then
    ysf=ch: t1=t: t=” ”
ElseIf ch=”=” Then
    t2=t: t=” ”
ElseIf ch >= ”A” And ch <= ”F” Then
    t=t+ch
    temp=____①____
    If max < temp Then max=temp
Else
    t=t+ch
    If max < Val(ch) Then max=Val(ch)
End If
Next i
t3=t: jz=0
_____②____
Do While i <= 16
If ysf=”+” Then
    If XtoD(i, t1)+XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=”-” Then
    If XtoD(i, t1) - XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=”*” Then
    If XtoD(i, t1) * XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
Else
    If XtoD(i, t1) / XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
End If
i=i+1
Loop
If jz <> 0 Then
Text2.Text=”该数属于” +Str(jz)+”进制”
Else
Text2.Text=”没有找到合适的进制”
End If
End Sub
Function XtoD(x As Integer, s As String) As Integer
Dim j As Integer
j=0
For i=Len(s) To 1 Step -1
XtoD=XtoD+Val(Mid(s, i, 1)) * x ^ j
  ____③____
Next i
End Function
同课章节目录