//網址拿掉摟...因為那是老師私人空間還是不要公佈出來的好//
哀....目前10分已到手
2 3 題好難喔??
有人會嗎?
第二題程式：
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim i As Integer = 0
For i = 0 To 9
Num1.Items.Add(i.ToString) '數字一
Num2.Items.Add(i.ToString) '數字二
Next
Operators.Items.Add("+")
Operators.Items.Add("-")
Operators.Items.Add("*")
Operators.Items.Add("/")
End If
End Sub
Protected Sub Calc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calc.Click
'「計算」按鈕的事件
Select Case Operators.SelectedValue
Case "+"
Resualt.Text = CType(CType(Num1.SelectedValue, Integer) + CType(Num2.SelectedValue, Integer), Double)
Case "-"
Resualt.Text = CType(CType(Num1.SelectedValue, Integer) - CType(Num2.SelectedValue, Integer), Double)
Case "*"
Resualt.Text = CType(CType(Num1.SelectedValue, Integer) * CType(Num2.SelectedValue, Integer), Double)
Case "/"
Resualt.Text = CType(CType(Num1.SelectedValue, Integer) / CType(Num2.SelectedValue, Integer), Double)
End Select
End Sub
記得 Imports System.Data.OleDb
If Not Page.IsPostBack Then
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & 你放DB的位置+名稱)
Dim sqlstr As String = "select * from 你資料表的名稱"
Dim sql_cmd As New OleDbCommand(sqlstr, cn)
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
da.SelectCommand = sql_cmd
da.Fill(dt)
DG.DataSource = dt.DefaultView 'DG 是一個DataGrid，請拉一個DataGrid放在網頁上
DG.DataBind()
End If
1、先在DropDownList1~3設定好要的集合項目(用手key啦!)
2、在「計算」控制項中加入下列程式碼：
If DropDownList2.SelectedValue = "+" Then
Label3.Text = CType(DropDownList1.SelectedValue, Int32) + CType(DropDownList3.SelectedItem.Text, Int32)
ElseIf DropDownList2.SelectedValue = "-" Then
Label3.Text = CType(DropDownList1.SelectedValue, Int32) - CType(DropDownList3.SelectedItem.Text, Int32)
ElseIf DropDownList2.SelectedValue = "*" Then
Label3.Text = CType(DropDownList1.SelectedValue, Int32) * CType(DropDownList3.SelectedItem.Text, Int32)
Else
Label3.Text = CType(DropDownList1.SelectedValue, Int32) / CType(DropDownList3.SelectedItem.Text, Int32)
End If
方法有點笨，但很直覺，提供你做參考
請於頁面拉出一個Panel即可，因為物件都是動態產生
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在這裡放置使用者程式碼以初始化網頁
Dim label1 As New Label
label1.ID = "label1"
label1.Text = "第二題"
label1.Width = Unit.Pixel(100)
Dim input_num1 As New DropDownList
input_num1.ID = "input_num1"
input_num1.Width = Unit.Pixel(72)
Dim input_num2 As New DropDownList
input_num2.ID = "input_num2"
Dim input_num3 As New DropDownList
input_num3.ID = "input_num3"
input_num3.Width = Unit.Pixel(72)
Dim label2 As New Label
label2.ID = "label2"
label2.Text = "="
label2.Width = Unit.Pixel(30)
Dim result As New Label
result.ID = "result"
result.Text = ""
result.Width = Unit.Pixel(45)
Dim cal As New Button
cal.ID = "cal"
cal.Text = "計算"
AddHandler cal.Click, New EventHandler(AddressOf Cal_Num)
Me.Panel1.Controls.Add(label1)
Me.Panel1.Controls.Add(input_num1)
Me.Panel1.Controls.Add(input_num2)
Me.Panel1.Controls.Add(input_num3)
Me.Panel1.Controls.Add(label2)
Me.Panel1.Controls.Add(result)
Me.Panel1.Controls.Add(cal)
If Not IsPostBack Then
input_num2.Items.Add("+")
input_num2.Items.Add("-")
input_num2.Items.Add("*")
input_num2.Items.Add("/")
Dim i As Integer
For i = 0 To 9
input_num1.Items.Add( i )
input_num3.Items.Add( i )
Next
End If
End Sub
Private Sub Cal_Num(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim input_num1 As DropDownList
input_num1 = Me.Panel1.FindControl("input_num1")
Dim input_num2 As DropDownList
input_num2 = Me.Panel1.FindControl("input_num2")
Dim input_num3 As DropDownList
input_num3 = Me.Panel1.FindControl("input_num3")
Dim result As New Label
result = Me.Panel1.FindControl("result")
Select Case input_num2.SelectedItem.Text
Case "+"
result.Text = CInt(input_num1.SelectedItem.Text) + CInt(input_num3.SelectedItem.Text)
Case "-"
result.Text = CInt(input_num1.SelectedItem.Text) - CInt(input_num3.SelectedItem.Text)
Case "*"
result.Text = CInt(input_num1.SelectedItem.Text) * CInt(input_num3.SelectedItem.Text)
Case "/"
result.Text = Format(CSng(input_num1.SelectedItem.Text) / _
CSng(input_num3.SelectedItem.Text) _
, "##0.##")
End Select
End Sub
內文搜尋
從 APP 打開
X