单选题若想要建立一个学生管理系统的输入界面,其中要求选择学生的性别/政治面貌(党/团/群众)及选课情况(共有5门课,可任选),下列设置方法正确的是______。
单选题要求当鼠标在图片框Picturel中移动时,立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是( )。
单选题下列控件中,没有Caption属性的是______。
单选题下面不能在信息框中输出“VB”的是( )。
单选题对窗体编写如下事件过程: Private Sub Form MouseDown(Button As Integer,Shift As Integer, _ x As Single, Y As Single) If Button=2 Then Print "AAA" End If End Sub Private Sub Form MouseUp (Button As Integer,Shift As Integer,_ x As Single,Y As Single) Print "BBB" End Sub 程序运行后,如果单击鼠标右键,则输出结果为 ______。
单选题下面叙述中错误的是
单选题在窗体画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(I)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是______。
单选题以下程序运行后,输出结果是()。Forj=1T03PrintTab(3*j);2*(j-1)*2*(j-1)NextjPrint
单选题在窗体上画一个名称为Text1的文本框,然后编写如下事件过程:
Private Sub Form_Load()
Show
Text1.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim ch As String
ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(ch))
Print Chr(KeyAscii+4);
End Sub
程序运行后,在文本框中输入abcde,则在窗体上显示的内容是
单选题设在工程文件中有一个标准模块,其中定义了如下记录类型: Type Books Name As String*10.; TelNum As String*20 End Type 在窗体上画一个名为Commandl的命令按钮,要求当执行事件过程Commandl Click时,在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是
单选题以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click() Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End Sub
单选题以下可以作为“容器”的控件是
单选题fileFiles.Pattern="*.dat"程序代码执行后,会显示
单选题当一个复选框被选中时,它的Value属性的值是
单选题在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonnameAsString*8majorAsString*20EndTypeDimpAsPemon设文本框中的数据已正确地赋值给Person类型的变量p,当单击“保存”按钮时,能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。A.Open"c:/Test2.dat"ForOutputAs#1Put#1,1,PClose#1B.Open"c:/Test2.dat"ForRandomAs#1Get#1,1.PClose#1C.Open"c:/Test2.dat"ForRandomAs#1Len=Len(P)Put#1,1,pClose#1D.Open"c:/Test2.dat"ForRandomAs#1Len=Len(P)Get#1,1,PClose#1
单选题要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MultiSelect属性设置为( )。
单选题以下变量名中合法的是( )。
单选题下列说法中,错误的是
单选题设在窗体上有—个名称为Combol的组合框,含有5个项目,要删除最后一项,正确的语句是 ______。
单选题在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a$="321":b$="abc" For j=1 To 5 Print Mid$(a$,6 -j,1)+Mid$(b$,j,1); Next i End Sub 程序运行后,输出的结果是;