当前位置: > 实验8:编写一个VB.NET程序,要求3个问题在同一个窗体内实现.在窗体上设置三个按钮,单击每个按钮,分别完成每个问题....
题目
实验8:编写一个VB.NET程序,要求3个问题在同一个窗体内实现.在窗体上设置三个按钮,单击每个按钮,分别完成每个问题.
在窗体上放置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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
版权所有 CopyRight © 2012-2019 超级试练试题库 All Rights Reserved.