//素数
//File Name: cppFile1.cpp
#include<iostream>
using namespace std;
const int MAX_NUM=1000; //数的上界
const int MIN_NUM=100; //数的下界
bool x; //布尔值：是否是素数？
int main(){
for(int n=MIN_NUM;n<MAX_NUM;n++)
{
int i,j,k;
i=n%10; //个位
k=n/100; //百位
j=(n-100*k-i)/10; //十位
int t=100*i+10*j+k;
if (t==n) //相等
{
x=true;
for(int s=2;s<n;s++) //判断是否是素数的循环
{
if(n%s==0)
{
x=false;
}
}
if (x==true)
{
cout << n << endl;
}
}
}
return 0;
}


#include<iostream>
#include<vector>
#include<iterator>
using namespace std;
vector<int> numbers;
int maxNum;
bool x;
int main(){
cout<<"请输入一个大于2的整数"<<endl;
cin >> maxNum;
for(int i=2;i<maxNum;i++)
{
x=true;
for(int j=2;j<i;j++)
{
if(i%j==0)
{
x=false;
}
}
if (x==true)
{
numbers.push_back(i);
}
}
for(int k=0;k<numbers.size();k++)
{
cout << numbers.at(k)<<endl;
}
numbers.clear;
return 0;
}


#include<iostream>
#include<vector>
#include<iterator>
using namespace std;
vector<int> numbers;
int maxNum;
bool x;
int main(){
cout<<"请输入一个大于2的整数"<<endl;
cin >> maxNum;
for(int i=2;i<maxNum;i++)
{
x=true;
for(int j=0;j<numbers.size();j++)
{
int t=numbers.at(j);
if(i%t==0)
{
x=false;
}
}
if (x==true)
{
numbers.push_back(i);
}
}
for(int k=0;k<numbers.size();k++)
{
cout << numbers.at(k)<<endl;
}
numbers.clear;
return 0;
}


Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束！"
End Sub


于是在学校的好处就是不会一直无聊地刷贴吧看weibo，
最后却什么都没有干。
说实话很多东西是被逼出来的，
如果没有硬着头皮去做还真的什么都停留在表面的状态。
就像昨天晚上用C++写一个鉴定素数的程序一样，
用bool x 来实现不会输出N多个相同的991也是无奈了之后想出来的。
不过说真的C++要说会，
我真的没有什么语法还没见识过。
结构数组template虚函数指针句柄，都早就看过了。
只是没有目标，
而且因为计算机网络方面的知识什么的还远远不够，
贴吧的备份程序也好，weibo的程序也好，
都没有很认真地去实践。
粗粗糙糙写了一点就堆在那里什么也不干。
昨天用STL里的vector容器写的素数鉴定的程序什么的看上去似乎还不错。
有时间我也该去外图看看C++和计算机二级的东西怎么样了。
下午不知道有没有空的说。
恩我还是把力量放在Delphi和C++2010上面吧，
VBA什么的应该是没有压力的拉。
有delphi的基础现在我看懂VBA没有任何压力的说。
反正加油就是了，要学的东西依旧特别的多呢。|


一顶

……

……

嗯#include<iostream>
嗯#include<math.h>
嗯#include<stdlib.h>
嗯#include<time.h>
嗯using namespace std;
嗯bool isPrime(int x);
嗯int Random(int y);
嗯int primeNumber1=0,primeNumber2=0;
嗯double primeRate1=0,primeRate2=0;
嗯double r=0;
嗯int z=0;
嗯bool isPrime(int x)
嗯{
嗯 int upper = (int) (sqrt(x*1.0));
嗯 if (upper>2)
嗯 {
嗯 for(int i=2;i<=upper;i++)
嗯 {
嗯 if(x%i==0)
嗯 {
嗯 return false;
嗯 }
嗯 }
嗯 }
嗯 return true;
嗯}
嗯int Random(int y)
嗯{
嗯 srand(y);
嗯 int a = rand()%998 + 2;
嗯 return a;
嗯}
嗯int main(){
嗯 cout << "生成1000个随机数" << endl;
嗯 for(int j=0;j<1000;j++)
嗯 {
嗯 z = Random(j);
嗯 if( isPrime(z)==true)
嗯 {
嗯 primeNumber1++;
嗯 }
嗯 }
嗯 cout << "其中有" << primeNumber1 << "个素数" << endl;
嗯 primeRate1 = (double)primeNumber1/(double)999;
嗯 cout << "所占比例为" << primeRate1 << endl ;
嗯 cout << "在2-10000中" << endl;
嗯 for (int k=2;k<=10000;k++)
嗯 {
嗯 if(isPrime(k)==true)
嗯 {
嗯 primeNumber2++;
嗯 }
嗯 }
嗯 cout << "共有" << primeNumber2 << "个素数" << endl;
嗯 primeRate2 = (double)primeNumber2/(double)9999;
嗯 cout << "所占比例为" << primeRate2 << endl;
嗯 r = primeRate1-primeRate2 ;
嗯 cout << "两者之差为" << r << endl;
嗯 return 0;
嗯}
嗯嗯
为了不让度受把空格吃了就只好这样了。~


还是继续利用别人学word excel的时间做点事情吧。
这是我刚才看的VBA分割word文件的程序[模块]。
[严格说VBA的东西不能叫做程序吧？？]
作业什么的以后一起交吧。
C++不会就算了连Word Excel 都不会用的笨蛋阿！！！！！！！
我才不是和你们同类的人呢。
然后我把今天的VBA代码贴一下吧。
不知道为什么我自己输入的时候不是很顺畅的说，
提示Next nINDEX 无效…
肯定是有什么地方输错了
先这样吧~~~~~~~
空格吞了就吞了吧。在前面加字反而更奇怪、、
Sub SplitEveryNPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer
Dim fso As Object
Const nSteps = 5 ' 修改这里控制每隔几页分割一次
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To nTotalPages Step nSteps
Set oNewDoc = Documents.Add
If nIndex + nSteps > nTotalPages Then
nBound = nTotalPages
Else
nBound = nIndex + nSteps - 1
End If
For nSubIndex = nIndex To nBound
oSrcDoc.Activate
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next
oNewDoc.Activate
oNewDoc.Windows(1).Selection.Paste
Next nSubIndex
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "." & fso.GetExtensionName(strSrcName))
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next nIndex
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束！"
End Sub

顺便，
嗯这首miku双子kaito的个也很好听呢
土豆的链接不知道会不会被吞掉



大神啊''''只能膜拜m(_ _)m

片翼の鸟