如何用VB控制台编程（打印输出100－999之间的水仙花数）
' VB .NET 控制台应用
Module Module1
Sub Main()
Dim i, a, b, c As Integer
i = 100
Do While i <= 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Console.WriteLine(i) '控制台输出部分，可以修改成其他形式输出
End If
i = i + 1
Loop
End Sub
End Module
void main()
{
int i,j,k;
for(i=1;i<=9;i++)
for(j=0;j<=9;j++)
for(k=0;k<=9;k++)
{
if(i*i*i + j*j*j +k*k*k == 100*i+10*j+k)
printf("%d 是水仙花数.
",100*i+10*j+k);
}
getche();
}
Private Sub Command1_Click()
For i = 100 To 999
If IsPrime(i) Then
n = n + 1
Print i;
If n Mod 10 = 0 Then Print
End If
Next i
End Sub
Public Function IsPrime(ByVal num As Long) As Boolean
Dim m As Long
m = Sqr(num)
IsPrime = True
For i = 2 To m
If num Mod i = 0 Then
IsPrime = False
Exit For
End If
Next i
End Function
简便易行，求分！
Private Sub Form_Load()
Call Show
Dim i, j, k As Integer
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
If Val(i & j & k) = i ^ 3 + j ^ 3 + k ^ 3 Then
Print i & j & k
End If
Next k
Next j
Next i
End Sub
VB2005中开发新一代控制台应用程序
另外，当你需要大量重复的脚本操作，当然还有可能的更复杂的操作时都会用到这种控制台应用程序。在Visual Basic的早期版本中基本没有为创建控制台应用程序提供多大支持。而且，尽管VB 6及其早期版本能够创建控制台应用程序；但是，这不是一种简单的或直接的过程。在VB 6中创建一个控制台应用程序必须进行Win...
vb语言是什么意思?
VB语言的编程范式主要是基于对象，开发人员可以利用类、对象、方法、属性等编写代码，并将其组织成模块化和可重用的代码库。VB语言当前的版本是VB .NET，它是一种全面支持面向对象的编程语言，同样可以用来开发Windows应用程序、Web应用程序、控制台应用程序、Windows服务等。与早期版本不同，VB .NET使用的...
如何在vb.net控制台程序中格式化输出结果(如图)
Sub Main()Dim a As Boolean = True, b As Boolean = FalseConsole.WriteLine(LCase("a=" & a & " b=" & b))Console.WriteLine(LCase("true and false = " & (a And b)))Console.WriteLine(LCase("true and not false = " & (a And Not b)))Console.WriteLine(LCase("true >...
帮忙用vb语言编一个与电脑玩剪刀石头布游戏。(控制台程序)这是我的代码...
两个vLABEL 三e个fCOMMAND 复制代码，就可以4了t '-2石头 '0剪刀u '3布 Private Sub Command3_Click() Dim a, b As Integer Randomize a = -6 b = Int(Rnd * (-3) + 7) Label0。Caption = "石头" Select Case a - b Case -7: Label8。Caption = "布": MsgBox "电脑胜" ...
vb.net怎么从文本文档中读取一行数据,将文本输出到控制台?
以下示例一次从文件中读取一行，然后将每行文本打印到控制台。Sub ReadTextLinesFromFile()Dim file As New System.IO.StreamReader("c:test.txt")Dim oneLine As String oneLine = file.ReadLine()While (oneLine <> "")Console.WriteLine(oneLine)oneLine = file.ReadLine()End While file.Close()...
VB能不能操作VC的控制台程序?
下面是一种实现方法、1、控制台程序启动时要接收三个参数、比如你的程序叫1.exe 那VB启动时用a=Shell（"1.exe 1,2,3",vbhide)2、然后计算结果写出到一个文件（固定的位置如C盘根目录下1.txt）3、VB等待1.exe这个进程从进程列表里消失后去读C盘根目录下1.txt....
VB编程水仙花数
VB实现水仙花数的程序代码如下：PrivateSubCommand_Click()Fornum=100To999 a=numMod10 b=num\\10Mod10 c=num\\100 Ifa^3+b^3+c^3=numThenPrintnum Nextnum EndSub 实现具体步骤如下：1.启动VB程序，新建一个标准的exe项目，如下图。2.在窗体上绘制命令按钮(名称:命令)，双击命令按钮以进入代码...
用VB编程:从键盘输入一个长度为7的字符串,除首尾字符外,将其余5个字符...
以上是效果 以下是代码：Dim j As IntegerDim s(1 To 7), max As IntegerPrivate Sub Command1_Click()If Len(Text1.Text) <> 7 Then MsgBox "请输入七位字符串！" Me.ClsElse For i = 1 To 7 s(i) = Asc(Mid(Text1.Text, i, 1)) Next i For i = 2 To 5 ...
vb和vb.net的区别
1.1 什么是 VB.NET? Microsoft推出全新的编程和操作系统Framework——.NET,支持多种语言利用公共.NET库开发应用程序,这些应用程序在.NET Framework上运行。使用Visual Basic在.NET Framework上编程,这就是VB.NET。首先,让我演示在VB.NET中写最简单的控制台程序:Hello World。1.2 Hello, World!“Hello World!”是...
vb.net如何在windows控制台下使用定时器
控制台调用Timer和窗体是类似的。首先在项目引用里面加入System.Windows.Forms程序集，然后在代码顶部引入命名空间：Imports System.Windows.Forms 在控制台的Module中声明一个计时器：Private WithEvents Timer1 As New Timer()把计时器的Tick事件静态绑定到处理函数中：Private Sub Timer1_Tick(sender As ...