查人人中国名人网如何出售专利:谁会用Microsoft VisualBasic编程
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 11:51:29
1． 从键盘输入三个数，判断能否以此三个数为边长组成三角形？
2． 从键盘输入一个数，判断此数是否偶数？
3． 屏幕上打印一个九九乘法表。
4． 从键盘输入一个年份，判断是否闰年？
5． 从键盘输入三个数，从中找出最小的数并输出到屏幕上。
6． 已知s=2+4+6+……+n，试找出一个最大的整数n，使得 s<25000 。
7． 从键盘输入一个数，判断此数是否素数？
8． 一只公鸡五元，一只母鸡三元，三只小鸡一元，百元钱买回百只鸡，问公鸡、母鸡、小鸡各几只？
2． 从键盘输入一个数，判断此数是否偶数？
3． 屏幕上打印一个九九乘法表。
4． 从键盘输入一个年份，判断是否闰年？
5． 从键盘输入三个数，从中找出最小的数并输出到屏幕上。
6． 已知s=2+4+6+……+n，试找出一个最大的整数n，使得 s<25000 。
7． 从键盘输入一个数，判断此数是否素数？
8． 一只公鸡五元，一只母鸡三元，三只小鸡一元，百元钱买回百只鸡，问公鸡、母鸡、小鸡各几只？
学过VB的人都知道，楼主出的问题很简单，我一看题目就求按都有思路了，鄙人的VB水平也不怎么好，但是我肯定能把上面8题做出来。
我也来写写：
只写第2个
Private Sub Command1_Click()
If Val(Text1) Mod 2 = 0 Then
MsgBox "是偶数", 48, "结果"
Else
MsgBox "不时偶数", 48, "结果"
End If
End Sub
顺便强调一句，用VB肯定可以编出来。
都挺简单的。你不会要大家都程序都写出来吧？
“从键盘输入”，“屏幕上打印”
这些问题像是用QBasic做的。
VisualBasic不适合编这种程序
Windows程序通常是窗口上放些Textbox,
然后"a=CLng(Text1.Text)"之类的
就写第一个吧
放三个textbox控件，一个label空间，一个按钮
Private Sub Command1_Click()
Dim a As Byte
Dim b As Byte
Dim c As Byte
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a + b > c And a + c > d And b + c > a Then
Label1.Caption = "True"
Else
Label1.Caption = "False"
End If
End Sub
不是很严密，只是分享一下思路
我一看都是我以前做过的
我绝对不回答一题
这是给你培养算法这都不做以后活不下去的
最后一题是穷举法吧 书上都见过