UC知道VB题 高手请进
来源：百度知道 编辑：UC知道 时间：2024/05/26 19:37:39
第一题
在文本框Text1中输入x值，按下回车键时根据下面的分段函数求y值并显示在标签Label1中。
y = log(x)/log(2) ,x>0 且
y = 1/abs(x) ,x<0
文件名：窗体文件T2.FRM，工程文件T2.VBP
第二题
任意输入x，y，z三个数，使x，y，z中依次存放从大到小的数并显示出来。
文件名：窗体文件T2.FRM，工程文件T2.VBP
在文本框Text1中输入x值，按下回车键时根据下面的分段函数求y值并显示在标签Label1中。
y = log(x)/log(2) ,x>0 且
y = 1/abs(x) ,x<0
文件名：窗体文件T2.FRM，工程文件T2.VBP
第二题
任意输入x，y，z三个数，使x，y，z中依次存放从大到小的数并显示出来。
文件名：窗体文件T2.FRM，工程文件T2.VBP
vb快忘了，大概写一下吧。
1。
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim x%, y%
x = Val(Text1.Text)
If KeyAscii = 13 Then
If x > 0 Then
y = Log(x) / Log(2)
ElseIf x < 0 Then
y = 1 / Abs(x)
Else
y = 0 '这种情况你没说
End If
Print y
End If
End Sub
2.
Private Sub Form_Load()
Dim x%, y%, z%, a(3)
For i = 0 To 2
a(i) = InputBox("请输入一个整数")
Next i
For i = 0 To 1
For j = 0 To 2 - i
If a(j) > a(j + 1) Then
t = a(j)
a(j + 1) = a(j)
a(j) = t
End If
Next j
Next i
x = a(2)
y = a(1)
z = a(0)
Print x, y, z
End Sub