题目
实验8:编写一个VB.NET程序,要求3个问题在同一个窗体内实现.在窗体上设置三个按钮,单击每个按钮,分别完成每个问题.
在窗体上放置1个文本框.在文本框中输入英文字符,单击按钮会将文本框中的所有大写字符转换为小写,所有小写字符转换为大写.如输入I Just MEET Her,则输出为i jUST meet hER.
输入一个学生的五门课的考试成绩,判断其是否为优秀.优秀的条件为:五门课成绩总分超过450分或每门课程在88以上或每门主课(前三门)的成绩都在95分以上其他课程在80分以上.
运输部门的货物运输与里程有关,距离越远,每吨货物的单价越低,假设每吨单价P与距离S之间的关系如下,
32 S
在窗体上放置1个文本框.在文本框中输入英文字符,单击按钮会将文本框中的所有大写字符转换为小写,所有小写字符转换为大写.如输入I Just MEET Her,则输出为i jUST meet hER.
输入一个学生的五门课的考试成绩,判断其是否为优秀.优秀的条件为:五门课成绩总分超过450分或每门课程在88以上或每门主课(前三门)的成绩都在95分以上其他课程在80分以上.
运输部门的货物运输与里程有关,距离越远,每吨货物的单价越低,假设每吨单价P与距离S之间的关系如下,
32 S
提问时间:2021-03-28
答案
第一题、
Private Sub Command1_Click()
Dim a As Integer, b As String, i As Integer, c() As String
a = Len(Text1.Text)
Print a
ReDim c(a) As String
For i = 1 To a
b = Mid(Text1.Text, i, 1)
Select Case b
Case "a" To "z"
c(i) = UCase(b)
Case "A" To "Z"
c(i) = LCase(b)
Case Else
c(i) = Chr(32)
End Select
Next i
Text1.Text = ""
For i = 1 To a
Text1.Text = Text1.Text & c(i)
Next i
End Sub
2、
Private Sub Form_click()
Dim a(5) As Double, i As Integer, j As Integer, k As Integer, sum As Double
Dim flag As Boolean, how As Boolean
For i = 1 To 5
a(i) = Val(InputBox("please input", "input number"))
sum = sum + a(i)
Next i
If sum > 450 Then
flag = True
how = True
End If
For k = 1 To 5
If a(k) > 88 Then
flag = True
how = True
End If
Next k
For j = 1 To 3
If a(j) > 95 Then flag = True
Next j
For k = 4 To 5
If a(k) > 80 Then how = True
Next k
If flag = True And how = True Then
Print "excellent"
End If
End Sub
3、Private Sub Form_click()
Dim s As Single, price As Single, total As Single
s = Text1.Text
If s < 100 Then
price = 32
ElseIf 100
Private Sub Command1_Click()
Dim a As Integer, b As String, i As Integer, c() As String
a = Len(Text1.Text)
Print a
ReDim c(a) As String
For i = 1 To a
b = Mid(Text1.Text, i, 1)
Select Case b
Case "a" To "z"
c(i) = UCase(b)
Case "A" To "Z"
c(i) = LCase(b)
Case Else
c(i) = Chr(32)
End Select
Next i
Text1.Text = ""
For i = 1 To a
Text1.Text = Text1.Text & c(i)
Next i
End Sub
2、
Private Sub Form_click()
Dim a(5) As Double, i As Integer, j As Integer, k As Integer, sum As Double
Dim flag As Boolean, how As Boolean
For i = 1 To 5
a(i) = Val(InputBox("please input", "input number"))
sum = sum + a(i)
Next i
If sum > 450 Then
flag = True
how = True
End If
For k = 1 To 5
If a(k) > 88 Then
flag = True
how = True
End If
Next k
For j = 1 To 3
If a(j) > 95 Then flag = True
Next j
For k = 4 To 5
If a(k) > 80 Then how = True
Next k
If flag = True And how = True Then
Print "excellent"
End If
End Sub
3、Private Sub Form_click()
Dim s As Single, price As Single, total As Single
s = Text1.Text
If s < 100 Then
price = 32
ElseIf 100
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1上周末你和你的家人参观农场了吗?是的.我们摘了橘子.英语翻译
- 2全体美国人用英语怎说 the chinese是全中国人
- 3三角形的三个内角中( ) (A)至少有一个角是钝角 (B)至少有一个是直角
- 4请问:五氧化二磷能干燥氨气吗?
- 52004个7相乘减去2002个3相乘,的书的末尾数字是?
- 6已知一元二次方程x2+3x+1=0的两根为x1和x2,那么(1+x1)(1+x2)的值为_.
- 7影响KCl在水中的溶解度的因素是( ) A.水的温度 B.搅拌的速率 C.水的体积 D.KCl颗粒的大小
- 8微生物DNA提取的原理和方法是什么?
- 9如何除去45%氢氧化钾中的2%碳酸钾,又不可以引入新的杂质?
- 100.1mol/L的醋酸钠与0.05mol/l的氢氧化钠物料守恒电子守恒质子守恒
热门考点