CK填空01.docVIP

CK37 以下程序用于判断一个正整数（≥3）是否为素数。 Private Sub Form_Click() n = InputBox(请输入一个正整数（≥3）) k = Int(Sqr(n)) i = 2 swit = 0 **********SPACE********** Do While i = k And 【?】 swit=0 **********SPACE********** If 【?】 Then n mod i=0 swit = 1 Else **********SPACE********** 【?】 i=i+1 End If Loop If swit = 0 Then Print n; 是一个素数 Else Print n; 不是素数 End If End Sub CK 39 以下程序段用于实现矩阵转置，即将一个n×m的矩阵的行和列互换 Private Sub Form_Click() Const n = 3 Const m = 4 Dim a(n, m), b(m, n) As Integer For I = 1 To n For J = 1 To m a(I, J) = Int(Rnd * 90) + 10 Next J **********SPACE********** 【?】 next i For I = 1 To n For J = 1 To m **********SPACE********** 【?】 b(j, i) = a(i, j) Next J Next I Print 矩阵转置前 For I = 1 To n For J = 1 To m Print a(I, J); Next J **********SPACE********** 【?】 Print Next I Print 矩阵转置后 For J = 1 To m For I = 1 To n Print b(J, I); Next I Print Next J End Sub CK 56 代码功能：输入数字1-7,显示其对应的星期几(例:输入1,显示星期日, 如果输入其它内容，一律显示输入错误) Private Sub Command1_Click() Dim x As Integer Dim y As String x = Val(Text1.Text) **********SPACE********** 【?】 select case x Case 1 y = 星期日 Case 2 y = 星期一 Case 3 y = 星期二 Case 4 y = 星期三 Case 5 y = 星期四 Case 6 **********SPACE********** 【?】 y = 星期五 Case 7 y = 星期六 **********SPACE********** 【?】 Case else y = 输入错误 End Select Text2.Text = y End Sub CK 57 代码功能: 求 1! + 2! + ……10!的值? 请在【】处填入正确的内容? Private Sub Form_Click() **********SPACE********** 【?】 t = 1 s = 1 For I = 2 To 10 t = t * I **********SPACE********** 【?】 s = s + t **********SPACE********** 【?】 Next i Print s End Sub CK 5