vb,陈景润哥德巴赫猜想想改错，急急急！！！！！！！！！！

来源：蜘蛛抓取(WebSpider) 时间：2016-05-10 14:20 标签： 哥德巴赫猜想1 1
VB验证哥德巴赫猜想的正确性
什么都不用说了，直接将代码分享给大家，窗口上只有三个textbox（一个输入要分解的那个数，另外两个之和等于输入的数）和一个button，代码全部在Button的click事件里
代码如下：
Public Class Form1
&&& Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim i, j, n, k As Integer
n = TextBox1.Text
For i = 3 To n - 2 Step 1
&&&&&&&&&&&
For j = 2 To i - 1
&&&&&&&&&&&&&&&
If i Mod j = 0 Then
&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
&&&&&&&&&&&
&&&&&&&&&&&
If j = i Then
&&&&&&&&&&&&&&&
&&&&&&&&&&&
&&&&&&&&&&&
For j = 2 To k - 1
&&&&&&&&&&&&&&&
If k Mod j = 0 Then
&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&
&&&&&&&&&&&
&&&&&&&&&&&
If j = k Then
&&&&&&&&&&&&&&&
TextBox3.Text = k
&&&&&&&&&&&&&&&
&&&&&&&&&&&
TextBox2.Text = i
具体意思慢慢揣摩哈，还是挺有意思的
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。君，已阅读到文档的结尾了呢~~
改错句练习 vb练习题 vb打字练..
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
vb练习(改错+普通)
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口高中VB改错题1234.第二题的要求
第一处错误是在dim后面加了逗号,改为：dim steps as integer第二处错误是表达式错误,改为：N=3*N+1&&&&&&& 第三处错误应改为：End If&&&&&&& 第四处错误应加上：Loop&&& 2.是定义时的错误,应改为dim s as double,h as double,a as in double,由于看不到你的运行界面所以不知道第二个错误是什么.&&& 3.第一处错误没有变量名,应改为：dim&i as long&&&&&& 第二处错误是逻辑错误,不应该用Or,应把Or改为AND&&&&&& 第三处错误应改为 Next& i&&& 4.第一处错误是赋值错误,由于是求连加所以S的初值应该为0,改为：s=0&&&&&&&第二处错误应改为：for i= 1 to 100,因为是从1开始求,不是0&&&&&& 第三处错误贬值错误,应改为：text1.text=s,因为最后要求的是1到100连加的值S.打得挺辛苦!
为您推荐：
其他类似问题
扫描下载二维码

我要回帖

更多关于 哥德巴赫猜想1 1 的文章

 

随机推荐