2019浙江选考信息技术Vb基础专题.docx

Vb基础专题
一、 知识要点
Visual Basic基本概念
1、工程与窗体
一个应用程序的总称。工程文件名的后缀是．vbp。
应用程序最终面向用户的窗口。窗体文件名的后缀是．frm。
窗体是VB设计时的名称，当它在Windows下运行后就称为窗口。
2、对象及对象的三要素
（1）常见的控件

（2）常用控件简介
序号
控件名
控件简介
1
Label(静态标签)
显示用户不能直接改变的文本，一般与其他控件配合使用，或者作为提示内容出现。
2
TextBox(文本框)
供用户输入数据，主要应用其“Text”属性，例如：Text1.Text＝”欢迎使用”。
3
Commandbutton
(按钮控件)
用户可以直接更改按钮显示文本，主要事件为Click(鼠标单击)。
4
Image(图像框)
用户可以在属性窗口中自定义大小与默认加载图像位置。也可以在程序运行阶段使用函数LoadPicture()来实现。Stretch属性值为True时，图像会自动调整大小以适应图像控件的尺寸。
5
ListBox(列表框)
用户可以从列表框中的一系列的选项中选择一个或多个选项。如果选项的数量超过可显示的区域，列表框会自动增加滚动条。列表框可以是单列或多列的。主要事件为：DblClick(鼠标双击)。
6
Timer(计时器)
作用是定时产生一个时钟(Timer)事件，利用这个事件可以定期地做一些程序处理。用户可以自行设置每个计时器的时间间隔(Interal)。一般设置计时器控件的Enabled属性为True或False来打开或关闭Timer事件的产生。
（3）对象的属性
对象的属性是标识一个对象的所有特征，它实际上就是对象所属类的成员变量。
常用的公共属性
序号
属性名

1
Name(名称)
用于设置控件的名称，这个名称是用来标识该控件。
2
Font(字体)
用于设置控件中文字的所用的字体样式，字号和特殊显示方式等。
3
Text(文本)
用于设置可接受输入的控件中输入或显示的字符串。
4
Caption(标题)
用于设置控件的显示标题。
5
BackColor(背景色)
背景颜色。
6
Width(宽度)
用于设置控件的宽度。
7
Height(高度)
用于设置控件的高度。
8
interval(左边距)
用于设置计时器的时间间隔，单位为毫秒
9
enabled(顶边距)
用于设置是否可用
10
Visible(可视)
设置控件是否可见，如果设置为False则控件会消失。
属性的调用：对象名.属性名＝属性值
（4）对象的方法
对象的方法是指对象可以进行的操作，也就是对象的动作
常见方法：print、clear、additem
（5）对象响应的事件(事件驱动)
事件是在某种特定状态下由系统触发的方法。事件驱动是指用VB开发的应用程序的运行，是通过事件来驱动的。事件过程的一般格式如下：
PrivateSub 对象名称＿事件名称（）
……
事件响应程序代码，我们写的
……
EndSub
3、VB常量、变量、数组及定义 常用函数
（1） 常用的数据类型
数据是信息的一种记录形式。在VB中，数据可以按照本身的特性分为若干种不同的类型，常见类型见下表：

