填空题在用Ⅵsual Basic开发应用程序时,一般需要建立可视用户界面、设置对象属性和 【6】 3步。
填空题以下程序运行后的输出结果是{{U}} 【11】 {{/U}}。
Private Sub Form _ Click()
i=10 :j=0
Do
j=j+1
i=i-1
Loop while i>2
Print j;
End Sub
填空题每一个窗体或者控件都有一个名字,为提高程序的可读性,可以用前缀的方式来表示对象的类型,如Form的前缀为frm,则Image的前缀为【 】,Picture的前缀为【 】。
填空题要使标签的背景样式为不透明,应将BackStyle属性设置为【 】。
填空题文件根据数据性质,可分为{{U}} {{/U}}文件和{{U}} {{/U}}文件。
填空题下列程序运行后的输出结果是 【9】 。 Private Sub f(k,s) s=1 For j=1 To k s=s*j Next End Sub Private Sub Command1_Click() Sum=0 For i=1 To 3 Call f(i,s) Sum=Sum+s Next Print Sum End Sub
填空题为了使复选框禁用(即呈现灰色),应把它的Value属性设置为______。
填空题在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序; Function M(x As Integer,y As Integer) M=IIf(x>y,x,y) End Function Private Sub Commandl_Click() Dim a As Integer,b As Integer a=100 b=200 PrintM(a,B) End Sub 程序运行后,单击命令按钮,输出结果为 【15】 。
填空题在窗体上画—个命令按钮,然后编写如程序: (假定变量x是一个窗体级变量)
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Command1_Click()
inc 2
inc 3
inc 4
Print x;
End Sub
程序执行后,单击Command1命令按钮,输出的结果是{{U}} {{U}} {{/U}}{{/U}}。
填空题下面程序段的作用:在窗体上一个命令按钮。单击命令按钮后,将程序中字符串 "Welcome Home"中的字符全部大写输出,其后字符"Wel Back"全部小写输出。请填空。 Private Sub Command1_Click() a = "Welcome Home"; b = "Wel Back" c = 【8】 + LCase(b) Print c End Sub
填空题将语句"MsgBox msg,type"中的"type"参数设置为2,则单击命令按钮会弹出一个对话框,其中的按钮有______、______和______。
填空题假设有以下程序段:
For i= 1 To 3
For j=5 To 1 Step -1
Print i * j
Next j
Next i
则语句Print i*j的执行次数是______,i的值为______,j的值为______。
填空题假定定义了一个记录类型,名为Rt,同时建立了一个名为Fr.txt的文件,然后编写如下程序段: Dim Rv As Rt r1=Len(Rv) Open "Fr.txt" For Random As #1 x=LOF(1) n=x/r1 执行上面的程序段后,变量n中存放的是文件中包含的______条数。
填空题结构化程序设计的三种基本逻辑结构为顺序、选择和 【1】 。
填空题有下列程序:
Private Sub Command1_Click()
Dim i As Integer
Dim arrY(5)As Integer
For i = 0 To 4
arrY (i) = 5
Next i
Dim arrZ(5)As String
For i = 0 To 4
arrZ(i)= "hello"
Next i
Dim arrX(2)AS Variant
arrX(1)=arrY()
arrX(2)=arr2()
Text1.Text=arrX(1) (2)
Text2.Text=arrX(2) (3)
End Sub
程序运行后,单击命令按钮,在文本框Text1和Text2中分别显示的内容是{{U}} {{U}} {{/U}} {{/U}}和{{U}} {{U}} {{/U}} {{/U}}。
填空题在鼠标事件过程MouseDown和MouseUp中,参数Button的值为1、2、4时,分别代表按下鼠标的______、______和______按钮。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…a,其中最后一项为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的值:" )
{{U}} 【9】 {{/U}}
Do
Tn =Tn * 10 + a
Sn = Sn + Tn
Cout = Cout + 1
{{U}} 【10】 {{/U}}
Debug. Print a, n, Sn
End Sub
填空题变量未赋值时,数值型变量的值为______,字符串变量的值为空串。
填空题表达式Fix(-32.68)+Int(-32.02)的值为 【10】 。
填空题下列程序实现的功能是:从键盘上输入10个整数,并把它们写到“D:”盘“a1.dat”文件中,然后从中读出第5个数并输出。
Private Sub Form_Click()
Dim k As Integer
Dim n As Integer,i As Integer
n=Len(k)
Open{{U}} 【13】 {{/U}}As#10 Len=n
For i=1 To 10
k=InputBox("请输入一个整数")
{{U}} 【14】 {{/U}}
Next i
{{U}}【15】 {{/U}}
Get #10,,k
Print k
End Sub