学进去

给出只包含加、减、乘、除中一个运算符的算术等式，求该算术等式中的最小进制。如等式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
  ③  

Next i

End Function

编写VB程序，实现如下功能：在左边的文本框Text1中输入字符，单击“加密”按钮Command1时，逐个字符进一行加密，加密过程是：先在“加密表”m中找到相应字符，再得到其所对应位置的密钥Text3（下方），并在右边的文本框Text2中显示密文，运行效果如图所示。本题不考虑解密问题。

实现上述功能的VB代码如下：
（1）如图所示，若将Text3中的密钥改为：“I. am. a. good. student. from. Zhejiang”（不含双引号），文本框Text1中依然输入“zjks”，单击“加密”按钮Command1，则在文本框Text2中显示的是___________。
（2）请在划线处填入合适代码。
Private Sub Command1_Click（）
Dim s As String， m As String
Dim t As String
s1=Len（Text3.Text）
If sl<26 Then
Text2.Text=“请重新输入密钥！”

Exit Sub

End If
s=Text1.Text
n=Len（s）
For i=1 To n
k=Mid（s，i，1）
m= “abcdefghijklmnopqrstuvwxyz”
a=1：b=26
Do While a<=b
c=①____
If k= Mid（m，c，1） Then
Exit Do
End If
If ②___ Then
b=c-1
Else
a=c+1
End If
Loop
s3=Text3.Text
t=t+③___
Next i
Text2.Text=t
End Sub

编写VB程序，实现如下功能：在文本框Text1中输整数x，单击“查找删除”按钮Command1，在数组a（从小到大排列并显示在标签Label1中）中查找该数。若找到，则从数组a中删除该数（该数后的数组元素都往前移一位），并在标签Label2中显示删除后的结果（运行效果如图所示）；否则在标签Label2中显示“该数没有找到”。

请在划线处填入合适代码。
Dim a(1 To 10) As Integer
Private Sub Form_Load()
'产生10个升序的随机数并显示在Label1,代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, k As Integer
Dim x As Integer, f As Boolean, s As String
x=Val(Text1.Text)
i=1:j=10:f=False
Do While ①____
m=(i+j)\2
If a(m)=x Then
f=True
ElseIf ②___ Then
i=m+1
Else
j=m-1
End If
Loop
If f=True Then
For k=m To 9
③____
Next k

For k=1 To 9      '逐个显示删除后的数组元素

s=s+Str(a(k))+ ""
Next k
Else
s="该数没有找到"
End If
Label2.Caption=s
End Sub

小王创作主题为“国学启蒙”的多媒体作品，结合下表和下图，请回答下列问题：

场景：主界面	类别序号：1
呈现方式： 1.“国学启蒙”四字显示在舞台左上方 2.“弟子规”、“三字经”、“百家姓”三个按钮出现在舞台中间 3.背景音乐、弟子规、三字经、百家姓四段音频分别 添加在“诵读”图层第1、26、27、28帧 4.背景从头至尾呈现，动画播放至最后自动停止		呈现顺序说明： 1.一开始出现背景、飞鸟，背景音乐，并依次出现“国学启蒙”四个字 2.2秒后出现“弟子规”、“三字经”、“百家姓”按钮并停止动画播放，分别单击“弟子规”、“三字经”、“百家姓”三个按钮，仅播放本场景第26帧、27帧、28帧中对应应的弟子规、三字经、百家姓音频

 

（1）上表属于多媒体作品脚本设计中的________。（单选，填字母：A.脚本大纲/B.文字脚本/C.制作脚本/D.媒体元素分解）
（2）在制作本作品时，至少使用了________（填数字）类元件。
（3）在当前状态下，将“飞鸟”元件从库中拖至舞台，则下列说法正确的是________。（单选，填字母：A.“飞鸟”元件将出现在“国学启蒙”图层第25帧中/B.“飞鸟”元件将出现在“飞鸟”图层第25帧中/C.“飞鸟”元件将出现在“飞鸟”图层第1帧中/D.“飞鸟”元件将无法添加至舞台）
（4）为保证听取完整音频，则“诵读”图层第27帧中声音同步方式应设置为________。
（5）根据制作脚本要求，单击“三字经”按钮实现仅播放本场景第27帧中的“三字经”音频，并停止播放动画，则该按钮上应添加的脚本命令为on(press){________}。
（6）测试场景时，“背景”图层内容没有在一开始就显示，为实现背景从头到尾显示，下列操作方法可行的有________。（多选，填字母：A.选中“背景”图层第1帧执行“清除关键帧”操作/B.删除“背景”图层第1帧到第6帧/C.选中“背景”图层第7帧执行“复制帧”操作，在第1帧执行“粘贴帧”操作/D.将“背景”图层第7帧移到第1帧）

