填空题______的主要功能是返回或设置在控件中或在运行时画图或打印操作中,显示文本所用的字体。
填空题下列程序的运行结果是______。
Sub abcd(ByValn As Integer)
n=n+5
End Sub
Private Sub Form_Click()
nx%=3
Callabcd(nx%)
Printnx%
End Sub
填空题以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在【8】和【9】处填上正确的内容。Private Sub Command1_ Click() Dim d(6) for i = 1 To 50 n = 【8】 d(n) = 【9】 Next i for i = 1 To 6 Print d(i) Next iEnd Sub
填空题改变驱动器列表框的Drive属性值将引发{{U}} 【12】 {{/U}}事件。
填空题随机文件以{{U}} 【13】 {{/U}}为单位读写,随机文件的记录是{{U}} 【14】 {{/U}}记录。
填空题栈中允许进行插入和删除的一端叫做______。
填空题有如下过程:Sub SS(ByVal X,ByRef Y,Z) X=X + 1 Y=Y + 1 Z=Z + 1 End Sub执行该过程的事件过程如下:Private Sub Command1_Click() A = 1 B = 2 C = 3 Call SS(A,B,C) Print A;B;C End Sub 则该程序的执行结果是 【9】 。
填空题在Visual Basic 的立即窗口内输入以下语句
X=97
? Chr$ (X)
在窗门中显示的结果是【 】。
填空题某二叉树中度为2的节点有18个,则该二叉树中有______个叶子节点。
填空题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Colnmand1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮command1变为可用。请将程序补充完整。 Private Sub Form_Load() Command 1.Enabled=False End Sub Private SubText1 【2】 () Command1.Enabled=True End Sub
填空题为了能自动放大或缩小图像框中的图形以与图像框的大小相适应,必须把该图片框的Stretch属性设置为______。
填空题下列表达式有错误,正确的写法应该是 【6】 。 [(a+B) +xc]/80-5÷(d+e)
填空题在窗体上面两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后,如果单击“初始化”命令按钮,则对数组a的各元素赋值;如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来,如图所示。请填空。OptionBase1Dima(3,2,2)AsIntegerPrivateSubCommand1_Click()Fori=1To3Forj=1To2______=i+jNextjNextiEndSubPrivateSubCommand2Click()Forj=1To3Fori=1To2s=s+______NextiNextiText1.Text=______EndSub
填空题如果在立即窗口中执行下列操作:
a=8
b=9
print(a>b);
则输出结果是______。
填空题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请将程序补充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1 {{U}}【15】 {{/U}}()
Command1.Enabled=True
End Sub
填空题有如下Sub过程: Sub s(x As Single,y As Single) t=X X=t/y y=t Mod y End Sub 在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Form_Click) Dim a As Single Dimb As Single a=5 b=4 call S (a,b) Print a,b End Sub 则程序运行后,单击命令按钮,输出的结果为 (10) 。
填空题假设用一个长度为50的数组(数组元素的下标为0~49)作为栈的存储空间,栈底指针bottom指向栈底元素,栈顶指针top指向栈顶元素,如果bottom=49,top=30(数组下标),则栈中具有______个元素。
填空题语句Print 12;Tab;24的执行结果是{{U}} 【4】 {{/U}}。
填空题冒泡排序在最坏情况下的比较次数是 (2) 。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…,其中最后一项为n个。
例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer,n As Integer, Cout As Integer
Dim Sn As Long, Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox("请输入a的值:")
______
Do
Tn=Tn*10+a
Sn=Sn+Tn
Cout=Cout+1
______
Debug.Print a,n,Sn
End Sub
