Dim i As Integer
For i = 9 To 1 Step -1
Print Spc(i); String((2 * (9 - i) + 1), Format(i))
Next
End Sub追问
谢谢，谢谢，谢谢，真的很感谢
大神，再帮一个忙，用程序验证哥德巴赫猜想
追答这个有点吗复杂，有时间再说
For J = I To 1 Step -1
Print " ";
Next J
For J = 1 To (10 - I) * 2 - 1
Print Trim(I);
Next J
Next I追问
谢谢，谢谢，谢谢，真的谢谢
追答Sub Main()
Dim I As Integer, J As Integer, K As Integer, A As Integer, B As Integer
I = InputBox("请输入一个偶数：")
If I Mod 2 0 Or I <= 0 Then
MsgBox "请输入一个偶数！", vbCritical
Exit Sub
End If
For J = 2 To I - 1
If SS(J) And SS(I - J) Then
Print I; "="; J; "+"; I - J
Exit Sub
End If
Next J
End Sub
Function SS(ByVal D As Integer) As Boolean
SS = True
For K = 2 To D - 1
If D Mod K = 0 Then SS = False
Next K
End Function
想在vb中作个柱状统计的图用什么方法详细点这个我不怎么会
想在vb中作个柱状统计的图用什么方法详细点这个我不怎么会 三个办法，你自己选择吧。 1、用图形，自己画。不要以为这个是胡扯，实际上任何一个图形控制元件都是通过GUI这么画出来的。你自己写程式码画没有想象中那么难。我曾经自己写了一个控制元件，实现工作管理员里面CPU占用率显示的那个效果，...
关于VB的一些问题,请高手讲解一下,下面这个程序答案是多少,为什么是这 ...
i从1到4，每次循环都重新赋值X=4，所以直接看i=4即可；j从1到3，每次循环都重新赋值X=3，会覆盖前面的X=4；所以j=3即可。k从1到2，循环开始前x=3，当k=1时，x=x+6=3+6=9;当k=2时，x=x+6=9+6=15;也就是X=3之前的循环都是没用的（i=4，j=3根本没有用到），直接计算 x=...
大佬们~VisualStudio中vb.net如何画三角函数图像?
Imports System.Math Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '1，获得一个Graphics对象 Dim MyGraphics As Graphics MyGraphics = PictureBox1.CreateGraphics '2，定义一个Pen对象，用于绘制图形（轮廓线）...
求VB大神帮帮忙,解一下两个编程题!在线等,急!拜托了,谢谢(ฅ>ω<*...
第二题：Dim str As StringPrivate Sub Command1_Click()Form1.Clsstr = InputBox(请输入五分制成绩等级, 请输入五分制成绩等级, "A")If str = "A" Then Print "大于等于90分"ElseIf str = "B" Then Print "80分到90分之间"ElseIf str = "C" Then Print "70分到80分之间"E...
用VB编写一个计算器程序的代码
1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index...
谁能帮我编一段用VB对CAD进行二次开发的程序代码啊
如果用户没有输入坐标或Z值,则程序结束。首先看以下两条语句:p1 = ThisDrawing.Utility.GetPoint(, "输入点:") ‘获取点坐标……p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:") '获取下一个点的坐标这两条语句的作用是由用户输入点用鼠标选取点坐标,并把坐标值赋给p1、p2两个变量。
VB 俄罗斯方块设计程序代码 VB程序做的 俄罗斯方块 要有窗体,控键,代...
For l = 1 To Int(Text1.Text) '从左到右,这个顺序倒没关系 If block(l, k) = True Then '如果在移动范围内发现有方块 block(l, k) = False '先销掉该方块(如果先动上层则会把上层移动后的点变成False,就相当于令上层移动的点消失) block(l, k + 1) = True '在该方块的下面产生一个新的方...
怎样用VB把一张图片透明的放到Picture里,在线等
'先将源图缩放，下面步骤就一样了。NewDc = tHdc(2).hdc Else NewDc = sHdc NewX = srcX NewY = srcY End If BitBlt DestHdc, X, Y, W, H, NewDc, NewX, NewY, vbSrcInvert '将源图先反色（XOR）绘入目标图，若源图背景为黑色，此步可省 '下面是制作Mask图的方法 I = ...
vb程序界面这样子的日期下拉菜单怎么弄啊?希望从控件到需修改的控件内容...
最简单的就是直接添加部件“Microsoft 日历控件”Calendar 然后把日历控件Calendar拖入摆放在Text文本框下面，Calendar加入如下代码 Private Sub Calendar1_Click()Text1.Text = Calendar1.Year & -Calendar1.Month & -Calendar1.Day Calendar1.Visible = False End Sub 然后在文本框Text加入如下代码 Privat...
关于VB的20道题,请高手给出答案,谢谢!
1题“-”2题“Enabled”3题“按Shift + Alt + M ”4题“Picture ”5题“空格与下划线”6题“AAAAA BBBBB ”7题 "4 5 6"8题“属性、事件、方法 ”9题“Default ”10题“”11题“Trim”12题“应用程序的界面”13题“Visible”14题“Picturel.Picture = loadPicture("picfile.jpg") ”15...
