常出现填空题

《常出现填空题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、4.以下程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。PrivateSubCommand1_Click()Text1.Text=""ForN=3To100k=Int(Sqr(N))i=2Flag=0DoWhileI<=KAndFlag=0IfNModi=0ThenFlag=1Elsei=i+1LoopIfflag=0ThenText1.Text=Text1.Text&Chr(13)&Chr(10)&NEndIfNextN1.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗

2、口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示（选择“第三个项目”的情况）。下面是实现上述功能的程序，请填空。PrivateSubCommand1_Click()IfList1.ListIndex>=0ThenList1.RemoveItemList1.ListIndexLabel1.Caption=List1.ListCountElseMsgBox"请选择要删除的项目"EndIfEndSu

3、b6.在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)N=N+1LoopText1.Text=Str(N)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，Text1中显示的值是2；Text2中显示的值是72。5.以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。PrivateSubCommand1_Click

4、()DimNAsString,DAsStringN=Text1.TextM=Len(text1.text)Fori=MTo1Step-1c=Mid(N,i,1)D=D&cNextitext2.text=DEndSub17.在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCⅡ码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在La

5、bel2中给出提示“输入项已在组合框中”。请在空白处将程序补充完整。PrivateSubCombo1KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1.ListCount-1ifCombo1.Text=Combo1.List(i)ThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combo1.AddItemCombo1.TextEndIf10.当用Append方式打开文件时，如果对文件进行写操作，则写入

6、的数据附加到原来文件的后面。8.顺序文件通过Print语句或Write语句把缓冲区的数据写入磁盘。将数据写入顺序文件的语句为：Write#filenumber,[outputlist]或者Print#filenumber,[outputlist]7.在窗体上画一个命令按钮和一个通用对话框，其名称分别为Command1和Commondialog1，然后编写如下事件过程：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="打开文件"CommonDialog1.Filter="AllFile(*.*)

7、*.*"C

8、ommonDialog1.InitDir="C:"CommonDialog1.ShowOpenEndSub该程序的功能是：程序运行后，单击命令按钮，将显示“打开文件”对话框，并在其中显示C盘根目录下的所有目录和文件，请填空将程序补充完整。22.在窗体上画两个列表框，其名称分别为List1和List2，然后编写如下程序：PrivateSubFormLoad()List1.AddItem"语文"List1.AddItem"数学"List1.AddItem"物理"List1.AddItem"化学"List1.AddItem"英语"List1.AddItem"政治"

9、EndSubPrivateSubLis