二
（2）在fun（）函数中需要加入语句：
FunctionFun（）
Fori=0To1000
IfiMod7<>0Then
Y=Y+1
EndIf
Nexti
Fun=Y
EndFunction
三画三个命令按钮控件，通过其属性窗口将名称分别设为C1、C2、C3，标题（Caption属性）分别设为“读入数据”、“计算”和“存盘”。
单击“读入数据”按钮：
PrivateSubC1_Click（）
ReadData1
ReadData2
EndSub
单击“计算”按钮：
PrivateSubC2_Click（）
DimArr3（20）AsInteger
DimSumAsInteger
Sum=0
Fori=1To20
Arr3（i）=Arr1（i）-Arr2（i）
Sum=Sum+Arr3（i）
Nexti
Print"Sum=";Sum
WriteData"dataout.txt",Sum
EndSub
第三十六套
一
（1）画一个文本框控件，通过其属性窗口将名称设为Text1，多行文本（MultiLine属性）设为True，文本框滚动条（ScrollBars属性）设为2，文本内容（Text属性）设为“程序设计”，点击Font属性在弹出的字体对话框中将字体设为“黑体”，大小设为“三号”。
激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“设置文本框属性”。
一
（2）画二个命令按钮，通过其属性窗口将名称分别设为Cmd1和Cmd2。
单击“Cmd1”按钮：
PrivateSubCmd1_Click（）
Cmd1.Left=0
Cmd1.Top=0
EndSub
单击“Cmd2”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCmd2_Click（）
Cmd2.Width=Cmd2.Width*2
Cmd2.Height=Cmd2.Height*2
EndSub
二
（1）在命令按钮的PrivateSubCommand1_Click（）事件过程中
1）将语句
'arrN（i）=Int（Rnd*?
）
改为
arrN（i）=Int（Rnd*1000）
2）将语句
'?
=arrN
（1）
改为
Max=arrN
（1）
3）将语句
'If?
Then
改为
IfarrN（i）>MaxThen
二
（2）由于提供的Fun（）函数不完整，需添加语句，具体内容：
FunctionFun（）
Fori=1To1000
IfiMod5=0OriMod7=0Then
Y=Y+1
EndIf
Nexti
Fun=Y
EndFunction
三在窗体的PrivateSubForm_Click（）事件过程中
1）将语句
'Dim?
改为
DimMat（M,N）AsInteger
2）将语句
'OpenApp.Path&"\"&"datain.txt"?
As#1
改为
OpenApp.Path&"\"&"datain.txt"ForInputAs#1
3）将语句
'?
改为
Input#1,mat%（i,j）
4）将语句
'If?
ThenPrintTab（5*j）;Mat（i,j）
改为
If0=i-jThenPrintTab（5*j）;mat（i,j）
第三十五套
一
（1）画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为“打开文件”。
画一个通用对话框控件，通过其属性窗口将名称设为CD1，标题（DialogTitle属性）设为“打开文件”，Filter属性设为“文本文件|*.txt|所有文件|*.*”，FilterIndex属性设为2。
单击“打开文件”按钮：
PrivateSubCommand1_Click（）
CD1.ShowOpen
EndSub
一
（2）画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为“移动本按钮”。
单击命令按钮：
PrivateSubCommand1_Click（）
Command1.Left=Command1.Left-100
EndSub
二
（1）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“添加项目:
”。
画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空。
画一个组合框控件，通过其属性窗口将名称设为Combo1，向组合框中添加项目（List属性），添加的项目内容任意。
画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）设为“添加”、“统计”。
单击“添加”按钮：
PrivateSubCommand1_Click（）
Combo1.AddItemText1.Text
EndSub
单击“统计”按钮：
PrivateSubCommand2_Click（）
PrintCombo1.ListCount
EndSub
二
（2）在窗体的PrivateSubCommand1_Click（）事件过程中
1）将语句
'n=Val（Op1（k）.?
）
改为
n=Val（Op1（k）.Caption）
2）将语句
'Fork=1To?
改为
Fork=1Tom
3）将语句
'c=Mid$（Text1.Text,?
1）
改为
c=Mid$（Text1.Text,k,1）
4）将语句
'?
=a+c
改为
a=a+c
三执行“排序”命令：
PrivateSubC2_Click（）
DimkAsInteger,iAsInteger,jAsInteger,chAsString
Fori=1To49
k=i
Forj=i+1To50
Ifa（k）>a（j）Then
k=j
EndIf
Nextj
j=a（k）
a（k）=a（i）
a（i）=j
Nexti
ch=""
Fork=1To50
ch=ch+Str（a（k））+""
Nextk
Text2.Text=ch
EndSub
在“取数”按钮的PrivateSubC1_Click（）中，
1）将语句
'Input#1,?
改为
Input#1,a%（k%）
2）将语句
'Text1.Text=?
改为
Text1.Text=ch$
第三十四套
一
（1）通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“文件”，名称处输入File，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“打开”、“关闭”，名称处分别输入Open和Close，将“关闭”按钮的“有效”单选按钮设为不选状态。
一
（2）画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2，文本内容（Text属性）均设为空，点击文本框的Font属性，其弹出的字体对话框中将字体均设为“隶书”。
改变Text1的内容（即运行Change事件过程），在该Change事件过程中加入语句：
PrivateSubText1_Change（）
Text2=Text1
EndSub
二
（1）执行“确定”命令（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
IfOp1.ValueThen
Text1.FontName=Op1.Caption
ElseIfOp2.ValueThen
Text1.FontName=Op2.Caption
EndIf
IfCh1.Value=1Then
Text1.FontUnderline=True
Else
Text1.FontUnderline=False
EndIf
IfCh2.Value=1Then
Text1.FontItalic=True
Else
Text1.FontItalic=False
EndIf
EndSub
二
（2）在窗体的PrivateSubCommand1_Click（）事件过程中
1）将语句
'CD1.?
="所有文件|*.*|文本文件|*.txt|Word文档|*.doc"
改为
CD1.Filter="所有文件|*.*|文本文件|*.txt|Word文档|*.doc"
2）将语句
'CD1.?
改为
CD1.ShowOpen
3）将语句
'Open?
ForInputAs#1
改为
OpenCD1.FileNameForInputAs#1
4）将语句
'?
改为
Close#1
三在窗体的PrivateSubC1_Click事件过程中
1）将语句
'Close?
改为
Close#1
另外在窗体的PrivateSubC2_Click事件过程中
2）将语句
'n=Len（?
）
改为
n=Len（Text1.Text）
3）将语句
'IfLeft（a（k）,?
）=Text1.TextThen
改为
IfLeft（a（k）,n）=Text1.TextThen
4）将语句
'c=c+""+?
改为
c=c+""+a（k）
5）将语句
'Text2.Text=?
改为
Text2.Text=c
第三十三套
一
（1）画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2，高（Height属性）分别设为300、1200，宽（Width属性）均设为2400，为实现在Text1中输入的字符都显示为“*”，将Text1的PasswordChar属性设为*，为实现在Text2中可以显示多行文本，且有垂直和水平两个滚动条，将Text2的MultiLine属性设为True，ScrollBars属性设为3。
激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“窗口”。
一
（2）画一个图像框控件，通过其属性窗口将名称设为Image1，高（Height属性）设为1900，宽（Width属性）设为1700，通过Picture属性装入pic1.bmp图像文件，为使图像能自动放大、缩小，将Stretch属性设为True。
画二个命令按钮控件，通过其属性窗口将名称分别设为C1、C2，标题（Caption属性）分别设为“放大”、“缩小”。
单击“放大”按钮：
PrivateSubC1_Click（）
Image1.Width=Image1.Width+100
Image1.Height=Image1.Height+100
EndSub
单击“缩小”按钮：
PrivateSubC2_Click（）
Image1.Width=Image1.Width-100
Image1.Height=Image1.Height-100
EndSub
二
（1）单击“计算”按钮：
PrivateSubCommand2_Click（）
'需考生编写
Max=a
（1）
Min=a
（1）
Fori=2To100
Ifisnarc（a（i））=TrueThen
Ifa（i）>MaxThenMax=a（i）
Ifa（i）EndIf
Next
Text1.Text=Max
Text2.Text=Min
EndSub
二
（2）画一个组合框控件，通过其属性窗口将名称设为cb1，向组合框控件添加列表项（List属性），添加的列表项分别为3、7、11，每个列表项为一行，顺序无关。
画一个文本框控件，通过其属性窗口将名称设为Text1。
画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“计算”。
单击“计算”按钮：
PrivateSubC1_Click（）
DimnAsInteger,kAsInteger,sAsLong
n=Val（Cb1.Text）
s=0
Fork=nTo5000
Ifk/n=Int（k/n）Then
s=s+k
EndIf
Nextk
Text1.Text=s
EndSub
三通过其属性窗口将Text3的Visible属性设为True。
通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“编辑”，名称处输入Edit，在该菜单下有三个子菜单，在菜单编辑器的标题处分别输入“剪切”、“复制”、“粘贴”，名称处分别输入Cut、Copy和Paste。
由于所提供的窗体程序不完整，在“编辑”主菜单的PrivateSubEdit_Click（）事件过程中
1）将语句
'Ifwhich=?
Then
改为
Ifwhich=1Then
2）将语句
'ElseIfwhich=?
Then
改为
ElseIfwhich=2Then
在“粘贴”子菜单的PrivateSubPaste_Click（）事件过程中
1）将语句
'Text1.Text=?
改为
Text1.Text=Text1+Text3
2）将语句
'Text2.Text=?
改为
Text2.Text=Text2+Text3
第三十二套
一
（1）画一个标签控件，通过其属性窗口将名称设为L1，标题（Caption属性）设为“请确认”。
画二个命令按钮，通过其属性窗口将名称分别设为C1和C2，标题（Caption属性）分别设为“是”和“否”，高（Height属性）均设为300，宽（Width属性）均设为800。
激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“确认”，最大化按钮（MaxButton属性）设为False，和最小化按钮（MinButton属性）设为False。
激活“是”按钮，通过其属性窗口将Default属性设为“True”。
激活“否”按钮，通过其属性窗口将Cancel属性设为“True”。
一
（2）画一个文本框控件，通过其属性窗口将名称设为Text1，宽度（Width属性）设为1000。
画一个滚动条控件，通过其属性窗口将名称设为HS1，最大值（Max属性）设为2000，最小值（Min属性）设为1000。
移动滚动条（即运行Change事件过程），在该Change事件过程中加入语句：
PrivateSubHS1_Change（）
Text1.Width=HS1.Value
EndSub
二
（1）在“添加”按钮的PrivateSubC1_Click（）事件过程中
1）将语句
'While（k）
改为
While（k2）将语句
'If?
.Selected（k）=TrueThen
改为
IfList2.Selected（k）=TrueThen
3）将语句
'List2.RemoveItem?
改为
List2.RemoveItem
升级会员 