【单选题】在窗体上有一个命令按钮Command1,编写事件代码如下: Private Sub Command1_Click() Dim y As Integer y=0 Do y=InputBox('y=') If(y Mod 10)+Int(y/10)=10 Then Debug.Print y; Loop Until y=0 End Sub 打开窗体运行后,单击命令按钮,依次输入10、37、50、55、...
【单选题】在窗体上有一个命令按钮Command1,编写下列程序: Private Sub Command1_Click() Print pp1(3,7) End Sub Public Function pp1(x As Single,n As Integer)As Single If n=0 Then pp1=1 Else If n Mod 2=1 Then pp1=x*x+n Else pp1=x*x-n...
【单选题】在窗体上有一个命令按钮Command1,编写如下程序: Private Sub Command1_Click() Print pp1(3, 7) End Sub Public Function pp1(x As Single, n As Integer) As Single If n = 0 Then pp1= 1 Else If n Mod 2 = 1 Then pp1 =x*x+n Else ...
【简答题】仿照例句写句子。 例:This is a cap. It's Green. --- This cap is Green. 1. That's an apple. It's red. ---________________________________________ 2. This is a desk. It's yello...