填空题打开“工程窗口”的方法之一是按______组合键。
填空题为了使计时器控件Timer1每隔0.5s触发一次Timer事件，应将Timer1控件的Interva1属性设置为 【6】 。
填空题在窗体上面一个文本框和一个命令按钮，如下图所示。编写如下程序：PrivateSubFormLoad()ShowText1.Text=""Form1.KeyPreview=FalseText1.SetFocusEndSubPrivateSubCoramand1_Click()KeyPreview=NotKeyPreviewPrintEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintUCase(Chr(KeyAscii+1))；EndSubPrivateSubText1_KeyPress(KeyAsciAsInteger)PrintChr(KeEAscii+2)；KeyAscii=0EndSub阅读以上程序，理解每个事件过程的操作，然后填空。程序运行后，直接从键盘上输入abc，程序的输出是(9)。程序运行后，单击一次命令按钮1，然后从键盘上输入abc，程序的输出是(10)。
填空题数据库系统在其内部分为三级模式，即概念模式、内模式和外模式。其中，
________
是用户的数据视图，也就是用户所见到的数据模式。
填空题在当前目录下有一个名为myfile.txt的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。 Private Sub Command1_Click() Dim ch$, ascii As Integer Open "myfile.txt" For (11) As #1 While Not EOF(1) Line Input #1, ch ascii=toascii( (12) ) Print ascii Wend Close #1 End Sub Private Function toascii(myStr$) As Integer n=0 For k=1 To (13) n=n+Asc(Mid(myStr,k,1)) Next k toascii=n End Function
填空题下面程序运行后，窗体中显示{{U}} {{U}} {{/U}} {{/U}}。
Private Sub Command1_Click) ( )
aS ="*" :b$ ="$"
For k = 1 To 3
x$ =Strings (Len(a$) +k,b$ )
Print x $;
Next
Print
End Sub
填空题解题方案的准确而完整的描述称为{{U}} 【1】 {{/U}}。
填空题阅读下面的程序：
Private Sub Form_Click()
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then Check = False Exit Do
End If
Loop
Loop Until Check = False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为 _________。
填空题假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为 Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在{{U}} 【14】 {{/U}}和{{U}} 【15】 {{/U}}处将程序补充完整。
Private Sub Command1_Click()
{{U}} 【14】 {{/U}}Form1
Form2.{{U}} 【15】 {{/U}}
End Sub
填空题在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，脓以5余3，则输出．否则，特焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click( )
num=Val(Text1．Text)
If【 】Then
Print num
Else
Text1．Text=" "
【 】
End If
End Sub
填空题在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框，如下图所示，然后编写如下程序；FunctionFun(xAsInteger,ByVhlyAsInmgcr)AsIntegerX=K+yIfx＜0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCornmandl_Click()DimaAsInteger,bAsIntegera=-10:b=5Tcxt1,Text=Fun(a,b)Text2,Text=Fun(a,b)EndSub程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是上______和______。
填空题关键字ASC和DESC分别表示{{U}} 【5】 {{/U}}的含义。
填空题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Inteeer Sinx As Single Cosx As Single End Tyre Dim Ksc As Ane Private Sub Form Click() Dim Y As Single Open“c:/Data1.txt”For Random As #2 Len=10 Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc=Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) 【15】 Next Close #2 End Sub
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：
Private Sub Form_KeyDown( KeyCode As Integer, Shift As Integer)
Print KeyCode;
End Sub
Private Sub Form_KeyPress( KeyAscii As Integer)
Print Key Ascii
End Sub
程序运行后，如果按下a键，则在窗上输出的数值为{{U}} 【14】 {{/U}}。
填空题假设某应用程序开发工程(默认的工程名为“工程1”)已先后创建了两个窗体，其名称分别为form1和form2。为使窗体form1成为运行该工程时的启动窗体，在开发过程中，应在“工程-工程1属性”对话框内的“通用”标签下，在“启动对象”的下拉列表框中，选择所需启动的窗体名______
填空题以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Command1 _Click( ) For i = 1 To 20 x=Int( 【11】 *200+ 100) If 【12】 = 0 Then Print x S = S + 【13】 End If Next I Print "Sum = "; S End Sub
填空题程序执行结果S的值是 【11】 。 Private Sub Command1_click() i=0 Do i=i+1 s=i+s Loop Until i＞=4 Print s End Sub
填空题将算法的5个特性中，算法必须能在执行有限个步骤之后终止指的是算法的 【1】 性。
填空题有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则显示相应的错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框(如下图所示)。合法编号的组成是：前2个字符是大写英文字母，第3个字符是“-”，后面是数字字符(至少1个)。下面程序可实现此功能，请填空。PrivateSubText1_Lostfocus()Dimk%,n%n=Len(______)Fork=1toIIf(n＞3,n,4)c=Mid(Text1.Text,k,1)SelectCasekCase1,2Ifc＜"A"Orc＞"Z"ThenMsgBox("第"＆k＆"个字符必须是大写字母!")SetPositionkExitForEndIfCase3Ifc＜＞"-"ThenMsgBox("第"＆k＆"个字符必须是字符"'"-"'")SetPositionkExitForEndIfCaseElseIfc＜"0"Orc＞"9"ThenMsgBox("第"＆k＆"个字符必须是数字!")SetPositionkExitForEndIfEndSelectNextkEndSubPrivateSubSetPosition(posAsInteger)Text1.SetStart=pos-1Text.SelLength=______Text1.______EndSub
填空题下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1 2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End TyPe Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open "c:/Data1.txt" For Random As #2 Len=10 Y=3.14159/180 For i=1 T0 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) ______ Next Close #2 End Sub