精华内容
下载资源
问答
  • VB如何实现打印大字体!
  • input其后能够跟变量列表,也就是能够将内容分别赋值给几个变量,在文本中用逗号分隔开,也就是说,文本中第一个逗号(英文半角逗号)之前的给变量列表里面的第一个变量,第一个逗号之后,第二个

    由于学习到了文件系统编程,特此做记录:

    Input和Line Input都是用于读取文件内容,并将其赋值给变量,其作用在笔者看来是差不多的,区别主要是:

    input语句语法:

    input 文件号,变量列表
    input其后能够跟变量列表,也就是能够将内容分别赋值给几个变量,在文本中用逗号分隔开,也就是说,文本中第一个逗号(英文半角逗号)之前的给变量列表里面的第一个变量,第一个逗号之后,第二个逗号之前的给变量列表里面的第二个变量。代码如下:


    input还有一个特点,就是引号包裹的字符串不会把引号读取进来,只会读取里面的字符串(英文半角引号)

    以上是书上介绍的,但是经过笔者亲测input语句还有一个特点:顺序文件里面出现多行的时候(每一行都没有英文半角逗号)就会把一行的内容赋值给变量列表里面的一个变量。代码如下:



    Line input语句语法:

    Line input #1,变量

    其功能和input语句差不多,但是line input语句是读取一行数据,并赋值给变量,此处后面跟的变量是变量,不是变量列表,如果要读取多行,需使用多个line input语句。并且会把文档中有引号包裹的字符串连引号一起输出出来:


    还有一点需要注意,既然input语句和line input语句都是用于读取文件内容并赋值,那么,其打开模式得用读取方式,如:input


    input函数:

    input函数语法:input(需要读取的字符数,文件号)

    既然是函数肯定有返回值,返回值为文件号对应的字符数,这里需要注意的是当遇到换行的时候会把每一次换行当成是两个字符来读取,我也不知道是为什么。代码如下:


    如上例,文本中的第一行明明是10个字符,但是当笔者设置读取12个字符的时候读取到的还是那10个字符,只有当改成读取13个字符的时候才会读取下一行的引号,具体我也不清除是为什么。

    关于input与line input语句还有一个重要的共同点,打开模式都必须为读取形式,就是用input方式打开。



    print与write

    print与write都是用于对文件写入,所以其打开模式都必须为写入方式如:output/append

    print语句语法:print 文件号,写入内容

    该处的写入内容可以是变量,也可以是具体的内容,案例如下:


    当然,用print语句也可以一次写入多个内容:


    大家应该发现了引号不会写入,这也是print语句与write语句最大的区别,下面说write语句。


    write语句语法:write 文件号,写入内容

    代码如下:


    大家应该观察到区别了,引号会一起写入,并且写入的多个数据之间会自动用英文半角逗号分隔。

    展开全文
  • Python里的print用法总结

    千次阅读 2014-12-16 23:11:19
    在Python中实现命令行输出的函数是print(类似C语言中的printf,或者C++中的cout),但是要格式化print的输出,其实还是需要很多技巧的,本帖主要总结在Python中使用print的一些方法

    在Python中接受来自用户的输入很简单,可以使用input,它类似于C语言里的 scanf 或者C++中的 cin。

    >>> x = input("Please input x:")
    
    Please input x:10
    
    >>> print(x)
    10

    用于输出的print,其一般用法是比较 straightforward 的,就像上面的print(x)那样,对于一个已知的对象(无论什么类型),Python都能自行输出。


    一个比较tricky的问题是,如何做“格式化”输出。方法跟C语言差不多,也是使用%,但是变量之前还要再写一个%,这个跟C语言里面略有不同(C里面还需要一个逗号)。来看一些例子:

    >>> a = 10
    
    >>> print("The value is %d" %a)
    The value is 10
    
    >>> print("The value is %d" %10)
    The value is 10
    
    >>> s = 'hello'
    >>> x =
    展开全文
  • VB中输入和输出数据的总结

    万次阅读 2011-11-29 12:21:33
    VB中的数据输出:   1,使用标签控件(label),  例子:labe1.caption="Visual Bisic(简称VB)是Microsoft推出的基于Windows操作系统环境下的软件开发工具。"  2,使用print方法,  print方法用于在窗体(form...

    VB中的数据输出: 

        1,使用标签控件(label),

                例子:labe1.caption="Visual Bisic(简称VB)是Microsoft推出的基于Windows操作系统环境下的软件开发工具。"

        2,使用print方法,

                print方法用于在窗体(form),立即窗口(Debug),图片框(picturebox)或打印机(printer)等对象中显示或打印输出字符串或表达式的值。

              语法格式:

                         [<对象名称>.]print[<表达式列表>][,/;]

          注意事项:  1,print方法具有计算和输出的双重功能,先计算表达式的值后输出。

                                2,当输出多个表达式时,个表达式之间用逗号“,”或分号“;”隔开。前者按标准格式输出,既每隔14列为一   个输出区;后者是紧跟着前一项输出。

                                3,为了使上下两个print语句输出内容显示在同一行上,则需要再上一个print语句的最后加上逗号或者分号。

               例子:

                                           对应输出的结果:

                         

                                 4,与print方法有关的函数

                                                <1>,tab函数。在print方法中,可以使用Tab函数对输出的结果进行定位。格式:Tab(n),它用来指定表式输出的起始列号。

                                               <2>,spc函数,在print方法中,用spc函数跳过n列。格式:spc(n),其中n是在显示或打印下一个表达式之前插入的空格数。  例子:

                                      对应输出的结果:

                 

        3,使用信息框函数(msgbox)

             msgbox函数的使用格式:

                               <变量名>=msgbox(<提示信息>[,<对话框类型>[,,<对话框标题>]])

         对应属性的使用:

                             

    

    常量值

    说明

    vbOKOnly

    0

    只显示“确定”按钮(缺省值)

    VbOKCancel

    1

    显示“确定”和“取消”按钮

    VbAbortRetryIgnore

    2

    显示“终止”、“重试”和“忽略”按钮

    VbYesNoCancel

    3

    显示“是”、“否”和“取消”按钮

    VbYesNo

    4

    显示“是”和“否”按钮

    VbRetryCancel

    5

    显示“重试”和“取消”按钮

    VbCritical

    16

    显示“关键信息”图标

    VbQuestion

    32

    显示“问号”图标

    VbExclamation

    48

    显示“警告消息”图标

    VbInformation

    64

    显示“通知消息”图标

    vbDefaultButton1

    0

    第一个按钮是缺省值(缺省设置)

    vbDefaultButton2

    256

    第二个按钮是缺省值

    vbDefaultButton3

    512

    第三个按钮是缺省值

    vbDefaultButton4

    768

    第四个按钮是缺省值

    vbApplicationModal

    0

    应用程序强制返回;应用程序一直被挂起,直到用户对消息框

    作出响应才继续工作

    vbSystemModal

    4096

    系统模式:在用户响应消息框前,所有应用程序都被挂起。

    vbMsgBoxHelpButton

    16384

    Help按钮添加到消息框

    VbMsgBoxSetForeground

    65536

    指定消息框窗口作为前景窗口

    vbMsgBoxRight

    524288

    文本为右对齐

    vbMsgBoxRtlReading

    1048576

    指定文本应为在希伯来和阿拉伯语系统中的从右到左显示

    对应输出的结果:

     

     

    VB中的数据输入

                   1,使用文本框控件(textbox)输入数据;

                   2,使用输入框函数(inputbox),语法格式:

                       变量名=inputbox(<提示内容>,[<对话框标题>],[<默认值>])

    例子:

              对应输出的结果:

                   这些是VB中一些和输入输出有关的控件,函数,也是我们学习VB最需要掌握的基础知识。

     

     

     

    展开全文
  • VB复习§1、VB的特点、运行环境、对象、属性、方法、事件各概念,尤其是方法和事件的区分。熟悉VB的IDE,VB开发应用程序的一般步骤。特点:GUI(集成开发环境)、OLE(对象的连接和嵌入)、OOP(面向对象);运行环境:...

    VB复习

    §1、VB的特点、运行环境、对象、属性、方法、事件各概念,尤其是方法和事件的区分。

    熟悉VB的IDE,VB开发应用程序的一般步骤。

    特点:GUI(集成开发环境)、OLE(对象的连接和嵌入)、OOP(面向对象);

    运行环境:Windows(VB5.0以上在32位操作系统)

    方法:对象可以执行的动作或行为;(主动性)

    事件:使某个对象进入活动状态的一种操作或动作。(被动性)

    例题:

    1、VB的使用目的是(     )。

    A.开发Windows应用程序B.图象处理

    C.制作WAV文件D.文字处理

    2、一个对象可以执行的动作和可被对象识别的动作分别称为(     )。

    A.方法、事件B.事件、方法C.方法、属性D.事件、属性

    3、一只白色的足球被踢进球门,则白色、足球、踢、进球门是(    )。

    A.属性、对象、方法、事件B.属性、对象、事件、方法

    C.对象、属性、方法、事件D.对象、属性、事件、方法

    §2、熟练应用窗体、控件。掌握窗体的常用方法(Hide、Show、Print、Cls、Refresh、Move)、属性和事件(Load、Activate、Click)。

    Load事件、Unload事件、End语句

    常用控件:CommandButton(Default、Cancel、Enabled、Style、

    DisabledPicture、DownPicture)、Label(AutoSize)、TextBox(Alignment、MaxLength、PasswordChar、Multiline、ScrollBars注:Multiline=True)、OptionButton(Value)、ListBox(属性:list\listcount\listindex\selected、方法:AddItem、RemoveItem、Clear)、ComboBox(P27)、HscrollBar、VscrollBar(min、Max、Value)、PictureBox(print方法)、Timer(运行时不可见、只有Timer事件、Interval)方法、属性、事件的掌握。

    容器控件:Form、Picture、Frame特殊控件:菜单的使用(只响应Click事件)

    1、以下窗体名中哪些是非法的窗体名(    )。

    对象名命名规则:以字母或汉字开头,后面可以是字母、数字、下划线、汉字。(变量名类似)

    A._aformB.3frmC.f_1D.frm 5E.f_1*

    2、一个名称为myfrm,标题属性为form1的窗体,它的单击事件名应为(    )。

    A.myfrm_clickB.form1_click

    C.form_clickD.me_click

    3、执行下面语句:print “5*20”的结果是(     )。

    A.“5*20”B.出现错误信息C.5*20D.100

    4、下列语句代码哪一些可正常执行(正常执行是指系统不给出出错提示);

    A、Print 32765 + 3B、Print 5 + 7 = 14

    C、Print 256 / 128D、Print "14" + 12    E、Print "14" & 12

    5、以下使用方法的代码中,正确的是(    )。

    A、Label1.SetfocusB、Form1.Clear

    C、Text1.SetFocusD、Combo1.Cls

    6、在程序中可以通过复选框和单选按钮的(    )属性值来判断他们的当前状态。

    A.CaptionB.ValueC.CheckedD.Selected

    7、将复选框的Value属性设为"2",其效果与把它的Enabled属性设为"False"有何异同?若把一个控件的Visible属性设为"False",意味着什么?

    8、当用户单击命令按钮时,(    )属性可以使得命令按钮对激发事件无效。

    A.NameB.EnabledC.DefaultD.Cancel

    9、在文本框Text1和Text2中分别输入35与48,变量S与X分别为字符型与整型,以下赋值语句的执行结果是什么?

    s = Text1.Text + Text2.Textx = Text1.Text + Text2.Text

    s = Text1.Text & Text2.Textx = Text1.Text & Text2.Text

    s = Val(Text1.Text) + Text2.Text

    x = Val(Text1.Text) + Text2.Text

    s = Val(Text1.Text) & Text2.Text

    x = Val(Text1.Text) & Text2.Text

    §6、错误类型:语法、运行、逻辑;调试工具:“本地”、“监视”、“立即”窗口的功能?

    1、下列错误中,哪个在输入代码时系统能够提示(    )。

    A.语法错误B.编译错误

    C.运行错误D.逻辑错误

    §3、1过程与模块

    窗体事件过程

    事件过程

    控件事件过程

    过程

    Sub子过程

    通用过程Function函数过程

    Property属性过程

    窗体模块.frm

    模块标准模块.bas

    类模块.cls

    1、下列模块中哪个是一个工程必须具备的(     )。

    A.窗体模块B.标准模块C.类模块D.用户自定义模块

    2语言基础

    一、书写规范:":"间隔符号、续行符号"_"、注释符号"’"

    二、数据:数据类型、关键字、存储单位、初值。

    数值常量&O (8)    &H(16)

    字符常量""                        命名规则   局部Dim/Static

    常量   逻辑常量变量  作用域     窗体/模块Dim/Private

    日期常量#月/日/年#全局(共有)Public

    符号常量:Const关键字              说明语句Dim a As Single

    例如:1、在窗体或标准模块的通用声明处可以用_______语句定义变量。

    A.Dim、RedimB.Dim、Static

    C.Dim、Private、PublicD.Dim、Private、Static

    注意:在窗体和类模块中,不能将定长字符串、符号常量、数组用Public来定义。

    隐式说明的六个符号:%、&、!、#、@、$

    例:m1&=5*x%\3+x% mod y%和m1&="5*x%\3+x% mod y%"的正确性

    Option Explicit语句功能:强制变量的声明

    例题:

    1、下列字符串中(    )是合法变量

    A.char_1,student,no,a1234B.exp,123a,x*y

    C.x\y,x>yD.end,lbcx

    三、运算符与表达式

    算术      ^→-(负号)→*、/→\→Mod→+、-→&

    例如:8\4*-2+1

    关系

    逻辑Not→And→Or→Xor

    注意:代数表达式与VB表达式的转换。

    例如:ex+y+|x+y|

    2π+1

    四、VB公共函数

    算术:Sqr、Log、Exp、Abs、Rnd、Sin、Cos

    字符:Len、left、Right、Mid、Ucase、Lcase、Ltrim、Rtrim、Trim、Instr、String、Space

    转换:Str、Val、Chr、Asc、Int、Cint

    日期:Date、Time、Now、Year、Month、Day、Week、Day

    例如:

    1、设s1,s2均为字符串变量,s1=”Visual Basic”,s2=”b”,则下面关系表达式中结果为True的是(    )。

    A.Mid(s1,8,1)>s2B.Len(s1)<>2*Instr(s1,”l”)

    C.Chr(66) & Right(s1,4)=”Basic”

    D.Instr(Left(s1,6),”a”)+60>Asc(Ucase(s2))

    2、求出下列表达式的运算结果;

    A.Mid("visual basic", 1, 12) = Right("Programming language visual basic", 12)

    B."ABCRG" >= "abcde"C.Int(134.69) >= CInt(134.69)

    D.78.9 / 32.77 <= 97.5 / 43.87 And -45.4 > -4.98

    E.Str(32.345) = CStr(32.345)

    3、VB只有求自然对数的函数Log(x),如果计算式中需要使用常用对数或以2为底的对数,应如何处理?(使用换底公式)

    ----------------------------------------------------------------------

    §4、算法概述

    算法特征:确定、可行、有穷、输入、输出

    算法结构:顺序、分支、循环

    ①分支结构

    1、If e then AIf e then

    等价于A

    End If

    2、

    例如:1、if语句:

    Private Sub Form_Click()

    Dim x As Integer, y As Integer

    Dim z As Single

    x = 0.2

    y = 1

    If (x >= 1) Then

    z = Log(x)

    ElseIf x >= 0 And x = 0 Then

    z = 2 * x - y

    Else

    z = Exp(x + y)

    End If

    Print "z=" + Str(z)

    End Sub

    结果:z=-1

    2、Select  Case语句

    Private Sub Form_Click()

    Dim ch As String, i As Integer

    ch = "c"

    Select Case ch

    Case "A", "a"

    i = 1

    Case "B", "b"

    i = 2

    Case "C", "c"

    i = 3

    Case "D", "d"

    i = 4

    Case Else

    i = 5

    End Select

    Print "运行结果" +Ucase(ch)+ Str(i)

    End Sub

    结果:运行结果C3

    ②循环结构

    1、For------Next       (循环次数的计算)

    特例:

    例如:有循环:for I=n1 to n2 step n3下列哪些语句会影响循环次数(   )

    A.n1=n1+I

    B.n3=2*n3

    C.n2=n2+n3

    D.I=I+n3

    2、Do------Loop        (While,Until)

    例如:运行下面的程序,单击窗体后在窗体上的内容是(   );若将程序中的A语句与B语句的位置互换,再次执行程序,单击窗体后在窗体上显示的内容是(  )

    Private Sub Form_Click()

    Dim a As Integer, b As Integer

    a = 0: b = 0

    Do While a <= 8

    a = a + 2           'A语句

    b = b + a * a       'B语句

    Loop

    Print a, b

    End Sub

    例如:窗体上显示的结果:

    Private Sub Form_Click()

    Dim p As Integer, i As Integer, n As Integer

    p = 2: n = 20

    For i = 1 To n Step p

    p = p + 2

    n = n - 3

    i = i + 1

    If p >= 10 Then Exit For

    Next i

    Print i, p, n

    End Sub

    五、InputBox函数

    MsgBox函数    (注意参数含义及顺序)

    x=InputBox(_____,______,_______)

    写出显示下图信息框的MsgBox函数

    §5、数组

    1、数组的上、下界:Ubound()、Lbound()2、数组的大小的计算、数组的结构:(二维数组:以列存放)3、Erase语句:重新初始化静态数组的元素、或释放动态数组的存储空间。4、For Each –Next结构语句5、用Array函数给数组赋值(只能给Variant类型的变量赋值)6、控件数组(load/Unload Object(Index))

    动态数组      (Redim语句)

    数组分类:

    固定大小数组Option Base语句功能

    Preserve语句功能

    例如:

    n数组重点算法:

    n一数组,求其中最大和最小;n对一数组排序(选择法、冒泡法、直接排序法)

    n在一数组中查找指定的数(顺序、二分查找);n删除一数组中重复的数

    2、在窗体模块的通用声明处用下面的语句声明变量、数组、正确语句有(    )个。

    A.Public a(5) as integerB.Public n as integer

    C.Public st as string*10D.Private b() as integer

    3、下列语句中的(    )语句可以用来正确地声明一个动态数组。

    A.Private A(n) as integerB.Dim A() as integer

    C.Dim A(,) as integerD.Dim a(1 to n)

    4、下列关于数组的说法中正确的是(    )。

    A.在过程中,不能用private语句定义数组

    B.利用Redim语句重新定维时,不得改变已经说明过的数组的数据类型。

    C.数组重新定维后,原有的数据元素内容将不予保留

    5、过程的形参为数组时,以下定义语句中正确的是(        )。

    A.private sub sort(a() as integer)

    B.private sub sort(a(10) as integer)

    C.private sub sort(a(,) as integer)

    D.private sub sort(byval a() as integer)

    6、某过程的说明语句中,正确的数组说明语句是______。

    Const N As Integer=4  :Dim L As Integer

    ①Dim x(L) As Integer

    ②Dim A(K) As Integer

    Const K As Integer=3

    ③Dim B(N) As Integer

    ④Dim Y(2000 To 2008) As Integer

    A.①②④B.①③④C.③④D.②③

    §8、过程与函数

    子过程

    函  数

    注意:

    F按值传递参数

    形参和实参的类型不一定要统一,VB自动进行数据的转换。

    –例如:Private Sub Form_Click()

    Dim a As String :    a = 2

    Call sub1(a)

    Print a

    End Sub

    Private Sub sub1(ByVal b As Integer)

    b = b + 1    :   Print b

    End Sub

    F按地址传递参数

    –当实参是变量时:如果形参规定了类型,则实参必须跟形参保持一致

    如果形参没有规定类型,则VB按要求进行数据类型转换

    –当实参是常量或表达式时:

    VB自动用“按值传递”的方式进行处理,如果数据类型不统一,VB自动进行数据转换

    例如:1、在应用程序中用“Private function Fun(X as integer,Y as single)”定义了函数Fun。调用函数Fun的过程中的变量I、J均为Integer型,能正确引用函数Fun的是(      )

    A.Fun(I,J)     B.Call Fun(I,3.56)C.Fun(3.14,234)D.Fun("245","231.5")

    2.程序中的不同过程之间,不能通过_________进行数据传递。

    ①全局变量②窗体或模块级变量③形参与实参结合④静态变量

    A.①②④B.①②③C.②④D.④

    二级考试必考题型:(课后习题)

    传值传地址Static变量同名变量递归过程

    例如:

    1、以下有关变量作用域的说法中,错误的是(    )

    A.只有在标准模块中用public语句说明的变量才是全局变量

    B.在过程中不能使用public语句说明全局变量

    C.在标准模块的通用声明处可用private语句说明模块级变量

    D.在窗体的通用声明处可用private语句说明窗体级变量

    2.一个名为frm1的窗体,在窗体通用声明处和过程sub1中分别定义:public k as integer、dim k as integer如何在sub1中访问全局变量k(     )

    A.frm1.kB.form.kC.form1.kD.k

    例:阅读程序,给出输出结果:

    (1)字符串处理(数组参数)

    Option Base 1

    Private Sub Form_Click()

    Dim st As String, char As String

    Dim data() As String, i As Integer, j As Integer

    st = "10281018123811181038"

    For i = 1 To Len(st)

    If Mid(st, i, 1) <> "8" Then

    char = char & Mid(st, i, 1)

    Else

    j = j + 1

    ReDim Preserve data(j)

    data(j) = char

    char = ""

    End If

    Next i

    Call conver(data, char)

    Print char

    End Sub

    PrivateSub conver(a() As String, ch As String)

    Dim i As Integer, j As Integer

    Dimn As Integer, dec As Integer

    For i = 1 To UBound(a)

    n = Len(a(i))

    For j = 1 To n

    dec = dec + Val(Mid(a(i), j, 1) * 8 ^ (n - j))

    Next j

    ch = ch & Chr(dec)

    dec = 0

    Next i

    End Sub

    (2)static变量

    Private Sub Command1_Click()

    Dim n As Integer, i As Integer

    n = 2

    For i = 9 To 1 Step -1

    Call sub2(i, n)

    Print i, n

    Next i

    End Sub

    Private Sub sub2(x As Integer, y As Integer)

    Static n As Integer

    Dim i As Integer

    For i = 3 To 1 Step -1

    n = n + x

    x = x - 1

    Next i

    y = y + n

    End Sub

    (3)递归

    Private Sub Command1_Click()

    Dim a As Integer

    a = 2

    Call sub1(a)

    End Sub

    Private Sub sub1(x As Integer)

    x = x * 2 + 1

    If x 

    Call sub1(x)

    End If

    x = x * 2 + 1

    Print x

    End Sub

    (4)递归

    Private Sub test(x As Integer)

    Dim i As Integer

    If x <> 0 Then

    Call test(x - 1)

    For i = 1 To x

    Print x;

    Next i

    Print

    End If

    End Sub

    Private Sub Form_Click()

    test 3

    End Sub

    (5)同名变量

    Dim y As Integer

    Private Sub Form_Click()

    Dim x As Integer,y as integer

    x=1 : y=1

    Print"x1=";x,"y1=";y

    Test

    Print"x4=";x,"y4=";y

    End Sub

    Private Sub Test()

    Dim x As Integer

    Print"x2=";x,"y2=";y

    x=2 : y=3

    Print"x3=";x,"y3=";y

    End Sub

    特例:

    1、运行程序在窗体显示的结果是:

    Private Sub Form_Click()

    Dim a As Integer, b As Integer

    a = 3: b = 4

    Call sub1(a, a)

    Print a, b

    Call sub1(b, b)

    Print a, b

    End Sub

    Private Sub sub1(x As Integer, y As Integer)

    x = x + 2

    y = x + y

    End Sub

    2、运行程序单击窗体,在窗体上显示的内容是:16  20

    Private Sub Form_Click()

    Dim n As Integer, m As Integer

    n = 1: m = 2

    Print n + m + f(n, m) ;

    '优先执行f函数,n,m变化后再运算“+”

    n = 2: m = 1

    Print f(n, m) + f(m, n)

    'n,m第一次变化后,第二次以变化后的值再调用

    End Sub

    Private Function f(n As Integer, m As Integer)

    n = n + m

    m = m + 3

    f = n + m

    End Function

    3、执行下面的程序,在窗体上显示的输出结果是______;如果将A语句改成:Call sub1(b+1,a),则在窗体上显示的输出结果是______。

    Private Sub Form_Click()

    Dim a As Integer, b As Integer

    a = 1:   b = 2

    Call sub1(a, b)       'A

    Print a, b

    End Sub

    Private Sub sub1(x As Integer, ByVal y As Integer)

    x = x + y

    y = x + y

    End Sub

    §7、文件管理控件

    文件处理    顺序文件和随机文件的打开(open)语句,EOF函数,读写语句。

    do while not eof(1)do until eof(1)

    print #1,write #1,

    input #1,a,b,cline input #1,sinput(#1,100)

    get #1,aput #1,”af”

    打开方式:

    顺序文件Open"文件路径+文件名(包括文件后缀)"ForOutputAs#1-511

    Open"文件路径+文件名(包括文件后缀)"ForAppendAs#1-511

    Open"文件路径+文件名(包括文件后缀)"ForInputAs#1-511

    随机文件:Open"文件路径+文件名(包括文件后缀)"ForRandomAs#1-511二进制文件:Open"文件路径+文件名(包括文件后缀)"ForBinaryAs#1-511

    Open语句打开文件的注意:

    1.如果以Output、Append、Random、Binary模式打开一个不存在的文件时,VB自动创建一个相应文件;

    2.在Input Random Binary模式下,可以用不同的文件号打开同一文件,但Output Append方式不可以;

    3.所有当前使用的文件号必须是唯一的;

    4.如果以Output模式打开一个已存在的文件,即使没有进行写操作原来数据也将被覆盖。

    Close语句注意:(Reset)

    1.直接使用Close语句(缺省文件号),则所有用Open语句打开的活动文件都被关闭;

    2.当程序结束时,所有打开的文件自动被关闭。

    Lock和Unlock语句注意:

    1.对于二进制文件,Lock和Unlock的是字节范围;

    2.对于随机文件,Lock和Unlock的是记录范围;

    3.对于顺序文件,Lock和Unlock的是整个文件,即使指明范围也不起作用;

    4.缺省情况下Lock和Unlock的范围是整个文件;

    5.Lock和Unlock总是成对使用。

    特别注意:在关闭文件或结束程序之前,必须用Unlock语句对先前锁定的文件解锁,否则会产生难以预料的错误。

    1.要对顺序文件进行写操作,下列打开文件语句中正确的是(    )。

    Open"file1.txt"for output as #1Open"file1.txt"for input as #1

    Open"file1.txt"for Random as #1

    Open"file1.txt"for binary as #1

    2.在VB中文件访问的类型有(   )。

    A.顺序、随机、二进制B.顺序、随机、字符

    A.顺序、十六进制、随机D.顺序、记录、字符

    例如:将文件Data1中的无序数据和Data2中的有序数据插入到Data3中,要求:Data3中的数据必须也是排好序。请填写空白处以实现该题功能。

    Private Sub Form_Click()

    Dim a() As Integer, b() As Integer

    Dim k As Integer, i As Integer

    Open "e:\data1.txt" For Input As #2

    Open "e:\data2.txt" For Input As #3

    Do While Not EOF(2)

    k = k + 1

    ReDim Preserve a(k)

    Input #2, a(k)

    Loop

    _______k=0______________________

    Do While Not EOF(3)

    k = k + 1

    ReDim Preserve b(k)

    Input #3, b(k)

    Loop

    Call insert(a, b)

    Open "e:\data3.txt" For Output As #4

    _k=ubound(b)____________________________

    For i = 1 To k

    Print #4, b(i)

    Next i

    Close

    End Sub

    Private Sub insert(a() As Integer, b() As Integer)

    Dim m As Integer, i As Integer

    Dim n As Integer, j As Integer

    m = UBound(a): n = UBound(b)

    _redim preserve b(m+n)_______________________

    i = 0

    Do While i 

    i = i + 1

    j = n

    Do While j >= 1 And a(i) 

    If a(i) 

    ___b(j+1)=b(j)_______________________

    j = j - 1

    Else

    Exit Do

    End If

    Loop

    __b(j+1)=a(i)___________________________

    n = n + 1

    Loop

    End Sub

    §9.鼠标方法、文本、图形及多媒体处理

    (1)常用鼠标方法(MouseDown, MouseUp,MouseMove)(2)数据输出的格式化处理(Format函数)(3)图形控件Line、Shape使用画点(Pset)、线(Line)、圆(Circle)

    例如:在Form_Click事件中执行如下语句的正确结果是(   )。

    Print Format(1236.54,“+##,##0.0%”)

    A.123456   B.+123,654.0%   C.+123,6.54%   D.+123,654

    §10.数据库

    1.计算机数据管理的三阶段:

    人工管理—>文件管理—>数据库管理

    2.数据模型:

    层次模型(树型结构)—>网络模型(无向图形)—>关系模型(二维关系表)

    3.数据控件(Data)的重要属性:

    Conncet:确定数据访问类型(Access(缺省值)\dbase\Foxpro)

    DatabaseName:确定数据控件使用的数据库

    Access表包含“.mdb”的文件中,该属性值就是:.mdb

    dbase\Foxpro数据库时,该属性值是:包含数据库文件的路径

    RecordSource:确定访问数据表的名称

    4.常用的绑定控件:标签、文本框、检查框、组合框、列表框、图片框、图象控件、DBCombo、Dblist、DBGrid

    常用属性:DataSource:指定一个数据控件(Data控件)

    DataField:指定显示的数据表的哪一字段。

    展开全文
  • VB程序设计练习题

    千次阅读 多人点赞 2021-05-15 14:03:35
    这是我备考技能考的一些VB练习题。(难度稍微有点大哦) 想要更多VB练习题点击我的头像,看我发表我文章就可以看到了。 答案是小编自己写的,也许会有错。 内容 一、明文密文转换。 在上面的文本框中输入的英文...
  • 用datagrid控件,下面是一篇控件使用方法,你可以看看使用 DataGrid 控件DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一... 本文来自-编程入门网: http://www.bianceng.cn/Programming/vb/200705/550.htm
  • Option Explicit OnOption Strict OnImports System.ThreadingPublic Class Printer' Lock ...锁标记Private threadLock As Object = New Object()Public Sub PrintNumbers()SyncLock threadLockConsole.WriteLine("...
  • Print a(1, j - 3) ElseIf i >= 6 Then a(2, j - 6) = Val(Text1(j).Text) Print a(2, j - 6) End If Next j Next i For i = 0 To 2 x(i) = Val(Text3(i).Text) b(i) = Val(Text2(i).Text) Next i...
  • 如何用VB编程输出杨辉三角?

    千次阅读 2021-02-11 14:16:03
    展开全部VB代码:Option Base 1Private Sub form_click()Const n=10Dim arr(n,n)As IntegerFor i=1 To narr(i,i)=1arr(i,1)=1Next iFor i=3 To nFor j=2 To i-1arr(i,j)=arr(i-1,j-1)+arr(i-1,j)Next jNext iFor i=1...
  • VB图形控件pictureBox和Image控件

    千次阅读 2020-09-16 10:39:02
    PictureBox和Image控件都属于图形控件,可以为用户显示图片和图形。两者之间既有相似又存在区别。本节课程将带领小伙伴们学习掌握这两个控件。 PictureBox控件 ...PicturBox作为少有的可以使用print
  •  Debug.Print Hex$(lHwnd)  Loop End Function Private Sub Form_Unload(Cancel As Integer)  Call DestroyWindow(m_Hwnd)  'TerminateProcess GetCurrentProcess, 0 '野蛮了些  Set Form1 = Nothing End ...
  • vb 导出整数 科学计数法Problem statement: 问题陈述: Given two positive integer n and m, find how many arrays of size n that can be formed such that: 给定两个正整数n和m ,找出可以形成多少个大小为n的...
  • VB程序设计练习题(一)

    千次阅读 2021-05-09 13:48:34
    VB程序设计练习题(一) 文章目录 目录 前言 内容 1、十进制转二进制数 2、程序实现功能:小明过年要给他的40位同学各寄一张贺卡,贺卡的价格有3元、2元和1元三种,他一共有100元,怎样购买正好把钱用完。把...
  • Debug.Print("command:") '启动参数中每个空格被解释为一行 For Each cmd In CommandLine Debug.Print(cmd) Next End Sub 7、完成。 所以,上面这个代码干了什么呢? 1、“生成单个实例应用程序”导致MyApplication_...
  • VB if多条件语法

    万次阅读 2017-09-11 16:59:10
    VB if多条件语法基本格式If [判断条件] Then [执行语句] ElseIf [判断条件] Then [执行语句] Else [执行条件] End If '跳出If判断 假设A条件是a=1、B条件是b=1以此类推 c=1 d=1 假设执行某某1和2分别是 MsgBox ...
  • 从零开始学vb6

    2021-03-21 11:22:37
    除大学里面学过些C语言基础以及工作后用Excel时接触过些vba外,再无其他编程语言学习。为尽量和现在知悉的vba基础契合,决定找本书系统的学一下vb6.0,按参考书章节记录下学习中的代码片段及认识。 参考书:《Visual...
  • VB初步入门

    2020-09-20 11:31:04
    VB 入门记录(一) 一、Visual Basic 界面简介 打开题目进入界面是这个样子的 ​ 图一 我们的题目信息在这里 ​ 图二 然后当你双击那个产生按钮的时候 ​ ...
  • [原创]VB6反编译详解(一)2006-7-9 16:5923171[原创]VB6反编译详解(一)2006-7-9 16:5923171VB6反编译详解 by Kenmark-Fenix**************************************************最新于2006-7-13更新!***************...
  • VB6.0使用汇总一

    2019-04-04 20:19:50
    2)退出VB6.0时显示Visual Basic已经停止工作 二、软件的使用 1、VB输出可执行文件或安装包 2、ComboBox 控件的使用 3、MsComm串口控件 1)MsComm控件的添加 2)MsComm控件的事件及基本属性 4、添加引用无...
  • VB期末考试题库及答案试卷方案:201105 Visual Basic期末考试方案一、单项... 若将Frame的Enabled属性设置为False,则不能使用放置在Frame里面的控件C. 对象的Name属性在运行时不能改变D. 对象的所有属性都可以在...
  • VB学习笔记(VB语言)

    2020-12-19 05:14:55
    Print “a=2”Case ElsePrint “a does not equal to 1 or 2.”End Select五、循环语句循环结构是计算机语言里一种重要的结构,它的应用广泛,最简单的例子是累加器的作用,还可以用于穷举法,更直观的例子是把某件...
  • double类型的精度确实是可定义类型中最高的,但 有效数字 为15或16位 另一种Decimal 数据类型有效位可达到28或29位,但不含指数位 ... Print y 转载于:https://www.cnblogs.com/argent/p/5415612.html
  • 简单易懂,不忍删章去节,作为引32313133353236313431303231363533e4b893e5b19e31333262373935子:Access数据库与ADODB编程入门即然已经了解了那些数据库中的基本概念,那么我们就只说说在VB中使用数据库编程首先有...
  • 利用VB操作Excel

    千次阅读 多人点赞 2019-02-13 09:50:17
    VB操作Excel详解 一、 VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: 1、在工程中引用MicrosoftExcel 类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel ...
  • FStr = FStr & MyString & Chr(13) & Chr(10) Loop Close #1 Dim L As Integer Dim M As Integer L = InStr(FStr, "User Id") M = InStr(L, FStr, vbCrLf) Print "User Id = "; Mid(FStr, L + 8, M - (L + 8)) L = ...
  • 转载利用VB生成APDL文件和Python文件的方法作者:李涛欢迎关注:CAE技术分享专注于CAE技术的分享和讨论。1、 概述Visual Basic作为一种可视化程序设计语言,应用相对简单,是目前使用最多的程序设计语言之一。利用VB...
  • VB程序设计—For循环结构

    千次阅读 2020-04-20 18:52:47
    Dim i as Integer Dim j as Integer i=1:j=1 For i=1 to 9 For j=1 to i '注意一行里面输出的列的个数不能超过行的个数;所以终值是i所以第一个循环跟第二个的循环次数相同 Print i & "*" & j & "=" & i * j;space...
  • 1270 Print "X="; IX * DX, 1280 IX = IX + 1 1290 Input #"Elev.=", Y(K) 1300 Rem Compute slope input 1310 If IX (IX) = Y(K) 1320 If IX 1330 YP = (Y(K) - Y(1)) / BL 1340 For J = 2 To K 1350 Y(J ...
  • vb连接mysql

    2021-01-18 19:43:58
    环境:xp+vb6+mysql-5.6.13-win32+mysql-connector-odbc-5.2.5-win32一、首先要下载mysql,其次要下载mysql的odbc驱动。odbc驱动的安装很简单,双击就可执行。mysql不用安装,解压就行。但它的服务的启动比较麻烦,...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,586
精华内容 2,234
关键字:

vb里面print