IflstPending.Selected（k）=TrueThen
lstSelected.AddItemlstPending.List（k）
lstPending.RemoveItemk
EndIf
k=k+1
Wend
EndSub
PrivateSubcmdRemove_Click（）
lstPending.AddItemlstSelected.Text
lstSelected.RemoveItemlstSelected.ListIndex
EndSub
第七题：
打开指定文件夹下的工程文件是vbsj3.vbp，窗体上已经添加部分控件和程序代码，程序运行时的界面如图所示。
要求：
（1）在设计模式下为窗体添加“通用对话框”控件，名称为CommonDialog1；
（2）在“设置字体”按钮的“Click”事件中将代码补充完整，程序执行时能够对文本框控件（名称为txtSample）中的文本利用打开的“通用对话框”窗口将字体、字号、下划线、颜色分别设置为“楷体”、“四号”、“加下划线”、“红色”效果。
注意：
1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
OptionExplicit
PrivateSubcmdFont_Click（）
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects
CommonDialog1.ShowFont
txtSample.FontName=CommonDialog1.FontName
txtSample.FontSize=CommonDialog1.FontSize
txtSample.FontUnderline=CommonDialog1.FontUnderline
txtSample.ForeColor=CommonDialog1.Color
EndSub
第八题：
打开指定文件夹下的工程文件vbsj3.vbp，窗体上已添加全部控件。
程序的功能是根据文本框（名称为txtInput）中输入的内容，当单击“统计个数”命令按钮时，分别统计“数字”、“大写字母”、“小写字母”的个数，并将统计的结果分别显示在文本框控件数组（名称为txtNumber）中。
窗体文件中的程序代码并不完整，请将代码中的注释符去掉，并将其中的?
修改为正确的代码，保证程序能够正常运行。
注意：
1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
OptionExplicit
PrivateSubcmdCounting_Click（）
DimnAsInteger,iAsInteger,kAsInteger
Dima（3）AsInteger,sAsString
s=RTrim（txtInput.Text）
n=Len（s）
Fori=1Ton
k=Asc（Mid（s,i,1））
SelectCasek
Case48To57
a（0）=a（0）+1
Case65To90
a
（1）=a
（1）+1
Case97To122
a
（2）=a
（2）+1
EndSelect
Nexti
Fori=0To2
txtNumber（i）.Text=a（i）
Nexti
EndSub
PrivateSubForm_Load（）
EndSub
第九题：
在指定文件夹下有大小完全相同的两个图片文件，名称分别为p1.jpg和p2.jpg；已经创建的窗体文件为vbsj3.frm，相应的工程文件为vbsj3.vbp。
打开指定文件夹下的该工程文件vbsj3.vbp，窗体的名称为Form1，并已添加两个图片框控件和一个命令按钮控件，两个图片框控件的名称分别为Pic1、Pic2，命令按钮控件的名称cmdChange，标题为“交换图片”。
要求：
（1）使用属性窗口，分别为两个图片框控件Pic1和Pic2加载考生文件夹下的图片文件p1.jpg和p2.jpg，并设置两个图片框控件自动与图片p1.jpg和p2.jpg具有相同的大小，程序运行时的界面如图所示。
（2）在命令按钮cmdChange的Click事件中编写代码，当单击该命令按钮时，将两个图片框控件Pic1、Pic2已经加载的图片交换显示（交换时，不能再重新加载图片文件）。
注意：
1.程序中不得使用任何变量，也不能使用第三个图片框或图像框控件，不能修改程序的其他部分和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
OptionExplicit
PrivateSubcmdChange_Click（）
Form1.Picture=Pic1.Picture
Pic1.Picture=Pic2.Picture
Pic2.Picture=Form1.Picture
Form1.Picture=LoadPicture（""）'该语句也可以没有
EndSub
第十题：
打开指定文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上建立一个名称为txtDisplay的文本框，然后建立一个名称为mnuList的主菜单，其子菜单项有三个，名称分别为mnuOil、mnuFood、mnuEgg，它们的标题分别为“食用油”、“米面”和“鸡蛋”。
程序运行后，界面如图所示。
如果选择“食品列表”的下拉菜单项“食用油”，则在文本框txtDisplay中显示“保质期18个月”；如果选择“米面”，则在文本框中显示“保质期12个月”；如果选择“鸡蛋”，则在文本框中显示“保质期1个月”。
注意：
1.不能使用任何变量，直接显示要求的字符串；不能修改程序的其他部分和不要求操作的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
OptionExplicit
PrivateSubmnuEgg_Click（）
txtDisplay.Text="保质期1个月"
EndSub
PrivateSubmnuFood_Click（）
txtDisplay.Text="保质期12个月"
EndSub
PrivateSubmnuOil_Click（）
txtDisplay.Text="保质期18个月"
EndSub
第十一题：
打开指定文件夹下的工程文件vbsj4.vbp，窗体的功能是在组合框cboDivisor选中一个数作为起始值，单击“计算”按钮cmdCalc时，先使用输入对话框输入一个不大于5000的整数，然后计算该整数所有大于起始值的因数之和，并将求和的结果显示在名称为txtResult的文本框中。
程序运行时的界面如图所示。
（1）使用属性窗口为组合框cboDivisor添加三个列表项，分别为数字3、7、11；
（2）修改窗体文件的代码，将其中的注释符号去掉，并把?
修改为相应的正确程序代码，保证程序能正常运行。
注意：
1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
OptionExplicit
PrivateSubcmdCalc_Click（）
DimnDividendAsInteger,nDivisorAsInteger,iAsInteger
DimSumAsLong
Sum=0
nDividend=Int（Val（InputBox（"请输入一个小于5000的整数作为被除数!
","输入",3000）））
nDivisor=Int（Val（Trim（cboDivisor.Text）））
Fori=nDivisor+1TonDividend
IfnDividendModi=0Then
Sum=Sum+i
EndIf
Next
txtResult.Text=Sum
EndSub
第十二题：
打开指定文件夹下已经创建好工程文件vnsj4.vbp。
程序运行时，在窗体的Activate事件过程中生成圆的12个刻度点，另有长、短2条直线，名称分别为linLong、linShort，起点的坐标分别为圆心的坐标x0、y0，如图所示，用以模拟时钟的指针移动。
当单击“开始”按钮，则每隔0.5秒长指针顺时针转动一个刻度，短指针顺时针转动1/12个刻度（即长指针转动一周，短指针转动一个刻度）；当单击“停止”按钮，两个指针都停止转动。
在窗体文件中已经给出了全部控件，但程序不完整，请去掉程序中得注释符，把其中的?
修改为正确的内容。
提示：
程序中的常量x0、y0是圆心到窗体左上角的距离，可看作圆心的坐标；radius是圆的半径；pi是圆周率。
变量nHourLen、nMinuteLen分别为长指针和短指针的长度。
注意：
1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
OptionExplicit
Constx0=1200,y0=1200,radius=1000
PrivateaAsInteger,bAsInteger,nMinuteLenAsInteger,nHourLenAsInteger
PrivateSubcmdStart_Click（）
Timer1.Enabled=True
EndSub
PrivateSubcmdStop_Click（）
Timer1.Enabled=False
EndSub
PrivateSubForm_Activate（）
DimkAsInteger,aAsInteger,bAsInteger
DimxAsInteger,yAsInteger
Timer1.Enabled=False
Fork=0To359Step30
x=radius*Cos（k*3.1415926/180）+x0
y=y0-radius*Sin（k*3.1415926/180）
Form1.Circle（x,y）,20
Nextk
a=90
b=90
nHourLen=linLong.Y1-linLong.Y2
nMinuteLen=linShort.Y1-linShort.Y2
linLong.X1=x0
linLong.Y1=y0
linShort.X1=x0
linShort.Y1=y0
EndSub
PrivateSubTimer1_Timer（）
a=a-30
linLong.X2=nHourLen*Cos（a*3.11415926/180）+x0
linLong.Y2=y0-nHourLen*Sin（a*3.1415926/180）
b=（a-30）/12
linShort.X2=nMinuteLen*Cos（b*3.1415926/180）+x0
linShort.Y2=y0-nMinuteLen*Sin（b*3.1415926/180）
EndSub
第十三题：
在指定文件夹下已经创建窗体文件vbsj4.frm，相应的工程文件为vbsj4.vbp。
打开工程文件vbsj4.vbp，程序运行时，单击“开始”按钮，则图像从左向右每0.5秒移动一次移动，同时滚动条的滑块也随之移动，当图像完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动；若单击“停止”按钮，则图像停止移动，如图所示。
要求：
（1）利用属性窗口，从考生文件夹下为图像框控件添加相应的图片，图片文件的名称为EARTH.ICO。
（2）
升级会员 