（2）常量
数据总是以常量或变量的形式出现在程序中。常量是在程序运行过程中值不变的存储单元或数据。在VB中，常量有整数常量、实数常量、字符串常量和逻辑常量等类型。
常量的定义方法：Const 常量名＝数值
假如：“Const pi ＝ 3.14”，就是定义了一个常量pi，在这个程序中出现的所有pi都会被VB自动转换成3.14。
（3）变量
变量是用来表示数据的存储区，也就是存放数据的容器。
VB变量定义的方法：Dim 变量名 As 数据类型
例如：Dim a As Integer，即将a 定义为整数型变量。如果定义两个或 两个以上的同类型变量，可以用语句：Dim a, b As Integer，就是定义了a，b两个整数型变量。
变量定义时，变量的取名有一定的限制，变量的名称跟对象名取名规则相同，都是由字母、数字和下划线组成，必须是字母开头，VB系统中已使用的字符不能作为变量名，比如：Dim String As Integer，该语句错误，因为String是数据类型名，不能再作为变量名了
（4）数组变量
数据是由一批同类型的变量构成的一个序列，组成数组的每一个变量被称为数组的元素，也称为下标变量，下标是一个整数，用来指出某个元素在数组中的位置。
一维数组变量定义的常用形式为：Dim 数组变量名(a1 To a2) As 元素的类型
二维数组变量定义的常用形式为：Dim 数组变量名(a1 To a2， b1 To b2) As 元素的类型
一般情况下，数组变量都采用循环语句进行赋初值。
注意：注释是以英文单引号(')开头的一串文字，可以出现在程序中需要说明的位置上，通过这一串文字，对附近的程序段进行简要的说明，增加程序的可读性。注释对程序的执行效果没有任何影响，程序运行时自动跳过注释。
（5）常用的标准函数

6、VB表达式及基本运算
一个表达式中可能包括算术运算、关系运算和逻辑运算等多种基本运算，以及运算所涉及的数据(变量和常量)、常用标准函数等。
各种基本运算的符号及优先级别见下表：

注意：关系运算和逻辑运算的结果只有True或False，其中逻辑运算中“非”运算就是取反，比如Not True的结果就是False。“与”运算只有运算符的两边都是True，结果才是True。就是说表达式a And b，只有a和b都是True的情况下结果才是True，否则结果为False。“或”运算只要运算符的两边有一边的值是True，则结果就是True。比如表达式a Or b，只要a、b中有一个是True，则结果就是True，只有a和b都是False，结果才是False。
7、顺序语句、选择语句、循环语句
（1）顺序语句
顺序结构的执行顺序是自上而下，依次执行。大多数情况下顺序结构都是作为程序的一部分，与其他结构一起构成一个复杂的程序。
赋值语句
赋值语句的作用是把赋值号(等号)右边表达式的计算结果存储到赋值号左边的变量或某个特定的对象属性中，其格式如下：
变量名＝表达式 或 对象名.属性名＝表达式
例如有语句：A＝1＋2*3，执行完该语句就将等号右边表达式结果赋值给变量A。
注意：VB程序中，可以在一行上写一个语句，也可以在一行上写多个语句，一行上相邻两个语句之间用冒号(：)分隔。
（2）选择语句
a、行If语句
行If语句必须在一行内写完。行If语句格式如下：
If 条件表达式 Then 语句1 Else 语句2 或
If 条件表达式 Then 语句
b、块If语句
If 条件表达式1 Then　
　语句块1
Else　
　语句块0
End If
多条件：
If 条件表达式1 Then　
　语句块1
ElseIf 条件表达式2 Then
　语句块2
……
ElseIf 条件表达式n Then
　语句块n
Else　
　语句块0
End If
（3）循环语句
a、For循环语句
通过次数控制循环的计算过程。For语句主要用于循环次数已知的情况，因次，也被称为计数循环。For语句的一般格式如下：
For 循环变量＝初值 To 终值 Step 步长　
　循环体语句块
Next 循环变量
For语句中步长可以是正数，也可以是负数，但不可为0。默认的步长为1，即“Step 1”。Next后面的循环变量与For语句中的循环变量必须一致，执行该语句时循环变量的值增加一个步长值。
注意：一般不要在循环体内修改循环变量的值，否则会造成循环次数的不准确，而且程序调试也非常困难。
如果在循环体内强行退出循环，可用“Exit For”语句。
b、Do循环语句
通过条件控制循环的计算过程。一般情况下，For语句都可以用Do语句来代替，而且在某些情况下，如果事先不知道循环应该执行的次数，但知道在什么条件下需要循环，则不能用For语句而必须用Do语句。因此，Do语句的适用面比For语句要广。Do语句的常用格式如下：
Do While 条件表达式　
　循环体语句块
Loop
注意：如果想在Do循环语句中强行退出循环，可用“Exit Do”语句。
8、解析算法
解析算法是指用解析的方法找出问题的前提条件与所求结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。例如：计算以速度作匀速直线运动的一个物体，在t秒内经过的距离s，可通过公式s＝vt得到。
9、枚举算法
枚举算法也称穷举算法，就是按照问题本身的性质，一一列举该问题所有可能的解，并在逐一列举的过程中，检验每个可能解是否问题真正的解。若是，就采纳这个解，否则就抛弃它。在列举的过程中，既不能遗漏，也不能重复。比如，要求一个二元一次不定方程的所有正整数解，就可以采用枚举算法。
1、（2015年10月）.编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如第14题-1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。

第1题-1图 第1题-2图
（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（第14题-2图) 中将 属性的属性值 修改为“转换”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If ① Then '(选填字母,从下列A、B、C、D四个选项中选取一项）
t = t1: t1 = t2: t2 = t
End If
i = t1
Do While ② '(选填字母,从下列A、B、C、D四个选项中选取一项）
f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
③ '（填程序代码）
Loop
End Sub
划线①、②处的选项:
A.i <= t2 B.f <= t2 C.t1 > t2 D. i < f
2、（2016年4月）编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。

