单选题设有如下变量声明Dim timel As Date,为变量time1正确赋值的表达式是
单选题设工程中有2个窗体:Form1、Form2,Form1为启动窗体,Form2中有菜单。其结构如下表所示。要求在程序运行时,在Form1的文本框Text1中输入口令并按Enter键(Enter键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher”,所有菜单项都可见;否则看不到“成绩录入”菜单项。为此,某人在Form1窗体文件中编写如下程序:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teacher" Then
Form2.input.visible=True
Else
Form2.input.visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub
菜单结构
标题
名称
级别
成绩管理
Mark
1
成绩查询
Query
2
成绩录入
Input
2
程序运行时发现刚输入口令时就隐藏了Form1,显示了Form2,程序需要修改。下面修改方案中正确的是______。
单选题设栈的存储空间为S(1:50),初始状态为top=51。现经过一系列正常的人栈与退栈操作后,top=50,则栈中的元素个数为( )。
单选题在数据结构中,根据各数据元素之间前后件关系的复杂程度,一般将数据结构分成两类,它们是
A. 动态结构和静态结构
B. 紧凑结构和非紧凑结构
C. 线性结构和非线性结构
D. 内部结构和外部结构
单选题编写如下程序: Private Sub Command1_Click() Dim a(3,3)As Integer,s As Integer For i=l To 3 For j=1 To 3 a(i,j)=i*j+i Next i Next i s=0 For i=1 To 3 s=s+a(i,4-i) Next i Print s End Sub 程序运行后,单击命令按钮Command1,输出结果为
单选题下面程序的功能是输出100以内所有素数: Private Sub Command1_Click() For n=2 To 100 isprime=True:k=2 Do While k<=n/2 And If n Mod k=0 Then isprime=False k=k+1 Loop If isprime Then Print n Next n End Sub 为使上面程序可以实现该功能,程序代码中横线处应填写的代码是
单选题在对下拉菜单(假设菜单名为mnuH)快捷键设置中以下不正确的是_________。
A.mnuH.Shortcut="F1"
B.mnuH.Shortcut="Ctrl+B"
C.mnuH.Shortcut="T"
D.mnuH.Shortcut="Del"
单选题对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为________。
A. log2n
B. n/2
C. n
D. n+l
单选题软件生存周期中,解决软件“怎么做”的阶段是( )。
单选题设在工程中有一个标准模块,其中定义了如下记录类型: TyPe Record ID A3 Integer Name As String*20 End TyPe 在窗体中添加一个名为Command1的命令按钮,假设d:/F1.dat文件中含有5个用户自定义类型的记录。要求当执行事件过程Command1_Click时,随机访问该文件,并把文件中的第4条记录读出。下列能够完成该操作的程序段是
单选题如果想让名为MenuItem1的菜单项在运行时显示为“[E]dit”,则该菜单项的标题为 ( )。
单选题下述说法不正确的是________。
A. 栈是一种运算受限的线性结构
B. 栈是一种后进先出的线性结构
C. 栈可以是线性结构也可以是非线性结构
D. 栈可以用数组或链表来实现
单选题窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序 如下: Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序,下列叙述中错误的是( )。
单选题随机产生10个100~200之间的数,求它们的最大值程序如下:
Private Sub Command1_Click( )
Max = 100
For I = 1 To 10
x =Int(Rnd * 101 + 100)
Print x;
If 【】 Then Max=x
Next I
Print
Print "最大值="; Max
End Sub
在【】处应该填写的是:( )
单选题某系统结构图如下图所示该系统结构图的宽度是()。
单选题设窗体上有3个图像框:hnage1、Image2、Image3,并有下面的程序代码: Private Sub Form_Load() Image1.Picture=LoadPicture(”LEAF.bmp”) Image2.Picture=LoadPicture(”OPEN.bmp”) Image3.Visible=False End Sub Private Sub Imagel_Click() Image2.Picture=Image1.Picture End Sub Private Sub Image2_Click() Image3.Picture=Image2.Picture Image2.Picture=Image1.Picture Image 1.Picture=Image3.PictureEnd Sub在程序运行期间单击Image2,则在窗体上看到的结果是
单选题设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是( )。
单选题通用对话框中打开“颜色对话框”的方法是{{U}} {{/U}}。
A.ShowOpen
B.ShowColor
C.ShowSave
D.ShowPrinter
单选题窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。命令按钮的事件过程如下:PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0CD1.Action=1Case1CD1.ShowSaveCase2CD1.Action=5Case3EndEndSelectEndSub对上述程序,下列叙述中错误的是()。
单选题以下关于键盘事件的叙述中,错误的是______。
A.按下键盘按键既能触发KeyPress事件,也能触发KeyDown事件
B.KeyDown、KeyUp事件过程中,大、小写字母被视作相同的字符
C.KeyDown、KeyUp事件能够识别Shift、Alt、Ctrl等键
D.KeyCode是KeyPress事件的参数