11差填空和改讲述.docx

卷211选择题1.语句正确的是BA.IF x =/ y Then Print “x不等于y”B.IF x y Then Print “x不等于y”C.IF x y Then Print “x不等于y”D.IF x y Print “x不等于y”2.假定有一下函数过程Function Fun(s As String,I As String)Dim s1 As String For i = 1 To Len(s)S1 = Ucase(Mid(s, i , l))+s1Next iFun = s1End Function在窗体上画一个命令按钮，然后编写如下事件过程Private Sub Comand1.Click()Str1=InputBox(“请输入一个字符串”)Str2 =Fun(str1)Print str2End sub程序运行后，单击命令按钮，如果在对话框中输入字符串“abcdefg”则单击”确定按钮后再窗体上输出的结果为（D）A. abcdefgB. ABCDEFGC. gfedcbaD. GFEDCBA3.单击窗体时，下列程序代码的执行结果是（C）Private Sub Invert(Byval xstr as string,ystr as string)Dim tempstr As StringDim I As IntegerI = Len(xstr)Do While I = 1tempstr = tempstr + Mid(xstr, 1, 1)I = I - 1loop ystr=tempstrEnd SubPrivate Sub Form_Click()Dim s1 As String, s2 As Strings1 = abcdefinvert s1, s2Print s2End SubA.abcdefB.afbecdC.fedcdaD.defabc4.下列程序Dim aa = arry(1, 2, 3, 4, 5, 6, 7)for i = 1,bound(((A)to ubound(((A)a(i) = a(i) * a(i)Next iPrint a(I)输出的结果是（D）A.49B.0C.不确定D.程序出错5.要在窗体上显示图片，需要设置窗体的（C）属性A.CaptionB.IconC.PicturenbspD.Controlbox6.要打开一个名为Datal的只读随机文件，正确的Open语句是（D）A. Open Data For Random Access Read As #1B.Open “Datal” For Random Access ReadC.Open “Datal” For Brnary Access Write As #1D.Open “Datal” For Random Access Read As #17.下列控件可以用来显示文件的是（B）A.DirListBoxB.FileListBoxC.DiveLlistBoxD.ListBox8.函数Int(10*Ren)在（D）范围内的整数A.[0,1]B.[1,10]C.[1,9]D.[0,9]9.以下的属性和方法中，可以重定义坐标系的是（C）A.Drawstyle属性B.DmwWidth属性C.Scale方法D.ScaleMode属性10下面各种高级语言中，不是面向对象程序设计语言的是（C）A.visual BasicB.C++C.PascalD.Java11.表达式Abs (-5)*/5/5的值是（B）A.-25B.25C.5D.112.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()For j = 1 To 20a = a + j / 7Next jPrint aEnd Sub程序运行后，单击命令按钮，择在窗体上显示的内容是（A）A.21B.41C.63D.21013.使用菜单项MentOne在程序运行时失效，使用的语句是（D）A.Mentone.Visble = TrueB.Mentone.Visble = FalseC.Mentone.Enabled = TrueD.Mentone.Enabled = False14.使用通用对话框控件夹打开字体对话框时，如果字体对话框中列出可用的屏幕字体和打印字体必须设置通用对话控件的Flags属性为（D）A.0B.1C.2D.315.设有如下的用户定义类型Type worker number as stringname as stringage as integer End type则一下正确引用改类型成员的代码是（B）A.Worker name =”李四”B.Dim s As Woeker s.na