第4章程序设计基础复习

1、课后题 选择题1-4、9-11、填空题11-162、记录类型变量窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序，请填空。PrivateTypePic

gNameAsString*10

‘物品名称

picFileAsString*20

‘物品图片的图片文件名

EndType

Dimp（4）AsPic，pRecAsPic

PrivateSubFormLoad（）

Open”Datal.txt"ForRandomAs＃1_【11】_=Len（pRec）

Fori=0To4

Get＃1，i+l，P（i）

LIStI.AddItemp（i）.gNaine

Nexti

Close＃1

EndSubPrivateSubListI-DbICIickO

Fori=OTo4

IfRTrim（List一List（i））=RTrim（_【12】_）Then

Picturel.，Picture=LoadPicture（p（i）．_【13】_）

ExitFor

EndIf

Next

EndSub3、执行语句DimX，YAsInteger后，________。A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量，Y被定义为变体类型变量D)X被定义为变体类型变量，Y被定义为整型变量4、若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec则下面的输出语句中正确的是________。A)Printarr.Code(2),arr.Caption(2)B)Printarr.Code,arr.CaptionC)Printarr(2).Code,arr(2).CaptionD)PrintCode(2),Caption(2)5、以下变量名中合法的是________。A)x2－1B)printC)str_nD)2x6、下面可以产生20~30(含20和30)的随机整数的表达式是________。A)Int(Rnd*10+20)B)Int(Rnd*11+20)C)Int(Rnd*20+30)D)Int(Rnd*30+20)7、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()c＝1234c1＝Trim(Str(c))Fori＝1To4Print______NextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为________。A)Right(cl，i)B)Left(cl，i)C)Mid(cl，i,1)D)Mid(cl，i，i)8、执行以下程序后输出的是________。PrivateSubCommandl_Click()Ch$＝"ABCDEFGH"∶PrinMid(Right(ch$,6)，Len(Left(ch$,4),2)EndSubA)CDEFGHB)ABCDC)FGD)AB9、在窗体上画一个文本框(名称为Textl)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是________。A)PrivateSubTextl_Change()Label1.Caption＝Str(Len(Text1.Text))EndSubB)PrivateSubTextlClick()Label1.Caption＝Str(Len(Text1.Text))EndSubC)PrivateSubText1Change()Labell.Caption＝Textl.TextEndSubD)PrivateSubLabell_Change()Labell.Caption＝Str(Len(Textl.Text))EndSub10、统计字符串中各个字母出现次数Dima(1To26)AsInteger,cAsString*1le=Len(Text1)'求字符串的长度ForI=1Tolec=UCase(Mid(Text1,I,1))'取一个字符，转换成大写Ifc>="A"Andc<="Z"Thenj=Asc(c)-65+1'将A~Z大写字母转换成1~26的下标a(j)=a(j)+1'对应数组元素加1EndIfNextIForj=1To26'输出字母及其出现的次数Ifa(j)>0ThenPrint"";"字母";Chr$(j+64);"出现次数为";a(j)Nextj11、去掉字符串中的重复字母Dims$s="asdddfghjkkjkkk123lsd"Pri