UC知道还是vb设计问题
来源：百度知道 编辑：UC知道 时间：2024/06/21 20:38:09
1、输入两个整数，计算他们的最大公因数
2、编写程序，计算1-100自然数的平方之和
3 、设计一个程序，输入任意一个整数，输出其位数。采用if...else判断结构和select分支结构分别实现
4、编写程序，将任意输入的三个数字按照从小到大的顺序输出
5、单击窗体，使用select case结构将一年中的12个月份分成4个季节，并事业print语句输出
6、在窗体上有两个按钮“奇数和”、“偶数和”。要求程序运行后，输入整数 n，然后分别单击每一个按钮，可以计算 1 到正数 n之间的奇数和与偶数和，并将结果显示在窗体的两个文本框中。
7 、设计一个窗体，利用文本框接受学生姓名和五门课程成绩，单击“计算机输出”按钮，显示相关判断结果：
判断条件为五门课程符合下列条件之一的为成绩优秀：
五门课程成绩总分超过450；每门课程都在88分以上；每门主课（前三门）的成绩都在95以上，每门非主课（其他两门）成绩在80分以上。
8、为铁路编写计算运费的呈现。假设铁路托运行李，规定每张客票托运的计算方法是：行李重量不超过50千克时，每千克0。25元；超过50而不超过100是，其超过部分每千克0。35元；超过100时，超过部分每千克0。45元。要求输入行李重量，计算并输出托运的费用。
<1>假设两个数分别由Text1和Text2给出，代码如下：
Public Function gongyinshu(a As Integer, b As Integer) As Integer
If a Mod b = 0 Then
gongyinshu = b
Else
gongyinshu = gongyinshu(b, a Mod b)
End If
End Function
Private Sub Command1_Click()
Print gongyinshu(Val(Text1.Text), Val(Text2.Text))
End Sub
--------------------------------------------------------
<2>
Private Sub Command1_Click()
Dim sum As Long
For i = 1 To 100
sum = sum + i * i
Next
Print sum
End Sub
--------------------------------------------------------
<3>其实求位数无非就是判断数的范围，有个更好的方案：假设数由Text1给出：
Private Sub Command1_Click()
If IsNumeric(Text1.Text) = True Then
Print Len(CStr(Int(Val(Text1.Text))))
End If
End Sub
<4>
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, t As Integer
a = InputBox("a:")
b = InputB