作者rike (靠杯~~冷笑话滚蛋)
看板Visual_Basic
标题Re: [.NET] 帮帮我吧
时间Fri Apr 21 16:20:23 2006
※ 引述《may1986515 (双子牛牛)》之铭言：
: 题一:(30分)
: 请写一程式可让使用者输入两个数字，可为个位数到百位数，并使用While End While?圈
: 完成其数字差之间的乘法表，并显示其乘法表。(hint: 例如输入数字为2及10，则计算
: 2X2=4 2X3=6 … 2X10=20
: 3X2=6 3X3=9 … 3X10=30
: 到
: 10X2=20 10X3=30 … 10X10=100
Dim x As Integer = TextBox1.Text
Dim y As Integer = TextBox2.Text
Label1.Text = ""
Dim a, b As Integer
While a < y
a += 1
b = x
While b < y
b += 1
Label1.Text &= a & " * " & b & " = " & a * b & " "
End While
Label1.Text &= vbNewLine
End While
: 题二:(30分)
: 请写一程式，可请使用者输入一个数字，再以其输入数字的数值在萤幕上以"*"绘出右上
: 三角形。例如输入为4则显示如下图形(四行，每行依序递减)
: ****
: ***
: **
: *
Dim x, y, z As Integer
Label1.Text = ""
x = TextBox1.Text
For y = x To 1 Step -1
For z = y To x
Label1.Text &= " "
Next
For z = y To 1 Step -1
Label1.Text &= "*"
Next
Label1.Text &= vbNewLine
Next
: 题三(40分)
: 请写一程式，可让使用者决定所输入的是公制还是英制，如为公制请使用者输入公分，如
: 为英制请使用者分别输入身高的英尺及英寸数，如输入为公分，请显示转换的结果为所具
: 有的英尺及英寸，如输入为英尺及英寸，请显示转换的结果为公分；计算完显示後，再请
: 使用者输入体重(单位:公斤)，并计算其BMI指数及显示BMI计算结果。BMI公式：BMI = 体
: 重 / 身高2。(hint: BMI中体重单位为公斤，身高单位为公尺，1英寸=2.54公分，1英尺
: =12英寸)
Label1.Text = ""
If RadioButton1.Checked Then
Label1.Text &= TextBox1.Text & " 英寸 =" & TextBox1.Text * 2.54 &
" 公分 " & vbNewLine
ElseIf RadioButton2.Checked Then
Label1.Text &= TextBox1.Text & " 公分 =" & TextBox1.Text / 2.54 &
" 英寸 " & vbNewLine
End If
If CheckBox1.Checked Then
Label1.Text &= "BMI指数" & TextBox2.Text / ((TextBox1.Text / 100)
^ 2)
End If
其他功能自己改 这些程式码够用了
: 谁会这些题目~这是我期中考题目
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
说真的...期中考了 这种题目不会 该加点油噜!!
: 请各位乡民帮帮忙啊~感恩不尽
--
◣ ◢
闪开,让专业的来!! ▁███▁ 呜...出来了..... ◣ ◢
＼／ ╰ ∥ ◢
太快了吧?
◣ □◢ ◣ ◢ ╯
∕ ﹨ ╳ ◇◢
╱ ││ ︵︵ β 〝 / /\/∠∟ by Cashonly
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 222.156.10.204