vb.net编程（8个问题,求助高手，题不难）答对80金币+

VB.NET 一道编程题 求助大家帮忙~

Function func(ByVal x As Integer, ByVal y As Integer) As Integer
If x < 5 Then
y = 3 * 5 + 6 * x - 1
ElseIf x >= 5 And x <= 20 Then
y = 5 * x - 5
ElseIf x > 20 Then
y = 3 * 2 + 2 * x - 9
End If
func = y
End Function

不是阿.你的东西完全可以实现那.

我给你写了个

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0.5
Timer1.Enabled = True
'TestEvents()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Opacity += 0.1
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Opacity += 0.1
End Sub

Button1点击可以加透明度
也可以timer控制 你timer设置interval 1000 就是1秒
然后就可以啦.
你的失误在于你没有启动 timer
Timer1.Enabled = True 就可以了. 还有不要弄的太快、不然你眼睛还来不及反应就已经好了.

这是个属性没有什么不能设置的.

再给你点参考关于
===================================================
Form.Opacity 属性 [Visual Basic]请参见
Form 类 | Form 成员 | System.Windows.Forms 命名空间 | TransparencyKey | 创建透明 Windows 窗体 | Form 成员（Visual J# 语法） | C++ 托管扩展编程
要求
平台: Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows Server 2003 系列
语言
C#

C++

JScript

Visual Basic

全部显示
获取或设置窗体的不透明度级别。

[Visual Basic]
Public Property Opacity As Double

[C#]
public double Opacity {get; set;}

[C++]
public: __property double get_Opacity();
public: __property void set_Opacity(double);

[JScript]
public function get Opacity() : double;
public function set Opacity(double);

属性值
窗体的不透明度级别。默认值为 1.00。

备注
此属性使您得以指定窗体及其控件的透明度级别。此属性与 TransparencyKey 提供的透明度不同，后者只能使窗体及其控件完全透明，条件是当窗体及其控件与 TransparencyKey 属性中指定的值所表示的颜色相同。当将此属性设置为小于 100% (1.00) 的值时，将使整个窗体（包括边框）更透明。将此属性设置为值 0% (0.00) 时，将使该窗体完全不可见。可以使用此属性提供不同级别的透明度，或者提供如窗体逐渐进入或退出视野这样的效果。例如，可以通过将 Opacity 属性设置为值 0% (0.00)，并逐渐增加该值直到它到达 100% (1.00)，来使某窗体逐渐进入视野。

Windows 2000, Windows Server 2003 系列平台说明: 此属性在无法显示分层窗口的平台上不起作用。



=======================================================
饿的神阿、不给我加分就太不厚道列.

我尽力吧~！！我还是刚学的，分你想加就加，不加也无访了！！
1、用到的控件如下：button1,button2,label1,label2
Dim i, j As Integer
Dim arr(9) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For j = 0 To 9
i = Rnd() * 99
arr(j) = i
Label1.Text = Label1.Text & arr(j) & Space(2)
Next

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim t As Integer

For j = 0 To 8
If arr(j) > arr(j + 1) Then
t = arr(j)
arr(j) = arr(j + 1)
arr(j + 1) = t
End If
Next
Label2.Text = arr(9)
End Sub
End Class
2、Dim arr(9) As Integer
Dim i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If i = 10 Then
MsgBox("只能输入10个数")
Exit Sub
End If
arr(i) = Val(TextBox1.Text)
Label1.Text = Label1.Text & arr(i) & Space(2)
i += 1
TextBox1.Text = ""

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sum As Integer
For i = 0 To 9
sum = arr(i) + sum
Next
Label2.Text = sum / 10
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "输入"
Button2.Text = "求平均数"
End Sub
End Class
如果要健全的话得费点耐心，我做的上面两题不是很好只是临时应付，希望对你有用！！其它的都不难的！！你自己慢慢做做吧！！时间的问题！！！

---

vb.net编程（8个问题,求助高手，题不难）答对80金币+视频