急需！！！VB高手，帮忙解决一道编程题目，万分感谢
在名称为Form1的窗体上建立两个单选按钮，名称分别为Opt1和Opt2，标题
分别为"100-200之间素数"和"200-400之间素数"，一个文本框，名称为
Text1，和两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为"计算"、
"存盘"。程序运行后，如果选中一个单选按钮并单击"计算"
按钮，则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示
出来。如果单击"存盘"按钮，则把计算结果存入"out.txt"文件中， 该
文件必须放在考生文件夹中。
dim i,j
if op1.value=ture then
for i=100 to 200
for j=2 to i-1
if i mod j=0 then exit for
next j
text1=text1+str(i)
next i
elseif op2.value=ture then
for i=200 to 400
for j=2 to i-1
if i mod j=0 then exit for
next j
text1=text1+str(i)
next i
end sub
private sub cmd2_click()
open app.path+"out.txt" for append as#1
print#1,text1
close
end sub
参考资料：姐姐
vb程序设计题,请高手解答
Vb编程实现两个有序数组的合并，即二路归并 数组A和数组B分别记录有一些数据，这两个数组上的数据都已经由小到大按顺序排列好。请用vb编写一个程序把这此数据合并到同一个数组之中，并使得合并后的数据全部按由小到大排列。这就是所谓的“二路归并”。在编写这个程序时先进行说明一下，首先，大量...
会VB的快进来帮我写下代码,十分感谢!
这是第一个：Private Sub Command2_Click()Unload Me End Sub Private Sub Form_Load()Print "我们大家一起来轻松学习VB语言"Me.Caption = "第一个visual basic 程序"Label1.Caption = "编写VB程序是一件非常有趣的事情"Command1.Caption = "画面已经改变"Command2.Enabled = True End Sub 这是...
急急急!求下面这道题的VB代码,最好附上效果运行图。万分感谢。
Private Sub Command1_Click() x = Val(Text1.Text) If x < 0 Then y = x If x = 0 Then y = "未定义" If x > 0 And x <= 10 Then y = x ^ 2 If x > 10 And x <= 20 Then y = 10 If x > 20 And x <= 40 Then y = 0.5 * x + 20 If x ...
急求vb高手帮忙编一个抽号器
Randomize Timer '用当前的时间作为种子 Do a = Int((34 * Rnd) + 1)'0 ≤ Rnd < 1，0 ≤ 34 * Rnd < 34，1≤(34 * Rnd) + 1 < 35，'Int为取整数部分(不是四舍五入)，所以得到1 ≤ Int((34 * Rnd) + 1) ≤ 34 Loop Until a <> 14 And a <> 15 And a <> 19 ...
用VB编程序 已知: a=3, b=5,编一程序将a与b的值互换。 急~~~谢谢万分...
Option Explicit Dim a As Single, b As Single, t As Single Private Sub Command1_Click()t = a a = b b = t Print a, b '如果需要输出结果的话，加上这一句 End Sub Private Sub Form_Load()a = Val(InputBox("a=?"))b = Val(InputBox("b=?"))End Sub ...
VB 读文件问题 求修改程序 万分感谢!!!
首先，你给代码不全。Dim sbwenduup(100)Dim sbwendulow(100)Dim sbtime2(100)Dim sbtime3(100)Dim sbdianliuup(100)Dim sbdianliuups(100)Dim sbalarm(100)这些数组统统没有定义，没有这些定义运行都是问题。其次，按照你给定para.txt内容上机测试不会出现任何问题结果如下 4 4.5 0 16200 ...
...总是出错,百思不得其解(本人小白,请大神帮忙,万分感激)
要分段线可以渐次画出。sub 划线（）'作为一模块 Dim myAcadApp As AutoCAD.AcadApplication Dim activeDoc As AutoCAD.AcadDocument Dim acMS As AutoCAD.AcadModelSpace On Error Resume Next Set myAcadApp = GetObject(, "Autocad.Application") '检查AutoCAD是否已经打开 If Err <> 0 Then '没...
100分求高手帮我写下牛顿插值和样条插值的VB代码,急用啊!!!
是数值分析实验要做的,用插值算法拟合曲线,拉格朗日算法和坐标的显示代码已经有了,如下,就少牛顿插值和样条插值的代码,我VB实在差,哪位高手能帮我写下,万分感谢啊,我急用!Op... 是数值分析实验要做的,用插值算法拟合曲线,拉格朗日算法和坐标的显示代码已经有了,如下,就少牛顿插值和样条插值的代码,我VB实在差,...
在vb中 计算1+22+33+...+1010 求高手帮忙给详细编程过程
应该是11+22+33+……+1010吧?你可以建立一个 1 to 10的循环 Private Sub Command1_Click()Sum = 0 For i = 1 To 10 x = i & i Sum = Sum + x Next i Print Sum End Sub
哪位高手帮忙写个VB系统的“退出系统”代码,急用,万分感谢!_百度...
退出按键点击事件写以下代码即可 if msgbox("是否退出系统?",vbquestion+vbyesno,"退出")=vbyes then end end
