精华内容
下载资源
问答
  • VB三个数中的最值

    2010-06-07 13:55:09
    VB三个数中的最值 VB三个数中的最值
  • vb求最三个数的大数

    2009-11-01 12:56:34
    自己编的一个简单程序求三个在-10000到10000的书的最大数
  • 程序输入a、b、c三个值,输出其中最大值。
  • VB 三个数的排序

    2010-06-07 13:57:05
    VB 三个数的排序 VB 三个数的排序 VB 三个数的排序
  • 输出三个数中绝对值最大

    千次阅读 2019-10-13 17:15:56
    1038: 绝对值最大 时间限制: 1 Sec 内存限制: 30 MB 提交: 25216 解决: 13497 ...输出三个数中绝对值最大,单独占一行。若绝对值最大不唯一,则输出最先出现的那个。例如,若输入为1 -3 3,则输...
    1038: 绝对值最大
    

    时间限制: 1 Sec 内存限制: 30 MB
    提交: 25216 解决: 13497
    [提交] [状态] [讨论版] [命题人:admin]
    题目描述

    输入3个整数,输出绝对值最大的那个数。
    输入

    输入包含3个int范围内的整数,用空格隔开。
    输出

    输出三个数中绝对值最大的数,单独占一行。若绝对值最大的数不唯一,则输出最先出现的那个。例如,若输入为1 -3 3,则输出为-3;若输入为1 3 -3则输出为3。
    样例输入 Copy

    1 2 -3

    样例输出 Copy

    -3

                                                                                                  #include<stdio.h>
    

    #include<stdlib.h>

    int main()
    {
    int a,b,c,x,y,z,max;
    scanf("%d %d %d",&a,&b,&c);
    x=abs(a);
    y=abs(b);
    z=abs©;
    if(x>=y)
    {
    max=x;
    if(max>=z)
    {
    printf("%d\n",a);
    }
    else
    {
    printf("%d\n",c);
    }
    }
    else
    {
    max=y;
    if(max>=z)
    {
    printf("%d\n",b);
    }
    else
    {
    printf("%d\n",c);
    }
    }

    return 0;
    }

    展开全文
  • 输入三个数,求得平均值,平均值程序(VB6.0源代码编写Function ave(ByVal a As Double, ByVal b As Double, ByVal c As Double) As Double ave = (a + b + c) / 3 End Function Private Sub Command1_Click() ...
  • 键盘输入10个数,求出最大值并输出

    千次阅读 2020-07-24 15:14:53
    #include<stdio.h> int main() { int a[10], i, max; for (i = 0; i < 10; i++) { scanf_s("%d", &a[i]); max = a[0]; } for (i = 1; i < 10; i++) if (a[i] > max)max = a[i];...}
    #include<stdio.h>
    int main()
    {
    	int a[10], i, max;
    	for (i = 0; i < 10; i++)
    	{
    		scanf_s("%d", &a[i]);
    		max = a[0];
    	}
    	for (i = 1; i < 10; i++)
    		if (a[i] > max)max = a[i];
    	printf("%d\n", max);
    }
    
    展开全文
  • 生成一1000以内随机正整数,输入个数,判断大小,知道猜到的与生成的正好相等,程序结束(vs2010 vb)
  • Private Sub Form_Load() Dim x As Integer,y As Integer,z As Integer Dim diyige As Integer Dim dierge As String,disange As String,disige As ...diyige = InputBox("请输入A:","数据输入") dierge = InputBo
    Private Sub Form_Load()
    
    Dim x As Integer,y As Integer,z As Integer
    Dim diyige As Integer
    Dim dierge As String,disange As String,disige As String
    diyige = InputBox("请输入A:","数据输入")
    dierge = InputBox("请输入B","数据输入")
    disange = InputBox("请输入C","数据输入")
    x = Val(diyige)
    y = Val(dierge)
    z = Val(disange)
    If x > y And y > z Then
    Print x,y,z
    ElseIf y > z And z > x Then
    Print y,z,x
    ElseIf z > x And x > y Then
    Print z,x,y
    End If
    Print "你输入的数据按从da到xiao的顺序是:"
    End Sub
    展开全文
  • 写了数据处理程序,正常运行时用 DOS 批处理命令行模式执行,因执行时间较长,就想给它在CMD 窗口看到实时运行结果反馈(不能使用msgbox),找了一圈,找到好多代码,执行附带的示例程序都是正常的,但是用那些...

    注:以下核心代码部分来自:https://tieba.baidu.com/p/2561344540?red_tag=1334161657 。

        写了个数据处理程序,正常运行时用 DOS 批处理命令行模式执行,因执行时间较长,就想给它在 CMD 窗口看到实时运行结果反馈(不能使用msgbox),找了一圈,找到好多代码,执行附带的示例程序都是正常的,但是用那些代码编译后就是无法显示。疑惑之下,找到了 https://tieba.baidu.com/p/2561344540?red_tag=1334161657 中的详细解释,试了一把,成了!随后我自己又试了多种组合模式,以此文记录。

    ps:AllocConsole 方式得到的程序不支持在 CMD 窗口输出!不能使用 AllocConsole

    废话不多说,两个核心 API 三步最简实现VB6输出到控制台显示:

    目录

    一,定义API及全局变量等:

    二, API 使用方法:

    '示例1,无窗体模式:

    '示例2,窗体模式:

    '示例3,窗体混合模式:

    三,修改编译后的 EXE 文件:

    方法一,直接使用二进制编辑器或自己写另一个代码修改:

    方法二,用VBS代码重新连接第二步编译好的exe文件:

    四,执行效果

    4.1 窗口模式直接执行

    4.2 混合模式或无窗体模式批处理方式执行

    五,控制台标题设置、控制台键盘输入获取及更改显示颜色等源代码下载


    一,定义API及全局变量等:

    '添加模块,取名 DOSConsole.bas ,写入以下代码

    Option Explicit
    '---------定义所需API
    Public Declare Function FreeConsole Lib "kernel32" () As Long
    Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Public Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
    Public Declare Function LstrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
    Public Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, ByVal lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long
    '-------------常量定义
    Public Const STD_OUTPUT_HANDLE = -11&
    '-----------定义全局变量
    Public hConsoleOut As Long ' The console's output handle
    '---------定义函数
    Public Sub Initialize() '---初始化获取句柄
        '获得控制窗口的句柄
        hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
    End Sub
    Public Sub Terminate() '-----销毁句柄
        Call FreeConsole ' Destroy the console
        Call CloseHandle(hConsoleOut)
    End Sub
    Public Sub COut(szOut As String)   '------文字输出到控制台函数
        WriteConsole hConsoleOut, szOut, LstrLen(szOut), vbNull, vbNull
    End Sub

    二, API 使用方法:

    '在 sub main() 或 Sub Form_Load() 内先 执行初始化函数:Initialize 
    '在 sub main() 尾部 或 Sub Form_QueryUnload 中执行销毁函数:Terminate
    '在 sub main() 中部 或 Sub Command1_Click() 中执行输出函数:Call COut("VB6 控制台" & vbCrLf)

    '示例1,无窗体模式:

    Public Sub Main()
        Call Initialize
        '----------此处程序显示代码开始-------------
        Call COut("VB6 控制台" & vbCrLf)
        '----------程序代码到此结束-------------
        Call Terminate
        end
    End Sub

    '示例2,窗体模式:

    Private Sub Form_Load()
        Call Initialize
    End Sub
    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        Call Terminate
    End Sub
    Private Sub Command1_Click()
        Call COut("VB6 控制台" & vbCrLf)
    End Sub

    '示例3,窗体混合模式:

    '模块1:

    Public Sub Main()
        Call Initialize
        Call COut("VB6 控制台" & vbCrLf)
        Load Form1
        Form1.Show
    End Sub

    '窗体模块:

    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        Call Terminate
    End Sub
    Private Sub Command1_Click()
        Call COut("VB6 控制台" & vbCrLf)
    End Sub

    完成以上步骤后,执行是没有效果的,需要进行下面的第三步,这才是关键部分。

    三,修改编译后的 EXE 文件:

    以上代码编译后的exe文件还不能实现CMD控制台模式输出,需要对exe文件进行修改才行,有两种修改方法。

    方法一,直接使用二进制编辑器或自己写另一个代码修改:

    用二进制修改指定偏移量位置处的数字,注意以下所说文件起点偏移量为1,而大多数二进制编辑器起点计为0,使用时需要注意
    P-代码 方式编译的exe其偏移量是 &H10D,编译为 本机代码 的偏移量是 &H115 , 将该位置的 02 改为 03 即可。
    以 本机代码 方式编译的exe修改为例,还可用以下另一个代码进行修改:

    新建一个VB工程,运行以下代码:

    Sub Main()
        Open "{这里填写编译出的文件的路径}" For Binary As #1
        Seek #1, &H115
        Put #1, , CLng(3)
        Close #1
    End Sub

    方法二,用VBS代码重新连接第二步编译好的exe文件:

    新建VBS文件(LinkConsole.vbs),内容如下(保存关闭):

    Option Explicit
    Dim strLINK, strEXE, WSHShell
    ' Be sure to set up strLINK to match your VB6 installation.
    strLINK = """C:\Program Files\Microsoft Visual Studio\VB98\LINK.EXE"""
    strEXE = """" & WScript.Arguments(0) & """"
    Set WSHShell = CreateObject("WScript.Shell")
    WSHShell.Run strLINK & " /EDIT /SUBSYSTEM:CONSOLE " & strEXE
    Set WSHShell = Nothing
    WScript.Echo "Complete!"

    使用方法:将第二步中编译好的exe文件按鼠标左键拖放到以上新建的 LinkConsole.vbs 文件图标上,即会执行 LINK.EXE 重编译exe为控制台模式,注意你自己的 VB6 的安装位置,以上 LinkConsole.vbs 文件中为使用默认路径安装(C:\Program Files\Microsoft Visual Studio\VB98\)的路径。

    四,执行效果

    4.1 窗口模式直接执行

    至此,直接运行你用以上方法处理完成的 exe 文件就会出现控制台窗口,并显示设定内容:

    4.2 混合模式或无窗体模式批处理方式执行

    可以编写批处理文件,内容如:

    VB6Console.exe
    pause

    然后执行改批处理文件,即可在 CMD 窗口中实现输出设定内容:

    此记!

    五,控制台标题设置、控制台键盘输入获取及更改显示颜色等源代码下载

    简介:如需控制台标题设置及设定显示颜色等完整代码,请前往下载。

    本源码为 VB6 以控制台或 cmd.exe 窗口方式显示和接受输入文字,在用批处理调用时可直接在 cmd.exe 窗口输出文字显示并可获取键盘输入到程序内处理。同时还支持输出文字颜色和背景颜色设置,给您不一样的个性化显示界面!
    注:AllocConsole 创建的控制台窗口是独立新建的,在用批处理调用时是无法在 cmd.exe 窗口输出的,因此本代码不用 AllocConsole 。

    使用说明:

    核心代码为 DOSConsole.bas ,使用前请先执行 Initialize ,程序关闭前请执行 Terminate。

    输出文字到控制台为 COut , 为便于个性化,请在字符结尾自行决定是否添加 vbcrlf 
    获取控制台输入字符为 LIn
    设置控制台标题栏文字为 setTitle
    设置输出文字颜色和背景颜色为 setCONColor(f,b) ,其中,f 为文字颜色,b 为背景颜色,设置后在下一次输出时生效,颜色代码对应列表请看本文件夹内:控制台色卡.png 或参考 QBColor 函数

    注意:您的程序修改编译完成后,控制台输入输出功能还不能正常工作,这不是代码有问题,而是必须对编译好的程序进行二进制修改才能正确工作,具体步骤如下:

    将编译好的 exe 文件按鼠标左键拖放到本文件夹下 LinkConsole.vbs 文件图标上,即可,其会执行 LINK.EXE 重编译 exe 为控制台模式。

    至此,即可直接运行处理好的程序查看运行效果,或用批处理方式调用运行了。

    注意你自己的 VB6 的安装位置,以上 LinkConsole.vbs 文件中为使用默认路径安装(C:\Program Files\Microsoft Visual Studio\VB98\)的路径。

    另外,测试批处理调用效果请执行:runtest.bat 

     

    展开全文
  • 输入三个整数。输出最大最小值

    千次阅读 2013-10-11 16:46:59
  • //三个float作用为函数申明,可以在下面的模块写入具体功能。 float sub(float i,float j,float k); float aveg(float i,float j,float k); x = sum(a,b,c); // x,y,z作用为 函数调用 y = sub(a...
  • 输入三个数,求得平均值,平均值程序(VB6.0源代码编写Function ave(ByVal a As Double, ByVal b As Double, ByVal c As Double) As Double
  • 计算任意3个数的和与平均,平均的结果取两位小数
  • vb比较三个数的大小

    千次阅读 2012-04-25 21:18:17
    代码如下: Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim max As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then ...ma
  • Java输入输出

    千次阅读 多人点赞 2017-02-18 17:07:20
    Java输入输出
  • 求一组中的最大值和最小值,并有载入功能,注:可以把数据存入记事本,数据间用英文逗号分开。 <br>并命名为Q.txt放在E盘根目录(E:\\Q.txt),然后点击“载入”。 QQ223857666勾月
  • QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • VB输入输出数据的总结

    万次阅读 2011-11-29 12:21:33
    VB中的数据输出:   1,使用标签控件(label),  例子:labe1.caption="Visual Bisic(简称VB)是Microsoft推出的基于Windows操作系统环境下的软件开发工具。"  2,使用print方法,  print方法用于在窗体(form...
  • #include int main() {  int x,a,b,c,d;... printf("请输入个三:");  scanf("%d",&x);  a=x/100;  b=(x/10)%10;  c=x%10;  d=c*100+b*10+a;  printf("倒序为:%d\n",d);  return 0; }
  • 问题:输入三个整数x,y,z,请把这三个由小到大输出。 程序分析: (1)先将x与y进行比较,如果x>y则将x与y的值进行交换。 (2)然后将 x与z进行比较,如果x>z则将x与z的值进行交换,这样能使x最小。 (3)...
  • 先定义函数max() 和min() #include<stdio.h> int max(int a,int b,int c) { if(a>b && a>c) return a; if(b>a && b>c) return b; if(c>a &&...return
  • 简单的表格是这么创建的: 项目 Value 电脑 $1600 手机 $12 导管 $1 设定内容居中、居左、居右 使用 :---------: 居中 使用 :---------- 居左 使用 ---------...
  • VB作业之比较三个数的大小

    千次阅读 2012-05-11 07:35:35
    心得体会:这次作业相比上次作业只是增加了一个个数,但难度似乎增加的很大,摸索出这一类程序的规律,程序就很容易编写了;同样这次用到了“ SetFocus ”使程序更完美,用起来更方便  
  • VB6.0学习笔记 之 输入输出(一)

    千次阅读 2015-08-28 21:07:38
    vb6.0按道理上来说已经是一老古董了,可以说已经是过时的语言。现在也没有听说有用vb6.0开发的商业软件。所以说如果以学一门语言来充实就业的技能树可以说是一大失误。这里我站在自己这两年的看书经历和网上...
  • 输入数字n,输出n*

    千次阅读 2019-09-27 10:10:36
    使用js实现,输入数字n,输出n* function shuxx(num){ var passWord = ''; var i=1; while(i<=num){ passWord = passWord + '*'; i++; } return passWord;} 使用java实现,输入数字n,输出n* p...
  • 三个数按照从小到大输出 最最最简单且麻烦的 #define _CRT_SECURE_NO_WARNINGS 1 #include<stdio.h> #include<stdlib.h> int main() { int a = 0; int b = 0; int c = 0; int temp = 0; scanf("%d%d...
  • 输入个三位正整数,将其反向输出,比如输入123,输出321。 输入格式: 一个三位正整数 输出格式: 反向输出,如果反向后是0开头,则0不输出输入样例1: 103 输出样例1: 301 输入样例2: 120 输出样例2: 21...
  • VB 判断一个数是否为素数

    千次阅读 2020-10-09 09:04:11
    Hello,各位小伙伴,本节课程我们做一小练习——如何用VB来检测某个是不是素数? 首先,我们来看下素数的概念。 素数定义:质数是指在大于1的自然数中,除了1和它本身以外不再有其他因数的自然数。 从定义中不难...
  • 代码如下: Private Function max(a() As Integer) As Integer Dim i As Integer Dim maxa As Integer ...Print "随机十位是:" ...Print "最大数是:" Print Str(max) End Sub  

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 21,053
精华内容 8,421
关键字:

vb输入三个数输出最大的