用一个5行6列的矩阵表示地图，分别用a数组元素表示，第1行从左到右为a(1)到a(6)，依次类推右下角为a(30)。其中数字0表示不通，数字1表示畅通。现在要从左上角到右下角寻找一条通的路径、线路规则如下：
1）路线每个位置只能向右或向下；
2）任何一个岔口优向右走，右侧不通再向下走；
3）一条路线中每个位置只能走一次，不能重复算法思路。探路过程中，记录每个位置坐标到数组lu；遇到岔路口（向右向下都通），则记录路口坐标到数组cha；遇到前方无路时，需要返回到上一个路口，标记路口右侧不通；当前方无路，岔路口数组也退回到0，说明整体不通否则根据规则走到右下角为止，最后输出整体线路坐标。实现算法的程序如下，运行结果如图所示。

回答下列问题：
（1）根据规则，如图迷宫矩阵，将第1行第3列值修改为0，正确路线的第6个位置是a数组的第_______个元素。（填数字）
（2）在程序划线处填上合适代码，使程序完整。
Dim a(1 To 50) As Integer
Private Sub Form_Load()
’生成图形矩阵的数组a各个元素，并在列表框显示，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, pos As Integer
Dim cha(1 To 10) As Integer’记录一条线路中各个岔路口
Dim lu(1 To 10) As Integer’记录路线经过的位置
pos=1:j=0:lu(1)=1:i=1
Do While<=9’第1个和最后1个固定，中间有9个需要路过的路径点

If pos Mod 6<> 0 And a(pos+1)=1 Then’向右畅通

If pos+6<=30 And a(pos+6)=1 Then’记录岔路口

j=j+1
_________
End If
pos=pos+1
i=i+1
_________
ElseIf pos+6<=30 And a (pos+6)=1 Then’向下畅通
pos=pos+6
i=i+1
lu(i)=pos
Else’坐标退回到上一个岔路口
If j=0 Then Exit Do
Do While lu(i)<>cha(j)
_________
Loop
a(cha(j)+1)=0’标记此路口右侧不可用
pos=cha(j)
j=j-1

End If

Loop
Text1.Text=“”
If j=0 Then

Text1.Text= “没有畅通道路”

Else

For i=1 To 10

Text1.Text=Text1.Text+Str(lu(i))

Next i

End If
End Sub

数组a中存放着1到20间的正整数，要求对其中的元素进行分段排序，在文本框Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体界面如下图所示：

实现该功能的VB程序如下，请在划线处填入合适的代码：
Dim a (0 To 100) As Integer
Const high=16
Private Sub Form_Load()
’产生high个随机数，并显示在文本框Text1，代码略
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer
Dim m As Integer, n As Integer, k As Integer
m=Val(Text2.Text)
For i=1 To _________
c=“”
For j=1 To m-1
________
q=i*m
k=sort(p,q)
If a(k)<>a(q) Then
t=a(p):a(p)=a(k):a(k)=t
End If
________
Next j
Text3.Text=Text3.Text+ “”+c
Next i
End Sub
Function sort(f As Integer, g As Integer) As Integer
s=f
For i=f+1 To g
If a(i)>a(s) Then
_________
End If
Next i
sort=s
End Function

在美国国家信息交换码中，ASCII值从32到127是可以打印并显示的字符，把这96个字符随机调整次序，生成密码本。根据输入的密钥和明文，单击“加密”按钮Command1，输出密文。基本算法如下：
1）用数组mab分别记录1～96个字符的ASCII值，用数组zm记录对应字符在密码本中位置，如mab(9)=65，表示密码本中第9个字符是“A”，则对应的zm(65)=9；
2）把密钥中每个字符的ASCII值的各个数字进行累加（如Hi分别为(7+2)+(1+0+5)），将累加的和除以9取余数后加7，作为将密码本转换成二维表的列数；
3）每个明文在转换后二维表中位置作为密文，该位置是用十六进制表示的行号和列号。
程序运行的界面如下图所示：

实现上述功能的VB程序如下，请回答以下问题：
（1）若输入密钥为“AB”，则根据算法及密码本，字母“A”加密后的密文是____________。
（2）请在划线处填入合适的代码。
Dim Mab(96) As Integer ’存储密码本中每个字符的ASCII值
Dim zm(127) As Integer ’存储ASCII值32至127的字符在密码本数组mab中的下标
Private Sub Form_Load()
’产生密码本及96个字符在密码本中位置，代码略。
End Sub
Function p(s As String) As Integer
Dim i As Integer, t1 As Long
Dim sum As Integer, s1 As String
t1=0
i=1
Do While i<=Len(s)

