举一反三
- Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x: x = y: y = t End Sub Sub s2(x As Integer, y As Integer) Dim t As Integer t = x: x = y: y = t End Sub 则以下说法中正确的是( )。
- 假定有以下两个过程： A: 用过程S1可以实现交换两个变量的值的操作，S2不能实现 B: 用过程S2可以实现交换两个变量的值的操作，S1不能实现 C: 用过程S1和s2都可以实现交换两个变量的值的操作 D: 用过程S1和s2都不能实现交换两个变量的值的操作
- 本程序的功能为单击窗体，分别调用Swap1和Swap2子过程，使Form1的输出结果为 A1=10 B1=20 A2=20 B2=10 请将程序补充完整。 Public Sub Swap1(【1】) Dim t As Integer t = x: x = y: y = t End Sub Public Sub Swap2(【2】) Dim t As Integer t = x: x = y: y = t End Sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 【3】 Form1.Print "A1="; a, "B1="; b call swap2(a,b) Form1.Print "A2="; a, "B2="; b End Sub
- 下面可以正确定义两个整型变量和—个字符串变量的语句是（）。 A: Dim n,m As Integer,s As String B: Dim a%,b$,c As String C: Dim a As Integer,b,c As String D: Dim x%,y As Integer,z As String
- 1.以下程序的功能是：生成 20 个 200 到 300 之间的随机整数，输出其中能被 5 整除的数并求出它们的和。 Private Sub Command1_C1ick() Dim s As Integer Dim x As Integer, i As Integer s = 【1】 Randomize For i = 1 To 20 x = Int(【2】 * 101 + 200) If x 【3】 5 = 0 Then Print x s = s + x End If Next i Print "Sum ＝"; s End Sub
内容
- 0
运行下面的程序，第二行显示结果是___________。 Private Sub Form_Click() Dim A As Integer Dim i As Integer A = 5 For i = 1 To 9 Call sub1(i, A) Print i, A Next i End Sub Private Sub sub1(x As Integer, y As Integer) Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + x x = x + 2 Next I y = y + N End Sub
- 1
运行下列程序，单击窗体显示的结果为（ ）。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub
- 2
有如下函数过程： Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是（ ）。
- 3
窗体上有标签（Label1、Label2）和命令按钮（Command1），编写如下事件过程： Private x As Integer: Private Sub Command1_Click(): Dim x As Integer, y As Integer: x = 5: y = 3: proc x, y: Label1.Caption = x: Label2.Caption = y: End Sub: Private Sub proc(ByVal a As Integer, b As Integer): x = a + b: b = b * b: End Sub:运行后，单击按钮，Label1和Label2将分别显示
- 4
设串s1=‘BCDEFG’，s2=‘PQRST’，函数con(x,y)返回x和y串的连接串，subs(s,I,j)返回串s的从序号i的字符开始的j个字符组成的子串，len(s)返回串s的长度，则con(sub(s1,2,len(s2)),sub(s1,len(s2),2))的结果是 A: ‘BCDEF’ B: ‘BCDEFG’ C: ‘BCPQRST’ D: ‘BCDEFEF’