if-标签-柠檬试题库

首页计算机公务员驾照关于

if

下列四个选项中，不是VBA的条件函数的是(　　)。

下列不属于VBA函数的是(　　)。

窗体中有命令按钮Command1和文本框Text1，事件过程如下： Function result(ByVal x As Integer)As Boolean 　　If x Mod 2＝0 Then 　　　　 result＝True 　　Else 　　　　 result＝False 　　End If End Function Private Sub Command1_Click() 　　x＝Val(InputBox("请输入一个整数")) 　　If 【】 Then 　　　　Text1＝Str(x)& "是偶数." 　　Else 　　　　Text1＝Str(x)& "是奇数." 　　End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么在程序的括号内应填写(　　)。

执行下列程序段后，变量 a 和 b 的值分别是 a = 100 : b = 50 If a > b Then a = a - b Else b = b + a End If

窗体上有一个名为 text1 的文本框和一个名为 command1 的命令按钮，事件过程如下： Private Sub command1_click() Dim i As Integer, n As Integer For j=0 to 50 i=i+3 n=n+1 If i>10 Then Exit For Next j text1=str(n) End Sub 程序运行时单击命令按钮，文本框中显示的值是

下列程序的功能是计算 1 到 1000 之间所有偶数之和，程序空白处应填写的语句是 Private Sub Command_Click() Dim x As Double For i=1 To 1000 If _______ Then x = x + i End If Next i Debug.Print x End Sub

随机标签

sum

广泛

having

强行超车

setvalue