单选题设变量x中的值是395,则下面语句的输出是 Print x / 100 + ((x Mod 100) / 10) * 10 + (x Mod 10) * 100
单选题设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是( )。
单选题要使窗体以最大化方式显示,应设置窗体的( )属性。
单选题设有如下程序:
Private Sub Form_Click()
Dim a,k As Integer
Dim n As Integer,s As Integer
a=Array(1,1,1,2,2,2)
For k=LBound(a) To UBound(a)
n=n+k
s=s+a(k)
Next
Print n;s
End Sub
程序运行后,如果单击窗体,则在窗体上输出的内容为______。
单选题窗体上有一个按钮和一个列表框(Sorted属性为True),执行下列过程后的输出结果为______。
Private Sub Command1_Click()
LiSt1.Addltem "China"
List1.AddItem "Great"
List1.AddItem "IS",1
List1.AddItem "!",3
Print List1.List(2)
End Sub
单选题窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click()
Text1.Text="程序设计"
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text="等级考试"
End Sub
运行以上程序,单击命令按钮后
单选题设有如下程序: Option Base 1 Private Sub Form Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后,单击窗体,在窗体上显示的内容为______ 。
单选题设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应在程序中使用的语句是
A. menu1.Enabled=True
B. menu1.Enabled=False
C. menu1.Visible=True
D. menu1.Visible=False
单选题表达式x=Sqr(a^2-5) +Sqr(b^2-5)的类型是( )。 A) 算术表达式 B) 逻辑表达式 C) 关系表达式 D) 字符表达式
单选题阅读程序: Function F(a As Integer)
b=0 Static c b=b+1
c=c+1 F=a+b+c End
Function Private Sub Command1_Click()
Dim a As Integer a=2 For i=1 To
3 Print F(A) Next
i End Sub 运行上面的程序,单击命令按钮,输出结果为 ______。
A. 4 4 4
B. 4 5 6
C. 4 6 8
D. 4 7 9
单选题下面关于菜单的叙述中正确的是
单选题将—个窗体设置为MDI窗体的方法是______。
单选题以下关系表达式中,其值为False的是________。 (A) "Base " > "Basic" (B) "List1" > "Command1" (C) "CASE" = UCase("case") (D) "Integer" > "Int/
单选题软件需求分析阶段的工作可以分为四个方面:需求获取、需求分析、编写需求分析说明书和
A.阶段性报告
B.需求评审
C.总结
D.都不正确
单选题下列程序段的执行结果为( )。 a=75 If a>60 Then I=1 If a>70 Then I=2 If a>80 Then I=3 If a<90 Then I=4 Print"I=":I A.I=1 B.I=2 C.I=3 D.I=4
单选题窗体上有名称分别为Text1、Text2的两个文本框,有一个由三个单选按钮构成的控件数组Option1,如图3所示。程序运行后,如果单击某个单选按钮,则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中,如图4所示。为了实现上述功能,在程序中的问号(?)处应填入的内容是PrivateSubOption1_Click(IndexAsInteger)IfText1.Text<>""ThenSelectCase?Case0Text2.Text=Val(Text1.Text)Case1Text2.Text=Val(Text1.Text)*10Case2Text2.Text=Val(Text1.Text)*100EndSelectEndIfEndSub
单选题窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下:
Private Sub Command1_Click()
Dim m As String
m=InputBox("请输入字符串")
Print pick_str(m)
End Sub
Private Function pick_str(s As String)As String
temp=" "
i=1
sLen=Len(s)
Do While i<=sLen/2
temp=temp+Mid(s, i, 1)+Mid(s, sLen-i+1, 1)
i=i+1
Loop
pick_str=temp
End Funetion
运行程序,单击命令按钮,并在输入对话框中输入“basic”,则在窗体上显示的内容为______。
单选题表达式66/8 mod 5&"avg"的值是______。
单选题运行如下程序Private Sub Commandl_Click() Dim a(5,5)As Integer For i=1 To 5 Forj=1 To 4 a(i,j)=i*2+j If a(i,j)/7=a(i,j)\7 Then n=n+1 End If Nextj Next Print n End Sub则n的值是
单选题下面4个语句中,能打印显示20*30字样的是( )。
