这是道VB 题,

来源：学生作业帮助网 编辑：作业帮 时间：2024/09/02 13:21:35
这是道VB 题,
xV[OA+XnBM,J$A%#lwEO@nTo14[1v_piJ|9s9swΜv=d+w3-+gc݆'lw *OI>mV2|֭-ӭVE1'Xĵh@}ŋA6&ImJOJD4xJ0xBO)0L a\FzBLJRSd&%q-  κ-,D VŢc@*@$krR]MI6DC \ݾOջcˋLޛs#4:NG}j4 : qvd7_kK/o~ %!:*}^}ZX+,eׯYe^GY =\Xc/wT,|q=˯#{@_ uQ&d#A Wqa~8k OVꉄw]>8!y>)kt 7>w}FӜHh3ٍ:^NcZ!^`Hβ/ǍƣEe 6jl;odlH_/u,kT{,CmTyDz({0KݮV~tDם{f|MujŪRvMwe=_<\ΦofN俾D )v)n͟enVE~럀^)@[5u0OhdJm-9NhE1p;m5}8ֿǠZ

这是道VB 题,
这是道VB 题,
 

这是道VB 题,
'1、说明-引用"Microsoft Rich Textbox 6.0" 控件,拖入窗体 ,Name=RichTextBox1；添加一个按钮 Name=cmdSearch
'2、注意-使用RichTextbox相对简单一点的做法,如果是普通文本框,复杂一点就要用到 API了
Option Explicit
Private lStart As Long

Private Sub cmdSearch_Click()
    Dim s As Long
    With RichTextBox1
        If lStart = 0 Then
            lStart = .Find("VB", 0, , rtfNoHighlight)
        Else
'            .SelColor = vbBlack
'            .SelFontSize = 9
'            .SelBold = False
            lStart = .Find("VB", lStart + 2, , rtfNoHighlight)
        End If
        If lStart < Len(.Text) - 1 Then
            .SelStart = lStart
            .SelLength = 2
        Else
            MsgBox "搜索完成"
        End If
'        .SelItalic = True
'        .SelBold = True
'        .SelColor = vbRed
'        .SelFontSize = 10
    End With
        
End Sub

Private Sub Form_Load()
    RichTextBox1.Text = "123VB456VB789VB"
    RichTextBox1.Font.Size = 9
    RichTextBox1.HideSelection = False
End Sub

这是道VB 题, VB题, VB题做一下 VB题,写出运算结果! VB运算题求解释 VB中冒号加等号是什么意思如题 ：参数传递?请别带VB术语说,本人不懂VB. 求一道VB题第一道选择题 VB循环结构的一道题 电脑VB这题怎样做 VB改错 题在图中 VB,请解释第五小题 这道VB题怎么解.任务4 VB 求这个题的解 VB题,大学VB 第27题,这道题我主要是不会A和B项,这道题考什么VB题, 大学VB 第27题,这道题我主要是不会A和B项, VB高手帮帮学弟, 真诚相待! VB题,大学VB 画线部分的C选项,为什么错了.,VB题, 大学VB 画线部分的C选项,为什么错了. , VB高手帮帮学弟, 真诚相待! VB题,尤其是20题!红色是答案,好人好报啊! vb题：求两个整数的最大公约数和最小公倍数 VB编程题,对于任2个整数,求其最大公约数