填空题在窗体上画一个命令按钮, 其名称为 Command1, 然后编写如下事件过程:
程序的功能是
填空题A=7,B=3,C=4,则表达式A MOD 3+B^3/C/5的值为______。
填空题当用户按下键盘上的某个键时,将会触发拥有输入焦点的控件的______事件。
填空题下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存,并在文本框Textl中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open "smtext1.txt"
________
As
________
Do While
________
Input #2,inData
Text1.Text=Text1.Text & inData
Loop
Close #2
End Sub
填空题下列程序段的功能是输入一元二次方程ax2+bx+c=0(a≠0)的3个系数a、b、c,并判断它根的情况,请将程序补充完整。
Dim a As Single,b As Single,c As Single
Dim delta As Single a=txtA. Text:b=txtB.
Text:c=txtC. Text delta=______
If delta>0 Then lblResult.
Caption="有两个不相等的实根" Elself delta=0 Then
lblResult. Caption="有两个相等的实根" ______
lblResult. Caption="没有实根" End If
填空题Visual Basic6.0的集成开发环境有两种方式,第一种方式是 (6) ,第二种方式是 (7) 。
填空题在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1 Click()
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是{{U}} 【11】 {{/U}}。
填空题在文件对话框中,假定有一个名为"fc.exe"的文件,它位于"d:\pp"目录下,则"FileName"属性 的值为【 】;FileTifie属性的值为【 】。
填空题执行语句Open "TC.dat" For Random As #1 Len=50后,对文件TC.dat中的数据能执行的操作是{{U}} 【11】 {{/U}}。
填空题在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0 Do Until x=-1 a=lnputBox("请输入第一个数字a的值") a=Val(a) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第三个数字x的值") x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为 【9】 。
填空题在窗体上加上一个富文本控件RichTextBox,画一个命令按钮,当单击命令按钮的时候,将显示“保存文件”对话框,设置该对话框可用于保存文本文件(默认文件类型)和Word文档,然后将富文本控件中显示的内容以指定的文件名保存,完成程序。 Private SubCommand1_Click() CommonDialogl.Filter= 【6】 CommonDialogl.FilterIndex= 【7】 CommonDialogl.ShowSave RichTextBoxl.SaveFile 【8】 End Sub
填空题结构化程序设计方法的主要原则可以概括为知顶向下、逐步求精、 【2】 和限制使用goto语句。
填空题如果要在单击命令按钮时执行一段代码,则应将这段代码写在______事件过程中。
填空题在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为Drive1、Dir1和File1,为了使它们同步操作,必须触发______事件和______事件,在这两个事件中执行的语句分别为______和______。
填空题在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
Call swap({{U}} 【13】 {{/U}} )
For i = 1 To 10
Print a(i);
Next
End Sub
Sub swap(b() As Integer)
n ={{U}} 【14】 {{/U}}
For i = 1 To n / 2
t = b(i)
b(i) = b(n)
b(n) = t
{{U}} 【15】 {{/U}}
Next
End Sub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。请填空。
填空题组合框有三种不同的类型,只能选择而不能输入数据的组合框是______。
填空题一棵二叉树共有47个结点,其中有23个度为2的结点。假设根结点在第1层,则该二叉树的深度为【 1 】
填空题语句Fontsize=Fontsize*2的功能是______。
填空题一个类可以直接或间接地从祖先中继承所有属性和方法。采用这个方法提高了软件的 ______。
填空题设有代码如下,当双击窗体内的某个位置时,命令按钮Command1和命令按钮Command2的标题分别为11、 【9】 。 Private SubForm_Load() Command1. Caption = "1" Command2. Caption = "2" End Sub Private Sub Form_Click() Command1. Caption = "11" End Sub Private Sub Form_DblC1ick( ) Command2. caption = 22 End Sub
