题目内容

以下程序找出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

查看答案

搜索结果不匹配？点我反馈

更多问题

下图是应用程序的窗体，要求用户选中复选框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

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，请填宁。 Private Sub form_ Click() Dim Ch As String Open "c:\a1. txt, for【】As 10 Open "d:\a2.txt" for Output As 20 do while【】 Line Input 10, Ch 【】 Loop Close 10 Close 20 End Sub

数据库设计分为以下6个设计阶段：需求解析阶段、【】、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。

以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。 Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n)) i = 2 Flag = 0 do while i＜= k And Flag = 0 if【】 = 0 then Flag = 1 Else i= i+ 1 End if Loop if【】then MsgBox “这是一个素数!”，vbOKOnly，“提示” Else MsgBox “这不是一个素数!”，vbOKOnly，“提示” End if End Sub