s1=Mid(s, i, 1)

t1=Asc(s1)

________ 

i=i+1

Loop
p=sum Mod 9+7
End Function
Private Sub Command1_Click()
Dim i As Integer, t As Integer, hang As Integer
Dim s As String, s1 As String, Lie As Integer
List1.Clear
s1=Text1.Text
t=p(s1)
Label5.Caption= “将密码本换成一张”+Str(t)+ “列的二维表”
i=1
Do While i<=96
s=s+Chr(Mab(i))+ “”
If i Mod t=0 Or i=96 Then
List1.AddItem s
s= “”

End If

i=i+1

Loop
wz= “123456789ABCDEF”
s=Text2.Text
For i =1 To Len(s)
s1=Mid(s, i, 1)
_______
hang=(t1-1)\t+1
lie=(t1-1) Mod t+1
s2= _______
Next i
Text3.Text=s2
End Sub

小岩设计了一个顺时针旋转矩阵的程序，其功能为：运行程序时，在文本框Text1中输入矩阵规模n，点击“产生矩阵”按钮Command1，在列表框List1中显示一个n*n的矩阵，该矩阵数据由从1开始的连续自然数组成。点击“旋转矩阵”按钮Command2，该矩阵顺时针旋转90度并显示在列表框List2中，此后每点一次“旋转矩阵”按钮Command2，列表框List2中显示的矩阵顺时针旋转90度。请完成程序填空。

Dim n As Integer
Dim st As String
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Private Sub Command1_Click()
’产生矩阵，代码略
End Sub
Private Sub Command2_Click()   ’旋转矩阵
For i=1 To n                       ’行
st= “”
For j= 1 To n                   ’列
b((i-1)*n+j)= ________ 
st=st+adj(Str(b((i-1)*n+j)),3)
Next j
List2.AddItem st
Next i
End Sub
Function adj(a As String, n As Integer) As String
’在字符串a前加入适当的空格，使a的长度为n位，代码略
End Function

某同学用IE浏览器访问中学生科技网站（http：//www.zxskj.com），获取一些有关中学生科技制作方面的资料。请回答以下问题：
（1）该同学打开了“小论文”栏目中的“自制太阳灶”网页，他想以文本文件保存该网页中的文字。执行“文件”菜单中的“另存为”命令，出现“保存网页”对话框，在“保存类型”栏中（如图），应选择__________。

（2）假定他选择了“保存类型：网页，全部（*.htm；*.html）”并以“自制太阳灶”为文件名保存，则该网页中的图片会保存在__________________（选填“自制太阳灶.htm”或“自制太阳灶_files文件夹”，下同），而网页中的文字会保存在___________________中。
（3）该同学想将主页中的一张图片单独保存为一个图文件，他将鼠标移动到该图片上，单击鼠标右键，在出现的快捷菜单中则应选择_______________命令。
（4）为便于今后快速访问中学生科技网，可将该网站网址设为浏览器主页（如下图所示），则应在地址栏中输入_______________。

（5）该同学想收藏中学生科技网的网址，可以单击下图中_________________菜单再选择相应命令。

小王编写了一个VB程序，该程序的功能是：15个数形成环状，现要分别找出3个相邻的数：使其相加之和最大或最小。如15个数依次为：18，14，42，61，13，19，14，13，28，52，61，58，30，则相邻三数之和最大为62（30+18+14），相邻三数之和最小为31（4+26+1）。
                   
程序运行时，先随机生成15个[1，30]区间内的整数，存储在数组a(0)至a(14)，并在文本框Text1中显示；单击“计算”按钮Command1，则在标签Labe14中显示连续三数最大和，在标签Label5中显示连续三数最小和，程序运行界面如图所示。

实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n=14
Dim a(n) As Integer
Private Sub Form_Load()
'随机生成15个数,存储在数组元素a(0)～a(14)中,并显示在文本框Text1中
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim imax As Integer, imin As Integer
Dim smax As Integer, sum As Integer, smin As Integer
smax=0:smin=100
For i=0 To 14

j= ①____

k= ②____

 sum=a(i)+a(j)+a(k)

If sum>smax Then

smax=sum
imax=i

End If

If sum<smin Then

smin=sum
imin=i

End If

Next i
Label4.Caption=Str(smax)
Label5.Caption=Str(smin)
End Sub