求VB6.0编程问题,帮忙一下下,做做题,最好六题都回答、、、

求VB6.0编程问题,帮忙一下下,做做题,最好六题都回答、、、
1.在窗体“Form1.frm”的“Command1_Click”事件中编写代码,使之能够实现如下功能:在Text1输入整数m、Text2输入整数n,判断m的平方与n的平方之和是否比99大,若比99大,则在Text3文本框中输出“大于”,否则在Text3文本框中输出:“小于或等于”。
2.在窗体“Form1.frm”的“Command1_Click”事件中编写代码,使之能够实现如下功能:在Text1输入整数m、Text2输入整数n,判断m与n和的平方能否被3整除,若能,则在Text3文本框中输出"能整除",否则在Text3文本框中输出:"不能整除"。
3.求的值。
4.在窗体"Form1.frm"的"Command1_Click"事件中编写代码,使之能够实现如下功能:在Text1输入整数a、Text2输入整数b,判断a和b的差是否比50小,若比50小,则在Text3文本框中输出"小于",否则在Text3文本框中输出:"大于或等于"。
5.在窗体"Form1.frm"的"Command1_Click"事件中编写代码,使之能够实现如下功能:已知三角形一条边C的长度为5,在Text1、Text2分别输入边长a和b,判断三条边能否构成一个三角形,如果是,则在Text3文本框中输出"能",否则在Text3文本框中输出"不能"。
6、假设一父亲24岁,孩子1岁,问过多少年之后父亲的年龄是小孩的2倍。
婆娑了趔趄着 1年前 已收到1个回答 举报

dinosxh 春芽

共回答了29个问题采纳率:86.2% 举报

第一题 Private Sub Command1_Click()Dim m%, n%m = Val(Text1.Text)n = Val(Text2.Text)If m ^ 2 + n ^ 2 > 99 Then Text3.Text = "大于"Else Text3.Text = "小于或等于"End IfEnd Sub第二题Private Sub Command1...

1年前

3
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.036 s. - webmaster@yulucn.com