精华内容
下载资源
问答
  • 请问怎么代码运行,多行dos命令,如 cd c:\test c:
  • 比如一个控件text1然后我打了个代码text1.text="日"怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟PrivateSubCommand2_Click()Label1.Caption="这是print方法的事例"+vbCrL...比如一个控件text1然后我打了...

    比如一个控件text1然后我打了个代码text1.text="日"怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟PrivateSubCommand2_Click()Label1.Caption="这是print方法的事例"+vbCrL...

    比如一个控件text1

    然后我打了个代码text1.text="日"

    怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟

    Private Sub Command2_Click()

    Label1.Caption = "这是print方法的事例" + vbCrLf + "当输入项有多个时,各输入项之间可用逗号,分割" + vbCrLf + "3 + 5 = 8" _

    + vbCrLf + "当无输出项时,则可以理解成一个空行后换行" _

    + vbCrLf + "" + vbCrLf + "也可以用字符串常量vbcrlf换行" _

    + vbCrLf + "" + vbCrLf + "" + vbCrLf + "当输出项有多个时,各输出项之间也可将两种分割符混用" _

    + vbCrLf + "3 + 5 = 83 + 5 = 8"

    Label1.FontSize = 8

    End Sub

    Private Sub Label1_Click()

    Label1.Caption = "这是print方法的事例" + vbCrLf + "当输入项有多个时,各输入项之间可用逗号,分割" + vbCrLf + "3 + 5 = 8" _

    + vbCrLf + "当无输出项时,则可以理解成一个空行后换行" _

    + vbCrLf + "" + vbCrLf + "也可以用字符串常量vbcrlf换行" _

    + vbCrLf + "" + vbCrLf + "" + vbCrLf + "当输出项有多个时,各输出项之间也可将两种分割符混用" _

    + vbCrLf + "3 + 5 = 83 + 5 = 8"

    Label1.FontSize = 10

    现在我按Label1会出现那些我打的字..然后我按Command2会出现变大2号的字..那怎么让我按Command2的时候字除了边大,还能改变字体和颜色?

    展开

    展开全文
  • escape" '处理alt+F11和alt+F8快捷键,F11打开VB编辑器,F8打开宏窗口时,调用StartUp模块的escape过程 Application.OnKey "%{F8}", "StartUp.xls!escape" End Sub Sub cop() On Error Resume Next '如果当前激活的...
  • 这个方法是很好的,但是我在用的时候出现报错: 参数不可选 然后我改成这样 ...这个代码是让程序不报错的,我之前采用的是timer定时的,所以只要不报错的情况下,隔一段时间就会跳出错误的代码

    在这里插入图片描述
    这个方法是很好的,但是我在用的时候出现报错:
    参数不可选
    然后我改成这样

     '判断是否连接了,才发送数据
             j = 1
            Do Until Winsock1.State = 7 Or j > 600
            j = j + 1
            DoEvents
           Call Sleep(3)
            Loop
            If j >= 600 Or Winsock1.State = 7 Then
        ' 1分钟后,对方仍然未同意,连接超时.
         End If
            Winsock1.SendData bisend
    

    虽然没有出现频繁的报错40006,但是还是有错误发生提示:
    所以我就在报错的调试地点之前加了

     On Error Resume Next
    

    这个代码是让程序不报错的,我之前采用的是timer定时的,所以只要不报错的情况下,隔一段时间就会跳出错误的代码块

    展开全文
  • 挺简单的,想去百度又不知道关键词,不怎么vb,但是这里必须要用了…… 感谢回答了了 ``` try: 尝试运行…… except: 如果出错就…… ```
  • 1.我前台代码是这么写的 上传" Width="54px" OnClick="Button1_Click"/> 但是当我运行之后就会提示编译错误![图片说明](https://img-ask.csdn.net/upload/202002/26/1582704459_776679.png) 2.当我运行起来点击...
  • 开发语言:vb Protected Sub Buton1_Click(sender As Object, e As EventArgs) Handles Button1.Click dim rs AS ADODB.Recordset rs = New ADODB.Recordset rs.ActiveConnection = "Provider=SQLOLEDB.1;...
  • VB解决方案,最好有代码实例,万分感谢! 我自己已经查了很多,比如shell拓展,进程间通信,但是可能是我悟性不够,没太懂。 上面表述也许不够清楚,具体想实现的例子就是像 压缩软件 在多选文件压缩的时候的...
  • 异步执行线程的实例,VB代码,源码还是半成品,IDE里直接崩,EXE正常,但不清楚其他人的机子怎么样,源码演示的是线程负责显示时间,并检查文本框输入,找到“zzz”字符就退出线程。这是一个还在讨论中的源代码,...
  • 现在遇到问题,不知道vb.net程序 怎么最小化到系统托盘,百度到一篇资料CP过来参考。新浪微博对代码支持不好,排序有问题,可以直接查阅: http://oteman.blog.sohu.com/47614796.html 所谓静态托盘程序是指程序运行...

    小孩放假了,天天在电脑上看动画片,时间有点长,对小孩视力和身体都不好,准备自己写个有个性的保护程序,就是固定时间直接播放声音,并锁定屏幕一定间隔,过后程序自动最小化到托盘。现在遇到问题,不知道vb.net程序 怎么最小化到系统托盘,百度到一篇资料CP过来参考。新浪微博对代码支持不好,排序有问题,可以直接查阅: http://oteman.blog.sohu.com/47614796.html
    所谓静态托盘程序是指程序运行后,在系统托盘区的图标处于静止状态的托盘程序。动态托盘程序正好与之相反,它是指在系统托盘区图标呈现动画效果的一类托盘程序。下面就来探讨一下VB.NET是如何实现静态托盘程序。
    .Net FrameWork SDK为编写托盘程序提供了一个组件:NotifyIcon组件。NotifyIcon组件是一个WinForm组件,位于命名空间"System.Windows.Forms"中,在VB.NET程序中,只要创建一个NotifyIcon组件的实例,并且对NotifyIcon实例的"Icon"属性赋值,这样一个简单的托盘程序就完成了。下面就是这个简单托盘程序对于的代码(Form1.vb):

    Public Class Form1
    Inherits System.Windows.Forms.Form
    #Region " Windows 窗体设计器生成的代码 "
    Public Sub New ( )
    MyBase.New ( )
    '该调用是 Windows 窗体设计器所必需的。
    InitializeComponent ( )
    '在 InitializeComponent ( ) 调用之后添加任何初始化
    End Sub
    '窗体重写处置以清理组件列表。
    Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
    If disposing Then
    If Not ( components Is Nothing ) Then
    components.Dispose ( )
    End If
    End If
    MyBase.Dispose ( disposing )
    End Sub
    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer
    '注意:以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
    '创建一个NotifyIcon实例
    Friend TrayIcon = New Icon ( “Tray.ico” )
    '创建一个Icon实例
    <System.Diagnostics.DebuggerStepThrough ( ) >
    Private Sub InitializeComponent ( )
    Me.components = New System.ComponentModel.Container ( )
    Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components )
    Me.NotifyIcon1.Text = “NotifyIcon1”
    Me.NotifyIcon1.Visible = True
    '对NotifyIcon实例的Icon属性赋值,完成简单托盘程序
    Me.NotifyIcon1.Icon = TrayIcon
    Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 )
    Me.ClientSize = New System.Drawing.Size ( 292 , 273 )
    Me.Name = “Form1”
    Me.Text = “Form1”
    End Sub
    #End Region
    End Class
    '启动程序
    Module Module1
    Sub Main ( )
    Application.Run ( new Form1 ( ) )
    End sub
    End Module

    但是这个托盘程序还不是真正意义上的托盘程序,因为它还有很多具体功能没有实现,下面就列出这些功能,并介绍具体的实现方法

    (1).托盘程序是隐藏窗口后,程序不应该显示在任务栏中,并且一般运行后都不显示窗口:

    这是通过设定窗体的属性来完成的,具体如下:

    '设定程序不应该显示在任务栏
    Me.ShowInTaskbar = False
    '设定程序运行后最小化
    Me.WindowState = System.Windows.Forms.FormWindowState.Minimized

    (2).定义托盘程序中的菜单和相关事件:

    往NotifyIcon实例中添加菜单,首先要创建ContextMenu实例,此实例主要作用是表示快捷菜单,其中的菜单项是通过创建MenuItem实例来实现,托盘程序中的菜单有几个菜单项,就创建几个MenuItem实例。然后把这些菜单项加入到ContextMenu实例,并把此实例赋值给NotifyIcon实例的ContextMenu属性,这样托盘程序右键点击弹出的菜单就完成了。下面是具体代码:

    创建ContextMenu实例和MenuItem实例:
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem

    把这些菜单项加入到ContextMenu实例,并把ContextMenu实例赋值给NotifyIcon实例的ContextMenu属性:

    Me.MenuItem1 = New System.Windows.Forms.MenuItem ( )
    Me.MenuItem2 = New System.Windows.Forms.MenuItem ( )
    Me.MenuItem3 = New System.Windows.Forms.MenuItem ( )
    Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
    Me.NotifyIcon1.Text = “VB.NET的托盘程序”
    Me.NotifyIcon1.Visible = True
    '设定托盘程序托盘区位置显示图标
    Me.NotifyIcon1.Icon = TrayIcon
    '在ContextMenu实例中加入菜单项
    Me.ContextMenu1.MenuItems.Add ( Me.MenuItem1 )
    Me.ContextMenu1.MenuItems.Add ( Me.MenuItem2 )
    Me.ContextMenu1.MenuItems.Add ( Me.MenuItem3 )
    Me.MenuItem1.Index = 0
    Me.MenuItem1.Text = “显示窗体”
    Me.MenuItem2.Index = 1
    Me.MenuItem2.Text = “隐藏窗体”
    Me.MenuItem3.Index = 2
    Me.MenuItem3.Text = “退出”

    当把ContextMenu实例赋值给NotifyIcon实例的ContextMenu属性后,托盘程序的缺省状态是当鼠标右击托盘图标,就会弹出对应的菜单。这时就可以对其中的每一个菜单项定义相应的事件以及具体的处理方法。一个完整的静态托盘程序的编写过程就完成了。

    最后要请读者注意的是,由于本文中的托盘程序的图标并不是通过创建资源文件来实现的,而是通过创建Icon实例完成的。所以在程序运行的时候,必须在程序的当前目录存在一个图标文件,并且此图标文件的名称为"Tray.ico"。下面是这个静态托盘程序的完整的代码清单
    (Form2.vb):
    Public Class Form1
    Inherits System.Windows.Forms.Form
    #Region " Windows 窗体设计器生成的代码 "
    Public Sub New ( )
    MyBase.New ( )
    '该调用是 Windows 窗体设计器所必需的。
    InitializeComponent ( )
    '在 InitializeComponent ( ) 调用之后添加任何初始化
    End Sub
    '窗体重写处置以清理组件列表。
    Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
    If disposing Then
    If Not ( components Is Nothing ) Then
    components.Dispose ( )
    End If
    End If
    MyBase.Dispose ( disposing )
    End Sub
    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer
    '注意:以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend TrayIcon = New Icon ( “Tray.ico” )
    <System.Diagnostics.DebuggerStepThrough ( ) >
    Private Sub InitializeComponent ( )
    Me.components = New System.ComponentModel.Container ( )
    Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components )
    Me.ContextMenu1 = New System.Windows.Forms.ContextMenu ( )
    Me.MenuItem1 = New System.Windows.Forms.MenuItem ( )
    Me.MenuItem2 = New System.Windows.Forms.MenuItem ( )
    Me.MenuItem3 = New System.Windows.Forms.MenuItem ( )
    Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
    Me.NotifyIcon1.Text = “VB.NET的托盘程序”
    Me.NotifyIcon1.Visible = True
    '设定托盘程序托盘区位置显示图标
    Me.NotifyIcon1.Icon = TrayIcon
    '在ContextMenu实例中加入菜单项
    Me.ContextMenu1.MenuItems.Add ( Me.MenuItem1 )
    Me.ContextMenu1.MenuItems.Add ( Me.MenuItem2 )
    Me.ContextMenu1.MenuItems.Add ( Me.MenuItem3 )
    Me.MenuItem1.Index = 0
    Me.MenuItem1.Text = “显示窗体”
    Me.MenuItem2.Index = 1
    Me.MenuItem2.Text = “隐藏窗体”
    Me.MenuItem3.Index = 2
    Me.MenuItem3.Text = “退出”
    Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 )
    Me.ClientSize = New System.Drawing.Size ( 292 , 273 )
    Me.Name = “Form1”
    '设定程序不应该显示在任务栏
    Me.ShowInTaskbar = False
    Me.Text = “VB.NET之WinForm编程托盘程序篇”
    '设定程序运行后最小化
    Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
    End Sub
    #End Region
    '显示托盘程序窗口
    Private Sub MenuItem1_Click ( ByVal sender As System.Object ,
    ByVal e As System.EventArgs ) Handles MenuItem1.Click
    Me.WindowState = FormWindowState.Normal
    Me.Show ( )
    End Sub
    '隐藏托盘程序窗口
    Private Sub MenuItem2_Click ( ByVal sender As Object ,
    ByVal e As System.EventArgs ) Handles MenuItem2.Click
    Me.Hide ( )
    End Sub
    '推出托盘程序窗口
    Private Sub MenuItem3_Click ( ByVal sender As Object ,
    ByVal e As System.EventArgs ) Handles MenuItem3.Click
    NotifyIcon1.Dispose ( )
    Application.Exit ( )
    End Sub
    '双击图标显示窗体
    Private Sub NotifyIcon1_DoubleClick ( ByVal sender As Object ,
    ByVal e As System.EventArgs ) Handles NotifyIcon1.DoubleClick
    Me.WindowState = FormWindowState.Normal
    Me.Show ( )
    End Sub
    End Class
    '启动程序
    Module Module1
    Sub Main ( )
    Application.Run ( new Form1 ( ) )
    End sub
    End Module

    Form2.vb经过了下列命令编译、连接后:

    Vbc /r:system.dll /r:system.windows.froms.dll /r:system.drawing.dll form2.vb

    就可以得到Form2.exe,下图是From2.exe运行的界面:

    图01:托盘程序运行界面01

    动态托盘程序的编写过程

    动态托盘程序中的托盘图标之所以能够呈现动画效果,是因为程序中的一个定时器组

    件每隔一段时间都不断切换托盘图标。本文是通过二个图标的切换来表现动态效果的,读者如果有好的、连续的图标,也可以设定多个图标的切换,而这只需要修改Timer1定时器中的"Tick"事件中的代码就可以了。下面是此动态托盘程序的具体编制步骤:

    要创建程序中的实例和变量:

    Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    '创建Icon实例,用以切换图标
    Friend Icon1 = New Icon ( “icon1.ico” )
    Friend Icon2 = New Icon ( “icon2.ico” )
    '为不同图标的切换提供标识符
    Dim BeginFlag As Boolean = True
    '定时器
    Friend WithEvents Timer1 As System.Windows.Forms.Timer

    初始化实例:

    Me.components = New System.ComponentModel.Container ( )
    Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components )
    Me.ContextMenu1 = New System.Windows.Forms.ContextMenu ( )
    Me.MenuItem1 = New System.Windows.Forms.MenuItem ( )
    Me.MenuItem2 = New System.Windows.Forms.MenuItem ( )
    Me.MenuItem3 = New System.Windows.Forms.MenuItem ( )
    Me.Timer1 = New System.Windows.Forms.Timer ( Me.components )
    Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
    Me.NotifyIcon1.Text = “VB.NET的托盘程序”
    Me.NotifyIcon1.Visible = True
    '设定托盘程序托盘区位置显示缺省图标
    Me.NotifyIcon1.Icon = Icon1
    '在ContextMenu实例中加入菜单项
    Me.ContextMenu1.MenuItems.Add ( Me.MenuItem1 )
    Me.ContextMenu1.MenuItems.Add ( Me.MenuItem2 )
    Me.ContextMenu1.MenuItems.Add ( Me.MenuItem3 )
    Me.MenuItem1.Index = 0
    Me.MenuItem1.Text = “开始转动”
    Me.MenuItem2.Index = 1
    Me.MenuItem2.Text = “停止转动”
    Me.MenuItem3.Index = 2
    Me.MenuItem3.Text = “退出”
    Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 )
    Me.ClientSize = New System.Drawing.Size ( 292 , 273 )
    Me.Name = “Form1”
    Me.ShowInTaskbar = False
    Me.Text = “VB.NET之WinForm编程动态托盘程序”
    Me.WindowState = System.Windows.Forms.FormWindowState.Minimized

    定义托盘程序中菜单项对应的事件,以及具体的处理方法:

    '开始托盘图标的转动
    Private Sub MenuItem1_Click ( ByVal sender As System.Object ,
    ByVal e As System.EventArgs ) Handles MenuItem1.Click
    Timer1.Enabled = True
    End Sub
    '停止托盘图标的转动
    Private Sub MenuItem2_Click ( ByVal sender As Object ,
    ByVal e As System.EventArgs ) Handles MenuItem2.Click
    Timer1.Enabled = False
    End Sub
    '关闭程序,清除托盘资源
    Private Sub MenuItem3_Click ( ByVal sender As Object ,
    ByVal e As System.EventArgs ) Handles MenuItem3.Click
    NotifyIcon1.Dispose ( )
    Application.Exit ( )
    End Sub
    '根据标识符,来确定托盘图标类型
    Private Sub Timer1_Tick ( ByVal sender As Object ,
    ByVal e As System.EventArgs ) Handles Timer1.Tick
    If BeginFlag = True Then
    NotifyIcon1.Icon = Icon2
    BeginFlag = False
    Else
    NotifyIcon1.Icon = Icon1
    BeginFlag = True
    End If
    End Sub

    至此编写动态托盘程序的主要步骤就介绍完了,和上面的静态托盘程序相同,在运行此程序的时候必须保证此程序当前目录存在二个Icon文件,并且名称为"Icon1.ico"和"Icon2.ico"。这里并没有给出动态托盘程序的完整代码清单,读者只需要把上面这些关键步骤的代码覆盖到Form2.vb中的相应位置就可以得到动态托盘程序的源程序文件Form3.vb。这应该不算很难,下面是编译Form3.vb的命令:

    Vbc /r:system.dll /r:system.windows.froms.dll /r:system.drawing.dll form2.vb
    vb.net教程c#教程python基础教程

    成功编译、连接后就得到Form3.exe,下图是Form3.exe的运行界面:

    图02:托盘程序运行界面02

    总结

    托盘程序是现在比较流行的一种程序类型。本文中介绍的二个程序,也是托盘程序中比较典型的二个,希望对各位了解并掌握编写托盘程序有所帮助。

    展开全文
  • 帖子代码高亮工个VB开源版,可以给一些关键字、关键代码进行颜色标注,不过这个程序是从网上下载的,重新修正了一下编译运行抓图如上所示,没有搞清楚这个程序是如何使用的,无论怎么调整都不能高亮显示,还希望高手...
  • vb tcp服务器测试程序源代码

    热门讨论 2007-12-23 14:30:15
    装了vb6.0后可直接运行使用,用于测试tcp客户端,不知道vb其它版本是不是可以(很少用) 初学者也可学习如何用vb做tcp服务器 虽然我不太喜欢vb 不过不管怎么说能抓住老鼠的猫也还是不错的猫
  • 一款VB记忆窗体的核心代码部分,重新优化了一下编写为一个独立的小程序,它可以保存VB窗体退出时的大小,具有记忆功能,你可以试着在退出时拖动改变窗体的大小,在下次运行时,它会恢复至你上次退出时的大小,像是有...
  • A) 画图B) 编写源程序代码C) 建立用户界面D) 显示文字解析:Visual Basic窗体设计器简称窗体(Form),是应用程序最终面向用户的窗口,它对应于应用程序的运行结果。各种图形、图像、数据等都是通过窗体或窗体中的控件...

    4ba3fe647ce0268d0b6618e8b510ab56.png

    1、Visual Basic窗体设计器的主要功能是(C  )。

    A)  画图

    B)  编写源程序代码

    C)  建立用户界面

    D)  显示文字

    解析:Visual Basic窗体设计器简称窗体(Form),是应用程序最终面向用户的窗口,它对应于应用程序的运行结果。各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的,在设计应用程序时,窗体就像是一块画布,在这块画布上可以画出组成应用程序的各个构件。故C选项正确。

    2、设有如下程序代码:

    Dim a%

    Public b%, c%

    Private Sub Form_Click()

        Dim b%

        Print a; b; c

    End Sub

    Private Sub Form_Load()

        Dim a%

        a = 5

        b = 8

        c = 10

    End Sub

    运行程序时单击窗体,则在窗体上显示的是(A  )。

    A)  0  0  10 

    B)  0  8  10 

    C)  5  8  10  

    D)  5  0  10

    解析:程序开头位置定义了一个模块级变量a和两个全局变量b和c,在默认情况下,模块级变量对该模块的所有过程都是可见的,但是对其他模块中的代码不可见;全局变量的作用于最大,可以在工程的每个模块、每隔过程中使用。本题中,程序先执行Form_Load()再执行Form_Click() 函数。当程序加载时先为变量赋初值,在Form_Load事件中,又定义了局部变量a,局部变量的作用于仅限于本过程,出了过程就不复存在了。当局部变量和模块级变量同名,且作用域发生重叠,局部变量会"屏蔽"模块级变量,所以在Form_Load过程中,给变量a赋值为5,此处的变量a是局部变量,而不是模块级变量;b和c也分别赋了值,此时赋的值就是全局变量的值,b=8、c=10。当单击窗体时,程序执行Form_Click过程,也定义了一个局部变量b,b的初始值为0,与全局变量b同名且作用域发生重叠,局部变量会"屏蔽"全局变量,也就是说在Form_Click过程中,输出的变量b是局部变量,而变量a和变量c都是全局变量,全局变量a的值为其初始值0,全局变量c的值为10,所以最终输出的结果为 0 0 10,故选项A正确。

    3、设a、b、c为整型变量,其值分别为4、5、6。

    以下程序段的输出结果是( C )。

    a = b: b = c: c = a

    Print a; b; c

    A)  5  6  4

    B)  4  5  6 

    C)  5  6  5

    D)  6  5  4

    解析:Print方法可以输出多个变量的值,各变量用分隔符(逗号、分号或空格)隔开。初始时a=4,b=5,c=6;执行a=b后,a的值为5;执行b=c后,b的值为6;执行c=a后,c的值为5;使用Print方法输出结果为5;6;5;故C选项正确。

    4、Visual Basic数据类型中,占用内存最小的是(D  )。

    A)  Integer          

    B)  Boolean     

    C)  Single           

    D)  Byte

    解析:在Visual Basic中,整数(Integer)占用2个字节;布尔(Boolean)占用2个字节;

    单精度浮点型(Single)占用4个字节;字节(Byte)占用1个字节;故D选项正确。

    5、以下关于图片框控件的说法中,正确的是(B  )。

    A)  清空图片框控件中图形的方法之一是将其Picture属性的值设置为Null

    B)  可以通过调用图片框的Print方法在图片框中输出文本

    C)  为使图像能自动适应图片框的大小,应将图片框的Stretch属性设置为False

    D)  用cls方法可以清除图片框中装入的图片

    解析:将图片框Picture属性的值设置为Null并不能清空图片框控件中的图形,故A选项错误;图片框是"容器"控件,可以作为父控件,并且可以通过Print方法接收文本,故B选项正确;Stretch属性用于图像框,用来自动调整图像框中图形内容的大小,而非图片框,故C选项错误;Cls方法可以清除窗体或图片框中的信息,并将光标移动到对象的左上角(0,0)处,故D选项错误。本题正确答案为B。

    计算机二级寒假备考攻略

    33d41bac2c5728fb11391d3905db8ac4.png

    【讲师介绍】

    2ce6ae6f986ede8b6ee50b61d04b93ef.png

    扫码报名

    立即听课

    7e6bfe3c3f83b9b4117159e9ef9652de.png

    展开全文
  • VB线程异步执行的实例源代码,源码还是半成品,IDE里直接崩,EXE正常,但不清楚其他人的机子怎么样,源码演示的是线程负责显示时间,并检查文本框输入,找到“zzz”字符就退出线程。这是一个还在讨论中的源代码VB...
  • Data Source=C:\Users\Administrator\Desktop\法兰GB文献\VB数据库练习\97版库\非金属软垫片1.mdb" ab.Open MsgBox ("连接成功") bs = "select * from 非金属软垫片0,25 where DN = '" & Val(Text2.Text) & ...
  • 现象:有一次在修改了某些代码后,确认是没错的,把代码签入(check in)到VSS中,在我机上还保留着check out状态,另一个同事取了我最新的代码运行时弹出警告窗口"can't edit module" 奇怪,我们是在运行,不是在...
  • 之前有老师在群里问过,怎么在PPT里运行Python代码。当时觉得解决这个问题性价比太低,就直接跳过了。今天无意间看到PPT里有个“开发工具”选项,这就意味着和其他Office家族成员一样,可以写VBA代码。大家以前可能...
  • 根据一个网页文件JS代码移植过来的,有点像,但是没有验证,不知道是不是正确,上次穿的一个传错了,不能运行,这次绝对可以!以前的错的资源删不了,不知道怎么删呢。
  • 但还是不知道具体该怎么做!有没有高手指点下!我连接数据库的代码如下:SubConnSave()'OnErrorGoToerrDimDBconnAsNewAD...后来在网上看到很多都说是打包时没有把一些相关控件打包进去!但还是不知道具体该怎么做! ...
  • 我用VB执行DOS命令,生成文本文件随即打开 但是由于文本文件生成需要一段时间, 还未等文件生成完毕VB就打开了这个...代码如下: Shell "cmd /c dir /s /b e:/ dir.txt" Open "dir.txt" For Input As #1 怎么让dir.tx
  • 在程序中有时可能需要控件能在程序窗口拖动,这时就需要拖动控件的代码。我们可以用控件的MouseDown,MouseUp事件实现控件的拖动。例如图1,我们怎么实现窗口中控件PictureBox1的拖动那? ![这里写图片描述]...
  • vb/vb.net开发精粹(22)

    2011-12-03 08:50:40
    为什么我写的程序在VB环境下运行不报错,一编译运行就报错 数据导入EXCEL问题 发个预言贴, 过一年再回来看看是否变现.有兴趣的近来凑热闹~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ excel VBA 怎么代码 指定下拉框的选中...
  • VB问题

    2014-01-24 14:33:55
    今天在机房练习vb,其实就是照着书敲代码,照着书敲完后怎么也不对,试了很多种方法,还是不行,最后问同学,一起探讨了 一会,终于找到了问题的所在,原因是command是复制来的而不是点击两个command.所以我们平时...
  • 译者:我们都知道.NET托管代码如C#、VB.NET写成的代码,都是先被编译成中间语言(IL,Intermediate Language,在运行时,再由即时编译器(JIT,Just-In-Time)编译成本机代码。那么这个神秘的过程是怎么进行的呢,JIT会...
  • 译者:我们都知道.NET托管代码如C#、VB.NET写成的代码,都是先被编译成中间语言(IL,Intermediate Language,在运行时,再由即时编译器(JIT,Just-In-Time)编译成本机代码。那么这个神秘的过程是怎么进行的呢,JIT会...
  • [译].Net 揭密--JIT怎样运行你的代码

    千次阅读 2007-08-19 13:16:00
    方法调用: 第一部分 (普通调用) 译者:我们都知道.NET托管代码如C#、VB.NET写成的代码,都是先被编译成中间语言(IL,Intermediate Language,在运行时,再由即时编译器(JIT,Just-In-Time)编译成本机代码。...

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 138
精华内容 55
关键字:

vb代码怎么运行