VB实验练习20题记2.docVIP

VB实验练习20题记录（2） 以下是用VB6实验练习的记录。 目录 例子一 求100到200之间的所有素数——————- 1 例子二 -统计某个文本文件中英文字母的个数———————— 2 例子三 vb 文本框中内容写入文本文件——————-——— 2 例子四 以下三角的形式输出九九乘法表————-———— 3 例子五 三数阶乘和———————————— 4 例子六 用InputBox$函数输入一个正整数，计算其平方根————— 4 例子七 找出不大于1000的最大素数。——— 4 例子八 求1+1/2+……1/100的值——— 5 例子九 用vb中数组的语言编写一个5*5的阵列———— 6 例子十 把文本文件内容写到TextBox 例子一： VB编程，求100到200之间的所有素数。 解题的源代码： Private Sub Command1_Click() For i = 101 To 199 Step 2 For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next If j Sqr(i) Then Print i; c = c + 1 If c Mod 5 = 0 Then Print End If End If Next End