A: f :: (Integer, Integer) - Floatf (x,y) =x / y
B: f :: (Integer, Integer) - Floatf (x,y) = (fromInteger x) / (fromInteger y)
C: f :: (Integer, Integer) - Floatf (x,y) = 3*x + y
D: f :: (Integer, Integer) - Integerf (x, y) = 3*x + y
举一反三
- 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 则以下说法中正确的是( )。
- 在VB中，使用变量前一般应对变量进行定义。以下变量定义语句错误的是（）。 A: Dim x As Integer B: Dim x As Integer，y As Single C: Var x，y：Integer D: Dim x As Integer，y As Integer
- 下列代码执行后，窗体上显示（ ）。 Dim x As Integer, y As Integer x = 50: y = 30 If x > y Then x = x - y Else y = y x If x < y Then x = x 20 Form1.Print x, y
- 下面可以正确定义2个整形变量和一个字符型变量的语句是（） A: Dim x%, y As Integer, n As String B: Dim x As Integer, y, n As String C: Dim x, y As Integer, n As String D: Dim x%, y$, n As String
- 执行下列程序段后，变量y的值为（ ）。 Dim x As Integer,y As Integer x = 7 y = 3 If x >= 10 Then y = x - y ElseIf x>= 7 Then y = x + y Else y = x End If A: 21 B: 10 C: 4 D: 3
内容
- 0
有如下事件程序,运行该程序后输出结果是。 Private Sub Command33_Click() Dim x As Integer, y As Integer x = 1: y = 0 Do Until y <= 25 y = y + x * x x = x + 1 Loop MsgBox "x=" & x & ", y=" & y End Sub
- 1
窗体上有标签（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将分别显示
- 2
编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1 Do y = x * y If y > 10 Then Print x, y Exit Do Else x = x + 3 End If Loop While x <= 10 End Sub 运行程序，输出结果为______
- 3
若有如下代码：<br/>Dim x,y,z As Integer<br/>则以下关于这段代码的叙述中正确的是____。 A: x,y,z被定义为Integer类型变量 B: x,y,z被定义为变体类型变量 C: x,y被定义为Integer类型变量 D: z被定义为Integer类型变量
- 4
设有如下通用过程，在窗体上画一个名称为command1的命令按钮，然后编写如下事件过程： private sub command1_click() dim x as integer x=10 y=5 y=f(x) print x;y end sub public function f (x as integer) dim y as integer x=20 y=2 f=x*y end function 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）