为了提高程序的易读性,同的为减少错误,提高软件开发效率,编码时应注意养成良好的【 】。
第1题
下面的程序是找出两个正整数a和b,使得a<b、a+ b=99、a和b的最大公约数是3的倍数,并统计满足条件数对的个数。 Option Explicit Dim a As Integer, b As Integer, n As Integer, c As Integer Private Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer do c=a Mod b: a=b=c Loop【 】 Gcd=a End Function Private Sub form_ Click() n=0 for a= 1 To 49 b=【 】 c= Gcd (a, b) if c Mod 3= 0 then 【 】 Print a, b, c End if Next a Print n End Sub
请帮忙给出正确答案和分析,谢谢!
第2题
在窗体上有三个控件:名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚动条控件。程序的功能是通过滚动条移动Label1,并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所示。 Private Sub form_ Load() HScroll1.Max = form1. Width HScroll1. Min= 0 HScroll1.LargeChange = 50 HScroll1.smallChange = 10 Text1.Text = HScroll1.Value HScroll1, Value =0 Label1.Left = HScroll1.Value End Sub Private Sub HScroll1【 】 Text1.Text = NScroll1.【 】 Label1.Left = HScroll1.Value End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
以下程序找出50以内所有能构成直角三角形的整数组。请在程序【 】处填上正确内容。 Private Sub Command1_ Click() for a = 1 To 50 for b = a To 50 c = Sqr(a ^2 + b ^2) if【 】then Print a; b; c Next b Next a End Sub
请帮忙给出正确答案和分析,谢谢!
第4题
下图是应用程序的窗体,要求用户选中复选框Check1后,文本框Text1中的文字以粗体显示,选中复选框Check2后,文本框Text1中的文字以斜体显示,单击“关闭”按钮Command1后结束应用程序运行。 Private Sub Check1_ Click () if【 】then Text1. FontBold = True Else Text1. FontEold =【 】 End if End Sub Private Sub check2_ click() if【 】then Text1. FontItalic = False Else Text1. FontItalic = True End if End sub Private Sub Command1_ Click() 【 】Me End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!