填空题

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下程序：
Function Fun(x As Integer, ByValy As Integer)As Integer
x=x+y
If x＜0 Then
Fun=X
Else
Fun=y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=-10:b=5
Text1. Text=Fun(a, b)
Text2. Text=Fun(a, b)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是和。

【参考答案】

-5 5

<上一题目录下一题>

热门试题

填空题

本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有3个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。 Private Sub Command1_Click() Randomize n=CInt(Text1. Text) n1=0 n2=0 For i=1 To______ r=Int (Rnd*2) If r=______Then n1=n1+1 Else n2=n2+1 End If Next Text2. Text=n1 Text3. Text=n2 End Sub

填空题

阅读程序： Option Base 1 Private Sub Form Click() Dim a(3)As Integer Print 输入的数据是；； For i==1 To 3 a(i)=InputBox( 输入数据 ) Print a(i)； Next Print If a(1)＜a(2)Then t=a(1) a(1)=a(2) a(2)=______ End If If a(2)＞a(3)Then m=a(2) Elself a(1)＞a(3)Then m=______ Else m=______ End If Print 中间数是：；m End Sub 程序运行后，单击窗体，在输入对话框中分别输入3个整数，程序将输出3个数中的中间数，如图所示。请填空。

相关试题