Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c = 0: n = 10
For i = 1 To 10 Step 2
If n Mod i = 0 Then
c = c * i
Else
c = c + i
End If
Next i
Text1.Text = Str(c)
End Sub
解释下列加线的词语。
①不知何许人也 ____ ②每有会意,便欣然忘食____ ③亲旧知其如此____ ④环堵萧然 ____ ⑤箪瓢屡空 ____ ⑥短褐穿结 ____ ⑦晏如也 ____
下列判断正确的个数是( )
(1)能够完全重合的两个图形全等;
(2)两边和一角对应相等的两个三角形全等;
(3)两角和一边对应相等的两个三角形全等;
(4)全等三角形对应边相等.
三角形的高和面积____.