填空题每一个窗体或者控件都有一个名字,为提高程序的可读性,可以用前缀的方式来表示对象的类型,如Form的前缀为frm,则Image的前缀为 【8】 ,Picture的前缀为 【9】 。
填空题在Visual Basic中,要显示程序代码,必须在______窗口;要设计程序的运行界面必须在______窗口。
填空题以下程序的功能是:将当前目录下的顺序文件mText1.txt的内容读入内存,并在图片框 Picture1中显示出来。请完善程序。 Private Sub Command1_Click() Dim inData As String Open "./mText1.txt" 【13】 As 1 Do While Not EOF(1) Input #1,inData Picture1.Print inData Loop Close #1 End Sub
填空题设有整型变量S,取值范围为0~100,表示学生的成绩。有如下程序序段: If s>=90 Then Level="A" Else If s>=75 Then Level="B" Else If s>=60 Then Level="C" Else Level="D" End If 下面用Select Case结构改写上述程序,使两段程序所实现的功能完全相同。请填空。 Select Case s Case______>=90 Level="A" Case 75 To 89 Level="B" Case 60 To 74 Level="C" Case______ Level="D" ______
填空题列程序的功能是将数据1,2,…,10写入顺序文件Base.txt中,请填空。
Private Sub Form_Click()
Dim i As Integer
Open
________
As#1
For i=1 To 10
Print #1, i
Next
Close#1
End Sub
填空题在窗体中添加一命令按钮,(其Name属性为Commmld1),然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计其中5的倍数所占比例。
请在空白处填入适当的内容,将程序补充完整。
Private Sub Command1 Click()
Dim a(100)
For j=1 To 100
a(j)=Int(______)
If a(j)______5=0 Then______
Print a (j);
Next i
Print
Print k/100
End Sub
填空题数据的基本单位是{{U}} 【5】 {{/U}}。
填空题在窗体上画一个名称为Combol的组合框,然后画两个名称分别为Label1、Label2,标题分别为“城市名称”和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在Label2中给出提示“已成功添加新输入项。”,如图所示。如果输入的项目已存在,则在Label2中给出提示“输入项已在组合框中。”。请填空。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=____________ThenLabel2.Caption="输入项已在组合框中。"ExitSubEndIfNextiLabel2.Caption="已成功添加新输入项。"Combo1.____________Combo1.TextEndIfEndSub
填空题在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程:
Private Sub Command1_Click()
Text1. Text="VB Programming"
Text2. Text=Text1. Text
Text1. Text="ABCD"
End Sub
程序运行后,单击命令按钮,两个文本框中显示的内容分别为{{U}} 【7】 {{/U}}和{{U}} 【8】 {{/U}}。
填空题一棵二叉树第六层(根结点为第一层)的结点数最多为______个。
填空题可以通过______快捷键或______快捷键退出Visual Basic。
填空题在菜单编辑器中,菜单项前面的4个小点的含义是 【12】 符号。
填空题有一过程如下:
Sub Subl (m As Integer,total As Long)
Dim i AS Integer
total = 1
For i = 1 To m
total = total * i
Next
End Sub
调用它的事件过程如下:
Private Sub Commandl_Click( )
Dim tot As Long, a As Integer
a = Val( InputBox ("请输入数据")
Call Subl (a,tot)
Print tot
End Sub
则输入数据5,运行结果为{{U}} 【10】 {{/U}}。
填空题使通用对话框C1显示为一个标准的颜色对话框,应使用语句______,使通用对话框C1显示为一个标准的字体对话框,应使用语句______。
填空题表达式(2+8*3)/2的值是 (7)
填空题对于输人的N个数进行快速排序算法的平均时间复杂度是 【1】 。
填空题要对文本框中已有的内容进行编辑,按下键盘上的按键,但不起作用,原因是设置了 (6) 。
填空题在面向对象方法中,允许作用于某个对象上的操作称为{{U}} 【4】 {{/U}}。
填空题使用Timer控件和Label控件来显示时间(每隔1秒显示一次),完成此程序。 Private Sub Form_Load() ______=1000 Timer1.Enabled=True End Sub Private Sub Timer1_Timer() ____________ End Sub
