单选题表达式Sgn(0.25)的值是( )。 A) -1 B) 0 C) 1 D) 0.5
单选题下面程序在调试时出现了死循环 Private Sub Command1_Click() n=InputBox(“请输入一个整数”) Do Ifn Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000 End Sub
单选题一个教师能开多门课程，一门课程有许多教师会开，实体课程与实体教师间是______。
单选题窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim P As Integer P=m(1)+m(2)+m(3) Print P End Sub Private Function m(n As Integer)As Integer Static s As Integer For i=1 To n s=s+1 Next m=S End Function 运行程序，第2次单击命令按钮Command1时的输出结果为( )。
单选题图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是
A.Autosize
B.Stretch
C.AutoRedraw
D.Appearance
单选题ROUND(156.789,2)返回的是( )
单选题设有如下变量声明语句：Dim a,b As Bolean则下面叙述中正确的是
单选题设：a=12，b=5，c=7，表达式x=(a＼c+a Mod b)+Int(13／5)的值是
单选题窗体上有一个名称为Text1的文本框，一个名称为CD1的通用对话框，一个标题为“打开文件”的命令按钮，如图所示。命令按钮的单击事件过程如下：PrivateSubCommand1_Click()CD1.showOpenOpenCD1.FileNameForInputAs#1MsgBoxCD1.FileNameLineInput#1,sText1.Text=sClose#1EndSub单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中，以下叙述中正确的是______。
单选题现有如下程序： Private Sub Commandl_Click()
S=0 For i=1 To 5 s=s+f(5+i)
Next Print s End Sub Public
Function f(x As Integer) If x＞=10 Then
t=x+1 Else t=x+2 End
If f=t End Function
运行程序，则窗体上显示的是______。
A.38
B.49
C.61
D.70
单选题对手某些控件，只要将其Style属性设置为1，则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
单选题以下______是Visual Basic合法的数组元素。
单选题在Visual Basic中，组合框是文本框和下列哪一项的特性的组合
单选题下列叙述中正确的是
单选题设工程中有2个窗体：Form1和Form2，每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中，应进行的操作是
单选题以下能对正实数d的第3位小数四舍五入的表达式是
单选题设a=2，b=3，c=4，d=5，下列表达式的值是______。
a＞b And c＜=d Or 2*a＞c
单选题单击窗体时，下列程序的执行结果是( )。
Private Sub Invert(By Val xstr As String，ystr As String)
Dim tempstr AS String
Dim I AS Integer
I=Len(xstr)
Do While I＞=1
tempstr=tempstr + Mid(xstr，I，1)
I=I - 1
Loop
yStr=tempStr
End Sub
Private Sub Form_Click( )
Dim s1 As String，s2 As String
S1="abcdef"
Invert S1，S2
Print S2
End Sub
单选题设窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a％=100 Print a End Sub 其中变量a和s的数据类型分别是( )。
单选题某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：Private Sub Commandl_Click() Dim a(10)As Integer,max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Nextk max=0 For k=1 To 10 Ifa(k)＞max Then max=a(k) End If Next k Print maxEnd Sub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是