UC知道关于VB的几道题目.给代码我就好了.
来源：百度知道 编辑：UC知道 时间：2024/09/21 03:28:42
第1题
只能被1和自身整除的数称为素数。例如3、29、101等都是素数。有人曾列出计算素数的算式：N×N＋N＋41(N是0或正整数)。请编程序：验证当N小于某个数时，该算式的计算结果都是素数；输出这个数及之前所求得的所有素数之和。
第2题 数字三角
问题描述：
中山市迎接2010年亚运会活动将要在兴中体育场举行，市教育局为每个学校安排了一个区域，每个学校的同学都要坐在自己学校的区域内。
分给成功小学的区域是个等边三角型，这不是不重视成功小学，而是把难题给了成功小学，就是因为成功小学的同学更加优秀，因此这点小问题是难不倒他们的。大家根据座位区域，一下就设计出了以下座位安排方案：
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
……
我们可以看出，1号同学应该坐第一排的第一个，它的座标是（1，1）。而8号同学在第四排的第二个，它的座标是（4，2）。
现在的问题是，我们怎么样才能知道任意一个同学到底坐在哪个座位上（即这个座位的座标）呢？
我想，这个问题可难不倒你，你能编写一个程序帮助成功小学的同学解决这个问题吗？
输入格式:
输入一个整数N（1<=N<=32767），表示第N个同学。
输出格式：
输出两个整数i，j，中间用一个空格隔开，表示第N个同学的座位在第i行的第j个位置。
样例输入输出：
输入样例： 输出样例：
5 3 2
我要运行用的代码哦
只能被1和自身整除的数称为素数。例如3、29、101等都是素数。有人曾列出计算素数的算式：N×N＋N＋41(N是0或正整数)。请编程序：验证当N小于某个数时，该算式的计算结果都是素数；输出这个数及之前所求得的所有素数之和。
第2题 数字三角
问题描述：
中山市迎接2010年亚运会活动将要在兴中体育场举行，市教育局为每个学校安排了一个区域，每个学校的同学都要坐在自己学校的区域内。
分给成功小学的区域是个等边三角型，这不是不重视成功小学，而是把难题给了成功小学，就是因为成功小学的同学更加优秀，因此这点小问题是难不倒他们的。大家根据座位区域，一下就设计出了以下座位安排方案：
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
……
我们可以看出，1号同学应该坐第一排的第一个，它的座标是（1，1）。而8号同学在第四排的第二个，它的座标是（4，2）。
现在的问题是，我们怎么样才能知道任意一个同学到底坐在哪个座位上（即这个座位的座标）呢？
我想，这个问题可难不倒你，你能编写一个程序帮助成功小学的同学解决这个问题吗？
输入格式:
输入一个整数N（1<=N<=32767），表示第N个同学。
输出格式：
输出两个整数i，j，中间用一个空格隔开，表示第N个同学的座位在第i行的第j个位置。
样例输入输出：
输入样例： 输出样例：
5 3 2
我要运行用的代码哦
Private Sub Command1_Click()
Dim i As Long, j As Long, k As Long
Dim a As Long, n As Long
Dim ZT As Boolean
Do Until ZT
n = n + 1
a = a + n
i = n * n + n + 41
j = Sqr(i)
ZT = False
For k = 2 To j
If i Mod k = 0 Then
ZT = True
Exit For
End If
Next
Loop
a = a - n
Print n
Print a
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer, n As Integer
Dim t As Double
t = Val(InputBox("请输入N", ""))
If t >= 1 And t <= 32767 Then
n = t
Else
MsgBox "输入的N不符合要求", , ""
Exit Sub
End If
k = 1
For i = 1 To n
j = j + 1
If j &