填空题在窗体上画一个命令按钮,然后编写如下程序(假定变量x是—个窗体级变量) Dim x As Integer Sub inc(a AS Integer) X=K+a End Sub Private Sub Command1_Click() inc2 inc3 inc4 Prmt x; Ead Sub 程序执行后,单击Command1命令按钮,输出的结果是 【11】 。
填空题建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为 【13】 、 【14】 、ShowColor、ShoWFont和ShowPrinter。
填空题在窗体上建立名称为Text1、Text2和删的三个文本框,其中Text1和Text2文本框用来接受两个整数(假设为M和N),建立一个名称为command1的命令按钮,单击它将得到数M从右边起的N位数字,并把该数字显示在Text3文本框中,如下图所示。请填空。privateFuctiondigit(ByValmAsInteger,ByValnAsInteger)AsIntegerDimiAsIntegerFori=1Ton-1M=m/10NextiDigit=【6】EndFunctionPrivateSubCommand1_Click()DimmAsInteger,nAsInteger,kAsIntegerm=Val(Text1.Text)n=Val(Tex2.Text)k=【7】Text3.Text=Str(k)EndSub
填空题在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Label1、Label2,标题分别为“城市名称”和“空白”的标签。程序运行后,在组合框中输入一个新项目并按同车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在Label2中给出提示“已成功添加新输入项”,如图所示。如果输入的项目己存在,则在Label2中给出提示“输入项已在组合框中。”。请填空。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)If______=13ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=______ThenLabel2.Caption="输入项已在组合框中。"ExitSubEndIfNextiLabel2.Caption="已成功添加新输入项"Combo1.______Combo1.TextEndIfEndSub
填空题瀑布模型将软件生存周期划分为 【3】 、开发和运行3个阶段。
填空题在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1. Filter="All Files(*.*)|*.*|Text Files"_ & "(*. txt)*. txt |Batch Files(*. bat)|*. bat" CommonDialog1. FilterIndex=1 CommonDialog1. ShowOpen MsgBox CommonDialog1. FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______:如果在对话框中选择d盘temp目录下的tel. txt文件,然后单击“确定”按钮,则在MsgBox信息框中显示的提示信息是______。
填空题在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a="National Computer Rank Examination" n=Len(a):s=0 For i=1 To n b=Mid(a,i,1) If b="n" Then s=s+1 End If Next i Print s End Sub 程序运行后,单击命令按钮,输出结果是______。
填空题随机文件以 [11] 为单位读写,二进制文件以 [12] 为单位读写。
填空题在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,如图5所示,然后编写如下程序:FunctionFun(xAsInteger,ByValyAsInteger)AsIntegerx=x+yIfx<0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=-10:b=5Text1.Text=Fun(a,b)Text2.Text=Fun(a,h)EndSub程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是(11)和(12)。
填空题在窗体上画一个名为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_ Click() Dim arr arr = Array(358, 32, 46, 73, 23, 59, 26, 91, 583, 12) For i = ______ For j = ______ If arr(i) >= arr(j) Then a = arr(j) arr(j) = arr(i) arr(i) = a End If Next j Next i For i = 1 To 10 Print arr(i); Next i End Sub程序运行后,单击命令按钮,将把数组arr中的10个数按升序排序,请填空。
填空题已知B的ASCⅡ码为66,以下程序统计由键盘输入的字符串中各英文字母的使用次数。 Dim______ Fori=65 To 90 pp(i)=0 Next x$=InputBox("Enter a string",K$) x$=U Case$(x$) Fori=1 To Len(x$) n=Asc(Mid$(x$,i,1)) If n>=65Andn<=90Then ______ End If Nexti Fori=65 To 90 If pp(i)>Then Print Chr$(i);pp(i) End If Next
填空题关系模型的数据操纵即是建立在关系上的数据操纵,一般有______、增加、删除和修改四种操作。
填空题以下循环的执______。 k=0 Do Until k>=10 k=k+1 Loop
填空题为了在按下Esc键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是{{U}} 【14】 {{/U}}。
填空题在鼠标事件过程MouseDown和MouseUp中,参数Button的值为1、2、4时,分别代表按下鼠标的______、______和______按钮。
填空题为了在运行时把c:\\vb文件夹下的图形文件smile.jpg装入图片框Picture1,所使用的语句为______。
填空题表达式Fix(-12.08)+Int(-23.82)的值为______。
填空题面向对象的模型中,最基本的概念是对象和______。
填空题执行下列语句后,输出结果为______。
s$="ABCDEFG"
Print InStr(s$,"efg")
Print LCase$(s$)
填空题关系模型的数据操纵即是建立在关系上的数据操纵,一般有{{U}} 【5】 {{/U}}、增加、删除和修改四种操作。
