填空题用窗体的Caption属性可以设置窗体的______。
填空题在关系数据库中,把数据表示成二维表,每一个二维表称为
______
。
填空题下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private SubForm_Click()
Dim Y As Single
Open{{U}} 【10】 {{/U}}
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
{{U}} 【11】 {{/U}}
Next i
Close #2
End Sub
填空题在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:
Private Sub Command1_Click()
a = Text1.Text + Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text1.Text = " "
Text2.Text = " "
End Sub
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入1234和4321,然后单击命令按钮,则输出结果为{{U}} {{U}} {{/U}} {{/U}}。
填空题语句FontSize=FontSize*2的功能是 (8) 。
填空题在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1。程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,如图所示。请填空。PrivateSubOption1_Click(1ndexAsInteger)SelectCase{{U}}{{U}}{{/U}}{{/U}}Case0a=“宋体”Case1a=“黑体”Case2a=“楷体GB2312”EndSelectText1.{{U}}{{U}}{{/U}}{{/U}}=aEndSub
填空题下列程序中,a,b,c代表一个三角形的三条边,程序的作用是判断一个三角形是否成立,请填写空白处。 If a+b<c______b+c<a______a+c<b Then MsgBox("这三条边不能构成一个三角形") End If
填空题在窗体上画一个命令按钮和一个文本框。然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),即命令按钮,程序可找出在文本框中输入的其他所有英文字母,并以大小写方式降序显示到Text1中,显示的字符串是ZYXWUTSRQPONMLKJIHGEC。请填空。
Private Sub Oommandl_Click()
Dim str As String, s As String, c As String
str=UCase(Text1)
s=""
c="Z"
While c>="A"
If InStr(str, c)=0 Then
s={{U}}【8】{{/U}}
End If
c=Chr $(Asc(C){{U}}【9】{{/U}})
Wend
If s<>"" Then
Text1=s
End If
End Sub
填空题记时器控件能有规律的以厂定时间间隔触发 【6】 事件,并执行该事件过程中的程序代码。
填空题Visual Basic工程中有三种模块:窗体模块、标准模块和______ 。其中类模块主要用于定义类和建立______ 组件。
填空题在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程:
Private Sub Command1_Click()
Text1.Text="计算机"
Text2.Text=Text1.Text
Text1.Text="等级考试"
End Sub
程序运行后,单击命令按钮,两个文本框(Text1和Text2)中的内容分别为{{U}} 【6】 {{/U}}和{{U}} 【7】 {{/U}}。
填空题假设线性表的长度为n,则在最坏情况下,冒泡排序需要的比较次数为
________
。
填空题创建第一个窗体对象时,系统自动为其Name属性分配了一个名字,该名字为______。
填空题当用 【12】 方式打开文件时,如果对文件进行写操作,则写入的数据附加到原来文件的后面。
填空题当对象得到焦点时,会触发GotFocus事件,当对象失去焦点时将触发 【7】 事件。
填空题关键字ASC和DESC分别表示【 】的含义。
填空题把窗体的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键,则在窗体上输出的数值是 [12] 和 [13] 。
填空题在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load() Open"d:/temp/dat,txt"For Output As#1 Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If UCase(Text1.Text)=______Then Close#1 End Else Write#1,______ Text1.Text=" " End If End If End Sub 以上程序的功能是在D盘temp文件夹下建立一个名为dat.txt的文件,在文本框中输入字符,每次按Enter键都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容:如果输入“END”,则不写入文件,直接结束程序。请填空。
填空题在面向对象程序设计中,对象是一个由______和______组成的概念。
填空题在下面程序的执行过程中,将要进行 【13】 次循环,而在第3次循环输出的数据是 【14】 。 Private Sub Command1 Click() Dim b(-1 To 3) For i=LBound(b,1)To UBound(b,1) b(i)=2*i Print i,b(i) Next i End Sub
