- 相关
- 目录
- 笔记
- 书签
188宝金博页面版:更多相关文档
-
VB上机考试
星级： 2 页
-
vb上机考试1
星级： 2 页
-
二级VB上机考试题考试二级VB二级VB上机考试试题
星级： 8 页
-
VB上机考试试2
星级： 5 页
-
VB上机考试试11
星级： 15 页
-
vb上机考试操作题
星级： 23 页
-
VB上机考试题
星级： 6 页
-
VB上机考试试5
星级： 4 页
-
VB上机考试试12
星级： 26 页
-
vb上机考试题
星级： 23 页
-
19VB上机考试
星级： 5 页
-
VB上机考试试4
星级： 2 页
-
VB上机考试试1
星级： 2 页
-
VB上机考试试6
星级： 2 页
-
vb上机考试试题二
星级： 4 页
暂无目录
暂无笔记
暂无书签
188宝金博页面版: vb计算题目
内容提示： 1 判断是否是素数 Private Sub Command3_Click() Cls Dim t&, m&, i& t = Val(InputBox("enter a number") ) m = Sqr(t) For i = 2 To m Step 1 If (t Mod i) = 0 Then Exit For Next i If i <= m Then Print t & "不是素数" Else Print t & "是素数" End If End Sub 2 求指定数后的第一个素数 Private Sub Command1_Click() Cls Dim a%, i&, k&, bl As Boolean i = Val(InputBox("enter a no") ) Print i & "之后的第一个素数是"; bl = True ' fei sushu Do While bl i = i + 1 For k = 2 To Int(Sqr(i) ) ...
