End Sub 解法二程序如下: ivate Sub Form Load t=324 23 To t step 23 If c Mod 43=0 And c>0 Then Print“"这三个加数是:";a,b,c If End Sub 第10章《编程及上机调试》 1.在窗体上建立一个水平滚动条 HScroll和一个文本框 TextI。程序代码如下 Private Sub Form Load HScrolll. Max =1000 HScrolll. Min =0 HScrolll. LargeChange 5 HScrolll. LargeChange =10 ivate Sub HScrolll_changeO Textl. Text hScroll value Private Sub HScrolll Scro11o End sub 2.在窗体上建立一个计时器 Timer和“开始”、“停止”两个命令按钮。程序代码如下 Private len s As single, s As Integer 模块级变量 Private Sub Command1 Click Timer Enabled True Call sub move End sub Private Sub Command2 Click “停止” Timer Enabled False End Sub Private Sub Form Load Timerl Enabled False 先取各指针的长度 len_S=Sqr( LineS.Y2- Lines.Y1)2+( Lines.X2- Lines.X1)2)’秒针长度 End sub Private Sub Timer1_ TimerO 定时器的定时事件过程 Private Sub Sub Moveo 定时器的定时事件过程 3.14159 LineS. X2= LineS. XI len S Sin(pi *s/ 30) 绘制秒针 LineS. Y2= LineS. YI len S Cos (pi *s/ 30) End Sub 3.按要求在窗体上设计一个二级下拉菜单。 4.在窗体上建立一个通用对话框 CommonDialog1、“打开”及“字体”两个命令按钮和文本框 TextI 程序代码如下 Private Sub Command1_ Click 1111 End Sub 解法二程序如下： Private Sub Form_Load() Show t = 324 For a = 23 To t Step 23 For b = 19 To t Step 19 c = t - a - b If c Mod 43 = 0 And c > 0 Then Print "这三个加数是："; a, b, c End If Next b, a End Sub 第 10 章《编程及上机调试》 1．在窗体上建立一个水平滚动条 HScroll1 和一个文本框 Text1。程序代码如下： Private Sub Form_Load() HScroll1.Max = 1000 HScroll1.Min = 0 HScroll1.LargeChange = 5 HScroll1.LargeChange = 10 HScroll1.Value = 500 End Sub Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End Sub Private Sub HScroll1_Scroll() Text1.Text = HScroll1.Value End Sub 2. 在窗体上建立一个计时器 Timer1 和“开始”、“停止”两个命令按钮。程序代码如下： Private len_S As Single, s As Integer '模块级变量 Private Sub Command1_Click() '“开始” Timer1.Enabled = True s = 0 Call Sub_Move End Sub Private Sub Command2_Click() '“停止” Timer1.Enabled = False End Sub Private Sub Form_Load() Timer1.Enabled = False '先取各指针的长度 len_S = Sqr((LineS.Y2 - LineS.Y1) ^ 2 + (LineS.X2 - LineS.X1) ^ 2) '秒针长度 End Sub Private Sub Timer1_Timer() '定时器的定时事件过程 s = s + 1 Call Sub_Move End Sub Private Sub Sub_Move() '定时器的定时事件过程 pi = 3.14159 LineS.X2 = LineS.X1 + len_S * Sin(pi * s / 30) '绘制秒针 LineS.Y2 = LineS.Y1 - len_S * Cos(pi * s / 30) End Sub 3. 按要求在窗体上设计一个二级下拉菜单。 4. 在窗体上建立一个通用对话框 CommonDialog1、“打开”及“字体”两个命令按钮和文本框 Text1。 程序代码如下： Private Sub Command1_Click() '"打开