填空题在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程:
Private Sub Commandl_Click()
Dim inData As String
Textl.Text=""
Open"d:myfile.txt"For 【 】As#1
Do While 【 】
Input#,inData
Loop
Text1.Text=Text1.Text+inD
Loop
Close#1
End Sub
程序的功能是,打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中。请填空。
填空题本程序的功能是利用随机数函数模拟投币,方法是;每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所示。程序运行后,在文本框Text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。以下是实现上述功能的程序,请填空。PrivateSubCommand1_Click()Radomizen=CInt(Text1.Text)n1=0n2=0Fori=1To{{U}}【6】{{/U}}r=Int(Rnd*2)Ifr={{U}}【7】{{/U}}Thenn1=n1+1Elsen2=n2+1EndIfNextNext2.Text=n1Next3.Text=n2EndSub
填空题滚动条响应的重要事件有______和Change。
填空题下列事件过程的执行结果为在窗体中依次输出______、______、______和 ______。
Private Sub Command1_Click()
Dim c
i = 0
c = Array(2, 4, 6, 8, 9)
Do
x = c(i)
For j = 10 To x Step -2
n = j + x
Next j
Print n + j
i = i + 1
Loop While j + n <> 22
End Sub
填空题执行下面的程序段后,S的值为 【7】 。 s=5; For i=2.6 To 4.9 Step 0.6 s=s+1 Next i
填空题一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于______。
填空题Visual Basic中,变量名字只能由______、______、______组成,总长度不能超过______。
填空题在数据库中用数据模型这个工具来抽象、表示和处理现实世界中的数据和信息。常见的数据模型有3种,它们分别是层次模犁、网状模型和______。
填空题如果要将形状控件的内部设置为水平线,应将Fillstyle属性设置为 【7】 。
填空题已知变量boo1 Var是一个布尔型的变量,如果要给其赋值为True,则正确的赋值语句就是______。
填空题在一个链队中,如果front和rear是队首和队尾的指针,则插入一个结点s↑的操作是 【2】 。
填空题刚建立工程时,使窗体上的所有控件具有区别于默认值的相同的字体格式,应对 (8) 的 (9) 属性进行设置。
填空题下列程序段的功能是输入一元二次方程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= 【11】 If delta>0 Then lblResult. Caption="有两个不相等的实根" Elself delta=0 Then lblResult. Caption="有两个相等的实根" 【12】 lblResult. Caption="没有实根" End If
填空题在KeyDown和KeyUp事件过程中,当参数Shift的值为十进制数1,2,4时,分别代表Shift、{{U}} {{/U}}、{{U}} {{/U}}键。
填空题数据库保护分为:安全性控制、______、并发性控制和数据的恢复。
填空题新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮,Form1窗体消失,显示Form2窗体,程序如下: Private Sub Command1_Click() ______ Form2. ______ End Sub 试补充完整。
填空题在先左后右的原则下,根据访问根结点的次序,二叉树的遍历可以分为三种:前序遍历、{{U}} 【5】 {{/U}}遍历和后序遍历。
填空题以下程序需要实现的功能是:在C盘根目录下建立一个名为Students.txt的顺序文件。单击命令按钮后,输入4个学生的个人信息,包括name、sex和age,将这些信息写入文件中。请填空。 Private Sub Form_Click() Open 【9】 For Output As #1 For i=1 To 4 name=InputBox("姓名") age=InputBox("年龄") sex=InputBox("性别") Write 【10】 Next i Close #1 End Sub
填空题在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim a (1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后,单击命令按钮,输出结果是 【13】 。
填空题Visual Basic中的控件分为3类,它们是{{U}} 【6】 {{/U}}、ActiveX控件和可插入对象。
