单选题以下语句的输出结果是______。 Print Format(12345.6，"000,000.00")
单选题在Visual Basic中，表达式3*2＼5 Mod 3的值是
单选题下列是一个循环结构的程序，循环体内的语句将执行的次数是 k=0 For
i=1 to 100 For j=1 to 10
k=k+1 Next Next
A. 0
B. 10
C. 100
D. 1000
单选题关于随机文件，下列说法错误的是( )。
单选题下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是
单选题下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel 键退出对话框，则（ ）。
Private Sub Command1_Click( )
CommonDialogl．CancelError=True
CommonDialogl．Flags=cdlCFEffects Or cdlDFBotb
CommonDialogl．Action=4
CommonDialogl．ShowFont
Text1.Font.Name=CommonDialogl．FontName
Text1．Font．Size=CommonDialogl．FontSize
Text1．Font．Bold=CommonDialog1．FontBold
Text1．Font．Italic=CommonDialog1．FontItalic
Text1．Font．Underline=CommonDialog1．FontUnderline
Text1．FontStrikethru=CommonDialog1．FontStrikethru
Text1．ForeColor=CommonDialog1．Color
End Sub
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim i As Integer Dim num As Integer Dim n As Integer n=0 Randomize For i=1 To 10 num=Int(Rnd*10)+1 Select Case hum Mod 2 Case 1 Exit For Case 0 Print num n=n+1 End Select Next i Print”n=”：n End Sub 下面有关描述中正确的是( )。
单选题下列描述中正确的是
单选题窗体上有一个名称为Combol的组合框，一个名称为、Command1的命令按钮。要求编写程序：在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能： Combol．RemoveItem i：Combol．Text=""：flag=1 End If Ifflag=1 Then 程序中存在问题，以下关于程序问题的叙述中，正确的是
单选题设窗体上有一个Picturel图片框，要求在图片框中的指定位置(坐标为(500，300))输出“OK”，下面可以实现这一功能的事件过程是
单选题若看到程序中有以下事件过程，则可以肯定的是，当程序运行时Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single，Y As Single) Print"VB Program"End Sub
单选题设有如下语句：
Dim a,b As Integer
c="Visual Basic"
d=#7/20/2005#
以下关于这段代码的叙述中，错误的是______。
单选题运行如下程序： Private Sub Command1_Click() Dim a(5，5)As Integer For i=1 To 5 For j=1 To 4 a(i，j)=i*2+j If a(i，j)／7=a(i，j)＼7 Then n=n+1 End If Next j Next Print n End Sub n的值是( )。
单选题窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于
500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以 下程序中问号（？）处应填入的内容是______。
Private Sub Text1_LostFocus() Call CheckInput(Text1,500) End Sub
Private Sub Text2_LostFocus() Call CheckInput(Text2,1000) End Sub
Sub CheckInput(t As ?,x As Integer) If Val(t.Text)>x Then
MsgBox "请重新输入！"
End If
End Sub
单选题假定有以下函数过程：
Function Fun(ByVal S As String) As String
Dim s1 As String
For I = 1 To Len(S)
s1 = UCase(Mid(S, I, 1)) + s1
Next I
Fun = s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim Str1 As String, Str2 As String
Strl = InputBox("请输入一个字符串")
Str2 = Fun(Strl)
Print Str2
End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确定"按钮后在窗体上的输出结果为（ ）
单选题如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的空白处要填入( )。 x=1 Do x=x+3 Printx LoopUntil______
单选题有下面程序代码：Private Sub Commandl_Click() Dim aAs String a="COMPUTER"n=search(a，"T")：Print IIf(n=0，"未找到"，n) End Sub Private Function search(str As String，ch As String)As Integer For k=1 To Len(str) c=Mid(str，k，1) Ifc=ch Then search=k：Exit Function End If Next k search=0End Function程序运行后，单击命令按钮Commandl，输出结果是
单选题下面是窗体的MouseUp事件框架，在发生该事件时按下了＜Ctrl＞键，可通过它的 ( )参数来识别。
单选题执行下列程序段后，输出的结果是 For k1=0 To 4 Y=20 For k2=0 To 3 y=10 For k3=0 To 2 y=y+10 Next k3，k2，k1 Print y
单选题在窗体上画一个名称为CommonDialog1的通用对话框和一个名为Command1的命令按钮。要求实现这样一个功能：单击命令按钮后，打开一个通用对话框用于保存文件，其窗口标题为“保存”，默认文件名为Data，在“文件类型”栏中显示*.txt。下列程序中能实现以上功能的是______ 。