（1）代码“Private Sub Command1_Click()”中的Click是 。（单选，填字母：A.对象名/B.属性名/C.事件名）
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim i As Integer, n As Integer
Dim c1 As String, s1 As String
Dim c2 As String, s2 As String
Dim c3 As String, s3 As String
List1.Clear
s1 = "甲乙丙丁戊己庚辛壬癸"
s2 = "子丑寅卯辰巳午未申酉戌亥"
s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
n = Val(Text1.Text)
For i = n To ①
a = (i + 6) Mod 10
b = (i + 8) Mod 12
c1 = Mid(s1, a + 1, 1)
c2 = Mid(s2, b + 1, 1)
c3 = Mid(s3, b + 1, 1)
List1.AddItem ② + "年" + c1 + c2 + " " + c3
Next i
End Sub
（3）由上述算法可知，2024年对应的“天干地支”为 。
3、（2016年10月）编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Command1，在列表框List1中显示n个两数之和小于100的加法练习题。程序运行界面如图a所示。

图a 图b
（1）在设计程序界面时，应使用图b所示“控制工具箱”中的 （填写相应编码）添加“生成”按钮。
（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer, b As Integer
Randomize
n = Val(Text1.Text)
i = ①
Do While i <= n
a = Int(Rnd * 100)
b = Int(Rnd * 100)
If ② Then
List1.AddItem "(" + Str(i) + " )" + Str(a) + "+" + Str(b) + "="
i = i + 1
End If
Loop
End Sub
4、（2017年4月）奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t = ①
s = Str(a) + s
Loop
v = t Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" + ②
End Sub
5、（2017年11月）编“字符串生成”程序，实现如下功能：在文本框Text1中（字符位置)输入多个正整数 (以“，”为分割符和结束符），单击“生成”按钮Command1,程序以这些整数为位置信息，依次从文本框Text2中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签Label1中（生成内容）。程序运行界面如下图所示。

(1) 要使程序运行时，窗体Form1标题显示“字符串生成”，可在Form_Load事件过程屮添
加语句 (单选，填字母:A.Form1 = "字符串生成" / B.Forml.Text="字符串生成"
/ C. Form1.Caption="字符串生成"）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, t As String, c As String
Dim i As Integer, p As Integer
s = "": t = ""
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c = "," Then
p = Val(t)
s = s + Mid(Text2.Text, p, 1)
t = ""
Else
t = ①
End If
Next i
Label1.Caption = ②
End Sub
（3）若文本框Text1中输人内容的结束符缺失（即输人内容为1,18,9,9)，单击“生成”按钮后，标签Label1中显示的内容是 。
6、（2018年4月）某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序,将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在 文本框Text1中输入连续多组编码，单击“翻译”按钮Commandl，结果显示在列表框List1中。
程序运行界面如右图所示。

（1）要使程序运行时，文本框Text1的Width属性值为2018，可在Form_Load事件过程中添加语句 （单选，填字母：A. Width=2018 / B.Textl. Width = 2018 / C. Width. Textl=2018）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, c As String, d As String
Dim n As Integer, bl As Integer, b2 As Integer, v As Integer, i As Integer
s = Textl.Text: n = Len(s): i = 1
Do While i <= n
c = Mid(s, i, 2)
If c = "00" Then
d = "东"
ElseIf c = "01" Then
d = "南"
ElseIf c = "10" Then
d = "西"
Else
d = "北"
End If
b1 = Val(Mid(s, i + 2, 1))
b2 = Val(Mid(s, i + 3, 1))
v= ①
List1.AddItem d + " " + Str(v)
②
Loop
End Sub
1、运行下列VB程序，在文本框Text1中输入15，,界面如图所示。

单击“开始”按钮Command1后，标签Label1中显示的内容是 ，文本框Text2中显示的内容是 。
Private Sub Command1_Click()
Const x = "转换成八进制数为"
Dim y As Integer '用于存储输入的十进制自然数
Dim s As String '用于存储转换后的结果
Dim r As Integer
y = Val(Text1.Text)
s = ""
Do While y <> 0 '采用除八取余法
r = y Mod 8
s = Str(r) + s
y = y \ 8
Loop
Label1.Caption = Text1.Text + x
Text2.Text = s
End Sub
2、某地出租车计价方式如下：3公里内（包括3公里）起步价10元； 超过3公里，但10公里内，则3公里内收费10元，超出部分每公里2元；如果超过10公里，则10公里内收费24元，超出部分每公里3元。其程序实现如下：
Private Sub Command1_Click( )
x=Val(Text1.Text)
If x<=3 Then
y = 10
ElseIf (1) Then
y=10+(x-3)*2
Else
y = (2)
_____(3)_________
Label1.Caption = Str(y)
End Sub
请把上面程序补充完整。
3、体质指数（BMI）是目前国际上常用的衡量人体胖瘦程度以及是否健康的一个参考标准，其计算公式是：体质指数（BMI）= 体重 ÷ 身高2
体质指数
＜18.5
18.5-26
≥26
结果
偏瘦
正常
肥胖
现要求编写VB程序(运行界面如图所示），实现如下功能：在文本框Text1中输入体重（kg），文本框Text2中输入身高（m），单击“判定”按钮Command1，在标签Label1中输出判断结果。相应的Visual Basic程序如下，请在画线处填入适当的语句或表达式，把程序补充完整：
Private Sub Command1_Click()
Dim w As Single,h As Single,b As Single
w=Val(Text1.Text)
h= __________①_____________
b= __________②___________
If b<18.5 Then Label1.Caption=“偏瘦”
If ________③_______ Then Label1.Caption=“正常”
If b>=26 Then Label1.Caption=“肥胖”
End Sub
4、有如下 VB 程序:
Private Sub Command1_Click()
Dim s1 As String, s2 As String, i As Integer,ch As String
s1 = Text1.Text
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If Asc(ch) >=65 And Asc(ch)<＝90 Then
ch = Chr(Asc(ch) + 3)
End If
s2 =ch+s2
Next i
Label1.Caption = s2
End Sub
已知大写字母 A 的 ASCII 码为 65。运行上述程序，若文本框 Text1 中的内容为 “A1b2C3”，单击命令按钮 Command1，标签 Label1 中显示的是（ ）
A．A1b2C3 B．3C2b1A C．D1b2F3 D．3F2b1D
第5题图
5、有一个函数f，这个函数的参数是两个字符串s1、s2，这两个字符串必须长度相同并且由小写字母组成。函数的输出是一个与s1、s2长度相同的字符串s，字符串s的第i个字符为字符串s1、s2的第i个字符中小的那个，比如：f("ab", "ba") = "aa"， f("nzwzl", "zizez") = "niwel"。编写VB程序，模拟上述函数的功能：在文本框Text1中输入字符串参数x，在文本框Text2中输入字符串参数y，单击“计算”按钮Command1，在文本框Text3中输出函数f(x,y)的值。运行界面如第5题图所示。
（1）在设计程序界面时，要使窗体的标题显示为：有趣的函数，则应修改窗体的 属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim f As String, x As String, y As String
x = Text1.Text
y = Text2.Text
f = ""
If Len(x) <> Len(y) Then
Text1.Text = "请输入符合要求的字符串！"
Text2.Text = "请输入符合要求的字符串！"
Else
For i = 1 To Len(x)
If ① Then
f = f + Mid(y, i, 1)
Else
f = f + Mid(x, i, 1)
End If
Next i
②
Text3.Text = f
End Sub
（3）运行该程序，在文本框Text1中输入flash，在文本框Text2中输入excel，单击“计算”按钮Command1，则文本框Text3中显示 。
6、第一代二十世纪出生的公民身份证号码由15位阿拉伯数字组成：1-2位省、自治区、直辖市代码；3-4位地级市、盟、自治州代码；5-6位县、县级市、区代码；7-12位出生年月日, 例如670401代表1967年4月1日；其中第15位单数为男，双数为女。
现编写VB程序，实现如下功能：在文本框Text1中输入15位身份证号码，单击“判断”按钮Command1，在列表框Text2和Text3中分别输出该身份证号码对应的出生日期、性别，运行界面如图所示

第6题
（1）在设计程序界面时，要使按钮Command1显示“判断”，应修改按钮的________ 属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim sf As String, c As Integer, sex As String
Dim t1 As Integer, t2 As Integer, t3 As Integer, t4 As Integer
sf = Text1.Text
c = Len(sf)
If c = 15 Then
t1 = Val(Mid(sf, c, 1))
t2 = ①
t3 = Val(Mid(sf, 9, 2))
t4 = Val(Mid(sf, 11, 2))
If ② Then
sex = "男"
Else
sex = "女"
End If
End If
Text2.Text = Str(t2) + "年" + Str(t3) + "月" + Str(t4) + "日"
Text3.Text = Val(sex) ③
End Sub
（3）运行该程序，出现错误提示“类型不匹配”，则③处应修改为 。
7、“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于四位数本身。如自然数1634就是一个“四叶玫瑰数”，因为14+64+34+44=1634。编写一个程序，实现如下功能：单击“找寻”按钮Command1后，在列表框List1中显示找到的所有“四叶玫瑰数”，并在标签Label3中显示玫瑰数的个数。
（1）在设计程序界面时，应使用图b中的______________（填写相应编号）添加按钮。
图a 图b
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim I As Integer, count As Integer
Dim a As Integer, b As Integer, c As Integer, d As Integer
count = 0
for i= 1000 to 9999
a= i \1000
b=__________①_________
c= Int((i - a * 1000 - b * 100) / 10)
d= i - a * 1000 - b * 100 - c * 10
If__________②___________Then
List1.AddItem Str(i)
count = count + 1
End If
Next i
Label3.Caption="共有四叶玫瑰数："+________③__________
End Sub
8、编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击命令按钮Command1，在文本框Text2中显示对应的二进制编码，运行界面如下图所示，程序代码如下。
（1）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim x As Integer, s As Integer
Dim y As String
x = ①
If x = 0 Then
Text2.Text = ②
Else
Do While x > 0
s = x Mod 2
x = Int(x / 2)
y = ③
Loop
Text2.Text = y
End If
End Sub
（2）“Command1_Click()”中的“Click”是 （选填：对象名/属性名/事件名）。
9、编写VB程序，实现如下功能：在文本框Text1中输入一个不大于10000的正整数n，单击“分解”按钮Cmd1，在标签Label2中显示n的质因数分解结果。运行界面如图a所示，程序代码如下。

图a
（1）代码“Private Sub Cmd1_Click()”的事件过程名是______________________________。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Cmd1_Click()
Dim n As Long, m As Long
Dim st1 As String
n = Val(Text1.Text)
st1 = ""
m = 2
Do While n > 1
If n Mod m = 0 Then
n = ①
If st1 = "" Then
st1 = Str(m)
Else

st1 = st1 + "×" + Str(m)
End If
Else
②
End If
Loop
Label2.Caption = st1
End Sub
（3）若将程序中虚线框处代码改为“st1 = Str(m) + "×" + st1”，在文本框Text1中输入“70”，单击“分解”按钮，则在标签Label2中显示的内容为__________________________________。
10、编写VB程序,实现如下功能：在文本框Text1中输入自然数n，单击“产生n个随机数,并求和与最大数计算”按钮Command1，则在列表框List1中输出n个小于100的随机整数，并输出n个随机数的和与最大值，界面如下图所示。
（1）观察运行界面，选项中没有用到的控件是
( 选项A． B． C． D．)。
（2）设计该窗体界面时，需要将窗体form1的 属性设置为“最大随机数”。

（3）请完善下列程序代码：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim s As Integer
Dim max As Integer
n = Val(Text1.Text)
i = 1
Do While i <= n
a(i) = Int(Rnd * 100)
List1.AddItem Str(a(i))
s = s + a(i)
__________________
Loop
max = a(1)
For i = 2 To n
If a(i) > max Then __________________
Next i
List1.AddItem "和为：" + ___________________
List1.AddItem "最大值为：" + Str(max)
巩固练习
1.① 15转换成八进制数为
② 17
2. ①x<=10
②24+（x-10）*3
③End If
3. ①Val(Text2.Text)
② w/h^2
③ b>=18.5 and b<26
4.D
5.（1）Caption
（2）①Mid(x,i,1)> Mid(y,i,1)
②End If
（3）elaeh
6.（1）Caption
（2）①Val(“19”+Mid(sf, 7, 2))
②t1 mod 2=1
（3）Text3.Text = Str(sex)
7.（1）③
（2）① i \ 100 mod 10
② i=a^4+b^4+c^4+d^4
③Str(count）
8.（1）① Val（Text1.Text）
② 0
③ s+y
（2）事件名
9.（1）Cmd1_Click
（2） ① n\m
②m=m+1
（3）7x5x2
10、（1）C
（2）Caption
（3）① i=i+1
② max=a(i)
③ Str(s)