CommonDialogl. Filter=All Files] * *I(*. txt )*. txt!(*. doc)I*. doc Common Dialog. Filterlndex=I Common Dialog. Action=l End Sub 二,填空每空2分,共20分 (1) visual Basic中有一种控件组合了文本框和列表框的特性这种控件是【l】 Visual basic提供的对数据文件问的三种访问方式为随机访问方式【2】 和二 进制访问方式为了在运行时把 d: pic文件夹下的图形文件ajg装入图片框 Picture所使用 的句为【3】 (2VB变量声明格式[Pubc|Dm]变量名As类型,用【4】 关键字声明的变 量在整个应用程序中有效用【5】 关键字声明的变量过程结束则消失 (3)在刚建立工程时,使窗体上的所有控件具有区别于默认值的相同的字体格式应对【6】 的【7】 属性进行设置 (4)执行下面的程序段后的值为【8】 s的值为【9】 For i=3.2 To 4.9 Step 0.8 Next (5VB提供【10】 函数用于将字符型转换成数值 三程序阅读题每题5分,共10分 (1)下面是一个歌手大赛评分程序10位评委除去一个最高分和一个最低分计算平均分(设满 分为10分)请在1]2]和[3处填入适当的内容将程序补充完整 Private Sub Form Click Max= o Min= 10 For i= 1 To 10 x= Val(InputBox("请输入分数") If[1l Then Max=x Then min=x s=s+X Next s=[3]_ p Pint"最高分"Max"最低分"M Print"最后得分"p End Sub (2)Dim As String a="123456789 For i=l To 5 Print Space(6-1); MidS3(a, 6-1, 2i-1) Next End Sub 程序运行后窗体上显示的输出结果为CommonDialogl.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc" CommonDialogl.FilterIndex=1 CommonDialogl.DialogTitle="Save" CommonDialogl.Action=1 End Sub 二,填空:每空 2 分,共 20 分. (1)visual Basic 中有一种控件组合了文本框和列表框的特性,这种控件是【1】__________; Visual Basic 提供的对数据文件问的三种访问方式为随机访问方式【2】____________ 和二 进制访问方式;为了在运行时把 d:\pic 文件夹下的图形文件 a.jpg 装入图片框 Picturel,所使用 的句为【3】__________________________________. (2)VB 变量声明格式: [Public | Dim ] 变量名 As 类型,用【4】___________关键字声明的变 量在整个应用程序中有效,用【5】___________关键字声明的变量过程结束则消失. (3)在刚建立工程时,使窗体上的所有控件具有区别于默认值的相同的字体格式,应对【6】 _______的【7】________属性进行设置. (4)执行下面的程序段后,i 的值为【8】________ ,s 的值为【9】_________ . s = 2 For i = 3.2 To 4.9 Step 0.8 s = s + 1 Next i (5)VB 提供【10】______函数用于将字符型转换成数值. 三,程序阅读题:每题 5 分,共 10 分. (1)下面是一个歌手大赛评分程序.10 位评委,除去一个最高分和一个最低分,计算平均分(设满 分为 10 分).请在[1],[2],和[3]处填入适当的内容,将程序补充完整. Private Sub Form_Click() Max= 0 Min= 10 For i = 1 To 10 x=Val(InputBox("请输入分数")) If[1]________ Then Max=x If[2]________ Then Min=x s =s + x Next i s =[3]________ p = s/8 Print "最高分";Max,"最低分";Min Print "最后得分";p End Sub (2)Dim As String a= "123456789" For i =1 To 5 Print Space(6—i);Mid$3(a,6—i,2*i—1) Nexti End Sub 程序运行后,窗体上显示的输出结果为