填空题在Select case结构中,使用“To表达式”来指定一个范围时,必须把______的值写在前面。
填空题在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
Private Sub Form_Click
____
Text1.Text=“VB程序设计”
End Sub
PrivmeSubText1_Change()
Picture1.Print"VB Programming"
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是
________
,而在图片框中显示的内容是
________
。
填空题下列程序的功能是:当X<50时,y=0.8×x;当50≤x≤100时,y:0.7×X;当x>100时,没有意义。请填空。 Private Sub Commandl_Click() Dim x As Single x=InputBox("请输入x的值!") ______ Case Is <50 Y=0.8*x Case 50 To 100 Y=0.7*x ______ Print"输入的数据出界!" End Select Print x,y End Sub
填空题执行下列程序,输入数字3,则输出结果为 (8) 。 Private Sub Command1_Click() a=InputBox("Input a Number") If a>5 Then GoTo L5 Else If a>2 Then GoTo L2 Else GoTo L3 End If Exit Sub L5: Print a Mod5 Exit Sub L3: Print a Mod 3 Exit Sub L2: Print a Mod 2 End Sub
填空题在窗体上画一个命令按钮,然后编写如下代码: Private Type Record R_ID As Integer R_Name As String * 20 Ene Type Private Sub Commandl_Click( ) Dim M _Sise, N_Char, M_Char Open" c: /file. txt" For Input As #1 M_sise=LOF(1) For N_Char = M_Sise To 1 Step - 1 Seek#1, Next Char M_char = Input(1 ,#1) Next Print EOF(1) Close#1 End Sub 程序运行后,单击命令按钮,其输出结果为 【15】 。
填空题对象的方法是指______。
填空题下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Command1_click() Text1.Text="" For n=3 to 100 k=Int(Sqr(n)) i=2 Flag=0 Do While i<=______And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If______Then Text1.Text=Text1.Text&Str(n)&Chr(13)&Chr(10) End If Next n End Sub
填空题常用的黑箱测试有等价分类法、 (3) 、因果图法和错误推测法4种。
填空题在窗体上面一个文本框和一个命令按钮,如下图所示。编写如下程序:PrivateSubFormLoad{{U}}2{{/U}}ShowText1.Text=""Form1.KeyPreview=FalseText1.SetFocusEndSubPrivateSubCoramand1_Click{{U}}2{{/U}}KeyPreview=NotKeyPreviewPrintEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintUCase(Chr(KeyAscii+1));EndSubPrivateSubText1_KeyPress(KeyAsciAsInteger)PrintChr(KeEAscii+2);KeyAscii=0EndSub阅读以上程序,理解每个事件过程的操作,然后填空。程序运行后,直接从键盘上输入abc,程序的输出是{{U}}{{U}}4{{/U}}{{/U}}。程序运行后,单击一次命令按钮1,然后从键盘上输入abc,程序的输出是{{U}}{{U}}5{{/U}}{{/U}}。
填空题软件文档是软件工程实施中的重要成分,它不仅是软件开发的各阶段的重要依据,而且影响软件的 【3】 。
填空题在窗体上画—个文本框、—个标签和—个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:
Private Sub Command1_Crick()
S$=InputBox("请输入—个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text,7))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串
“VisualBasic”,则在标签中显示的内容是{{U}} 【6】 {{/U}}。
填空题语句print"25+32=";25+32的输出结果是{{U}} 【7】 {{/U}}。
填空题在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load() Open"d:/temp/dat.txt"For Output As #1 Text1.Text="" End Sub Private Sub Text1_KeyPress(Key Ascii As Integer) If______=13 Then If U Case(Text1.Text)=______Then Close 1 End Else Write #1,______ Text1.Text="" End If End If End Sub 以上程序的功能是,在D盘temp目录下建立1个名为dat.txt的文件,在文本框中输入字符,每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则结束程序。请填空。
填空题在窗体上画一个命令按钮, 名称为 Command1, 然后编写如下事件过程:
程序运行后
填空题设二叉树如图7所示,对该二叉树进行后序遍历的结果为______。
填空题运行时动态增减菜单项必须使用菜单数组,增加菜单项时需要采用 【7】 语句,减少菜单项时要使用 【8】 语句。
填空题在窗体中添加一个命令按钮,编写如下程序代码:在InputBox对话框中输入Hello,运行结果为:______。
填空题以下程序段的输出结果是【 】。
num=0
While num<=2
num=num+1
Wend
Print num
填空题下列软件系统结构图的宽度为______。
填空题一棵二叉树第六层(根结点为第一层)的结点数最多{{U}} 【1】 {{/U}}个。
