单选题有如下程序： infocase$= InputBox("Input one letter.") Select Case infocase$ case“a” grade$="Very good" case“b” grade$="Good” case“C” grade$=“OK” case“d” grade$="Qualified" case Else grade$=“Bab” End Select Print grade$ 运行时从键盘上输入英文小写字母d后，输出的结果是( )。 A) Very good B) Good C) Bad D) Qualified
单选题表达式 5 Mod 3+5/3的值是（ ）
单选题窗体上有1个名称为L,istl的列表框，其中有若干列表项，并有下面程序代码：…P—rivate Sub Listl—DblClick() Exchange Listl．Listl．ListIndexEnd SubPrivate Sub Exchange(Source As ListBox，k As Integer) k％=Source．ListIndex ch=Source．List(k) Source．RemoveItem k Source．AddItem Source．List(Source．ListCount一1)，k Source．Removeltem Source．ListCount一1 Source．Addltem chEnd Sub程序运行后，双击某个列表项，产生的结果是( )。
单选题下面不是菜单编辑器组成部分的是
单选题为了实现对象的自动拖放，应该设置该对象的一个属性。下面设置中正确的是______。
单选题某人创建了1个工程,其中的窗体名称为Form1；之后又添加了1个名为Fonn2的窗体,并希望程序执行时先显示Fom2.窗体,那么他需要做的工作是【 】
单选题设有命令按钮 Command1 的单击事件过程，代码如下：
Private Sub Command1_Click() Dim a(30) As Integer
For i=1 To 30
a(i)=Int(Rnd*100) Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem
If arrItem>90 Then Exit For
Next
End Sub 对于该事件过程，以下叙述中错误的是______。
单选题以下程序段运行时从键盘上输入字符“-”，则输出结果为 op$=InputBox("op=") If op$="+"Then a=a+2 If op$="-"Then a=a-2 Print a
单选题在属性窗口中，加载指定的图形放入当前对象中的属性是
单选题在窗体上从仨到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是()。
单选题列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是______。
A.List
B.ListIndex
C.Text
D.ListCount
单选题有如下的程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Fun(k,m)：Print P； P=Fun(k,m)：Print P End Sub Private Function Fun(a As Integer，b As Integer) Static m As Integer，i As Integer in=5：i=2 i=i+m+1 m=i+a+b Fun=m/2 End Function 单击命令按钮后，输出结果为 A) 2 2 B) 4 4 C) 5 5 D) 6 6
单选题在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_Ciick() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
单选题组合框是文本框和( )特性的组合。
单选题在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt，文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体，打开Alph.txt文件，读取字符串并显示在文本框Text1中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入AlpO.txt文件中(无双引号界定符)。请选择横线处合适的语句( )。 Private Sub Form_Load() Dim StrIn As String,StrOut As Strings Open"C:/Alph.txt"For Input As #1 ______ Close Text1.Text=StrIn ______ Text2.Text=StrOut Open"C:/AlpO.txt"For Output As#2 ______ Close End Sub Private Function StrSort(s As String)As String Dim s Arr() As String *1,i As Integer,j As Integer,n As Integer Dim t As String *1 n=Len(s) ReDim sArr(n) For i=1 To n s Arr(i)=Mid(s,i,1) Next i For i=1 To n-1 For j=i+1 To n If sArr(i)＞sArr(j) Then t=sArr(i):sArr(j):sArr(j):sArr(j)=t End If Next j,i For i=1 To n StrSort=StrSort & s Arr(i) Next i End Function
单选题假定在图片框Picture1中装入了一个图片，在程序运行中，为了清除该图片f注意，清除图片，而不是删除图片框)，应采用的正确方法是______。
A.单击图片框，然后按Del键
B.执行语句Picturel.Picture=LoadPicture("")
C.执行语句Picture1.Picture=""
D.执行语句：Picture1.Cls
单选题编写如下程序： Private Sub Command1_Click() Dim m As Integer，n As Integer m=1：n=0 Do While m<20 n=m+n：m=3*m+1 Loop Print m，n End Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题在窗体中添加一个列表框(listBox1)和一个命令按钮，并编写如下代码：Private Sub Command1_ Click() Dim Entry, I, Msg Msg = "Choose Ok to add 100 items to your list box." MsgBox Msg for I = 1 To 100 Entry = "Entry" & I List1. AddItem Entry Next IEnd Sub程序完成的功能是______。
单选题下列打开“代码窗口”的操作中错误的是
单选题结构化程序设计的主要任务是确定每个模块的