填空题在VB中,用于文件复制的命令是______。
填空题具有n个结点的完全二叉树的深度为 【2】 。
填空题下列程序的功能是计算两个自然数的最大公约数,界面如下图所示。给定的程序不完整,将程序补充完整。PrivateSubCommand1_Click()DimxAsLong,yAsLong,iAsLongx=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=Str(____________)EndSubFunctionfun1(aAsLong,bAsLong)AsLongDimrAsLongDimtAsLongIf____________Thent=aa=bb=tEndIfr=aModbDoWhiler<>0a=bb=rr=aModbLoop____________EndFunction
填空题软件是程序、数据和{{U}} 【3】 {{/U}}的集合。
填空题下列程序的功能是:将数据1,2…,10写入顺序文件Base.txt中,请填空。 Private Sub Form_Click( ) Dim i As Integer Open "Base. txt" For Output As #1 For i=1 To 10 【15】 Next Close #1 End Sub
填空题为同一种对象设置不同的属性,可以使一种对象具有不同的外观和不同的______。
填空题把窗体的KeyPreView属性设置为True,并编写如下两个事件过程:
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Print KeyCode
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub
程序运行后,如果按下B键,则在窗体上输出的数值是【 】和【 】。
填空题下面的程序用于根据文本框Test中输入的内容进行以下处理:
若Text为1,则打印“您的成绩为优秀!”;若Text为2,则打印“您的成绩为良好!”;若Text为3,则打印“您的成绩为一般”;否则打印“您的成绩一般以下!”,请填空。
Private Sub Command1_Click( )
Selct Case Val(Text1.Text)
Case{{U}} 【13】 {{/U}}
Print "您的成绩为优秀!"
Case{{U}} 【14】 {{/U}}
Print "您的成绩为良好!"
Case{{U}} 【15】 {{/U}}
Print "您的成绩为一般!"
Case Else
Print "您的成绩为一般以下!"
End Select
End Sub
填空题当用______方式打开文件时,如果对文件进行写操作,则写入的数据附加到原文件的后面。
填空题下列函数调用时弹出的对话框中按钮的个数为______。 MsgBox("程序非法!",vbAbortRetryIgnore,"消息提示:")
填空题下列软件系统结构图的宽度为________
填空题常用的黑盒测试有等价分类法、 【1】 、因果图法和错误推测法4种。
填空题以下程序的功能是:从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。请在空白处填入适当的内容,将程序补充完整。 Private Sub Form_Click() Dim x As Single, amax As Single, amin As Single x=InputBox("Enter a score") amax=x amin=x Do, While______ If x>amax Then aman=X End If If______Then amin=x End If x=InputBox("Enter a Score") Loop Pnnt"Max="; amax, "Min=";amin End Sub
填空题阅读以下程序:
Prlvate Sub Form_Click()
Dim k,n,m As Integer
n=10
m=1
k=1
Do While k<=n
m=m*2
k=k+1
Loop
Print m
End Sub程序运行后,单击窗体,输出结果为{{U}} 【8】 {{/U}}。
填空题数据的基本单位是 【5】 。
填空题为了能自动放大或缩小图像框中的图形以与图像框的大小相适应,必须把该图片框的 Stretch属性设置为{{U}} 【8】 {{/U}}。
填空题执行下面的程序段后;变量S的值为 【12】 。 S=5 For i=2.6 To 4.9 Step 0.6 S=S+1 Next i
填空题下面程序段的作用:在窗体上一个命令按钮。单击命令按钮后,将程序中字符串 "Welcome Home"中的字符全部大写输出,其后字符"Wel Back"全部小写输出。请填空。
Private Sub Command1_Click()
a = "Welcome Home";
b = "Wel Back"
c = {{U}}【8】 {{/U}}+ LCase(b)
Print c
End Sub
填空题R∩S用基本的关系代数运算可以表示为{{U}} 【5】 {{/U}}。
填空题下面的程序执行时,可以从键盘输入一个正整数,然后把该数的每位数字按逆序输出。 例如:输入7685,则输出5 8 6 7;输入1000,则输出0 0 0 1。请填空。 Private Sub Command1_Click() Dim x As Integer x=InputBox("请输入一个正整数") While x>______ Print x Mod 10; x=______ wend End Sub