选择题设有如下变量声明语句:
Dim a, b As Boolean
则下面叙述中正确的是( )
选择题在关系数据库中, 用来表示实体间联系的是( )
选择题下面描述中, 不属于软件危机表现的是
选择题窗体上有一个名称为 Franlel 的框架(如图)
填空题表达式Fix(-48.65)+Int(-52.15)的值是{{U}} 【6】 {{/U}}。
填空题软件工程研究的内容主要包括:软件开发技术和 【4】 。
填空题下面一段程序的功能是,单击命令按钮后将D盘temp 目录下的staff.txt 文件内容读出,并在文本框Text1中显示出来。请填空。
Private Sub Command1_ Click()
Dim Line As String, FileNo As Integer
Dim People As String
FileNo = FreeFile
Open "D:/temp/staff.txt" For Input As ______
DO While Not ______
Line Input #FileNo, Line
People = People + Line + Chr(13) + Chr(10)
Loop
Text1.Text = People
End Sub
填空题图片按钮的{{U}} 【6】 {{/U}}属性用来设置命令按钮无效时显示的图形。
填空题已知B的ASCII码为66,以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim 【8】 For i=65 To 90 pp(i) =0 Next x$=InputBox("Enter a string",x$) x$=UCase$(x$) For i=1 To 【9】 n=Asc(Mid$(x$,i,1)) If n >=65 And n <=90 Then 【10】 End If Next i For i=65 To 90 If pp(i) >0 Then Print Chr$(i);pp(i) End If Next
填空题在窗体上画一个命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行一面的程序,单击命令按钮,其输出结果是 【15】 。
填空题一个程序最多可以有 【7】 窗体。
填空题下面程序运行后,窗体中显示______。 Private Sub Command1_Click) () a$="*":b$="$" For k=1 To 3 x$=String$(Len(a$) +k,b$) Print x$; Next Print End Sub
填空题单击窗体上的命令按钮Command1,程序的输出为{{U}} 【6】 {{/U}}。
Private Sub Command1_Click()
a="AbC"
b="dEF"
c=UCase(a) +LCase(b)
Print Asc(c)
End Sub
填空题下面程序的作用是用InputBox函数输入一个整数,然后判断能否同时被2,5和7整除,果能则输出该数及平方值。请填空。 Private Sub Command1_Click() Dim numX As Integer numX = Val (InputBox("请输入一个整数")) If 【9】 Then Form1.Print 【10】 End If End Sub
填空题以下程序用来建立一个5×5矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。该程序运行结果如下图所示。PrivateSubformClick()Dims(5,5)AsIntegerforN=1To5forM=1To5if{{U}}【13】{{/U}}Or{{U}}【14】{{/U}}thenS(N,M)=1ElseS(N.M)=0EndifNextMNextNforN=1To5for{{U}}【15】{{/U}}Picture1.PrintTab(M*3);s(N,M);NextMPrintNextNEndSub
填空题窗体设计器窗口简称______,是应用程序最终面向用户的窗口,它对应于应用程序的运行结果。各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。
填空题在窗体上画一个名称为Combo1的组合框,画两个名称分别为Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”,如果存在,则在Label2中给出提示“输入项已在组合框中”。如下图所示:请将程序补充完整。PrivateSubCombo1(14)(KeyAsciiAsInteger) IfKeyAscii=13Then Fori=0ToCombo1.ListCount-1 IfCombo1.Text=(15)then Label2.Caption="输入项己在组合框中" ExitSub EndIf Nexti Label2.Caption="已成功添加输入项" Combo1.AddItemCombo1.Text EndIfEndSub
填空题执行下面的程序段后;变量S的值为{{U}} {{U}} {{/U}} {{/U}}。
S=5
For i=2.6 To 4.9 Step 0.6
S=S+1
Next i
填空题下图中,图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框,要求用户输入口令,输入完毕后单击“确定”按钮。如果输入的口令正确,则显示图2的界面。如果输入的门令错误,则出现图3的信息框。单击图1中的“取消”按钮,则结束程序。PrivateSubiommand1_Click()DimpassworAsStringpassword=Text1.Textifpassword="Myname"then【12】form1.ShowElsed=MsgBox(【13】)RefreshEndifEndSubPrivateSubcommand2_Click()【14】EndSub在图1的窗体中,文本框对象的名称属性是【15】。
填空题在窗体上建立一个含有3个命令按钮的控件数组,当单击某个命令按钮时,分别执行不同的操作。请填写以下空白处,使程序完整。PrivateSubCommand2_Click(IndexAsInteger)FontSize=12If________ThenPrint"单击第一个命令按钮"ElseIf________ThenPrint"单击第二个命令按钮"ElseIf________ThenEndEndIfEndSub