单选题下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。
例如,若str="ABCDABCD",ch="B",则函数的返回值为:"ACDACD"
Function delchar(str As String, ch As String)As String
Dim k As Integer, tempAs String, ret As Strinq
ret=""
For k=1 To Len(str)
temp=Mid(str,k,1)
If temp=ch Then
ret=ret&temp
End If
Next k
delchar=ret
End Function
但实际上函数有错误,需要修改。下面的修改方案中正确的是______。
单选题下列哪个是面向对象程序设计不同于其他语言的主要特点?
单选题下列排序方法中,最坏情况下比较次数最少的是( )。
单选题下列控件没有Change事件的是____。
单选题单击一次窗体之后,下列程序代码的执行结果为______ 。 Private Sub Command1_ Click() Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 4 Print Value(a, b, c) End Sub Function Num(x As Integer, y As Integer, z As Integer) Num = x * x + y * y + z * z End Function Function Value(x As Integer, y As Integer, z As Integer) Value = Num(x, y, z) + 2 * x End Function
单选题以下关于变量作用域的叙述中错误的是
单选题编写如下程序: Private Sub Command1_Click() Dim n As Integer:Static s As Integer For n=1 To 3 s=s+n Next Print s End Sub 程序运行后,第三次单击命令按钮Command1时,输出结果为
单选题有如下函数过程: Function Fun(ByVal x As Integer,ByVal y As Integer)As Integer Do While y<>0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程,该程序的运行结果是( )。 Private Sub Command7_Click() Dim a As Integer,b As Integer a=100:b=25 x=Fun(a,B) Print X End Sub A) 0 B) 25 C) 50 D) 100
单选题在窗体上画—个名称为Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Text1.Text==" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "VisualBasic"; End Sub 程序运行后,如果按A键,然后单击窗体,则在窗体上显示的内容是 ______。
单选题工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:Public x As Integerprivate y As Integer窗体文件的程序代码是:
Dim a As Integer
Private Sub Form_Load()
Dim b As Integer
a=2:b=3::x=10:y=20
End Sub
Private Sub Command1_Click()
a=a+5:b=b+5:x=x+5:y=y+5
Print a; b; x; y
End Sub
运行程序,单击窗体上的命令按钮,则在窗体上显示的是
单选题下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如,若str=“ABCD-ABCD”,ch=“B”,则函数的返回值为“ACDACD”。
Function delchar(str As String,ch As String) As String
Dim k As Integer,tempAs String,ret As String
ret=""
For k=1 To Len(str)
temp=Mid(str,k,1)
If temp=ch Then
ret=ret & temp
End lf
Next k
delchar=ret
End Function
但实际上函数有错误,需要修改。下面的修改方案中正确的是______。
单选题执行如下程序段后,intsum的值为______。
单选题确定图片框Picture1在窗体上位置的属性是______。
单选题下面是窗体的四个属性,在界面设计时,改变属性值而看不到窗体变化的是________。
单选题设有如下事件过程:Private Sub Command1_Click() For i=1 To 5 j=i Do Print "*" j=j-1 Loop Until j=0 Next iEnd Sub运行程序,输出"*"的个数是( )。
单选题下列关于过程的叙述中,错误的是
A.事件过程是由某个事件触发而执行的过程
B.函数过程的返回值可以有多个
C.可以在事件过程中调用通用过程
D.不能在事件过程中定义函数过程
单选题以下不能触发滚动条Change事件的操作是
单选题默认情况下,下面声明的数组的元素个数是______。
Dim a(5,-2 To 2)
单选题目录列表框的Path属性的作用是
单选题下列控件中可自动设置滚动条是______。
