VB的代码应该怎么写

1.vb代码怎么写

Private Sub Command1_Click()

Text1.Text = Replace(Text1.Text, [要查找的字符], [要替换的字符])

End Sub

'--------------------------------

'Replace函数

'描述

'返回一个字符串,该字符串中指定的子字符串已被替换成另一子字符串,并且替换发生的次数也是指定的。

'语法

'Replace(expression, find, replacewith[, start[, count[, compare]]])

'Replace函数语法有如下几部分:

'部分 描述

'expression 必需的。字符串表达式,包含要替换的子字符串。

'find 必需的?要搜索到的子字符串?

'replacewith 必需的?用来替换的子字符串?

'start 可选的。在表达式中子字符串搜索的开始位置。如果忽略,假定从1开始。

'count 可选的。子字符串进行替换的次数。如果忽略,缺省值是 –1,它表明进行所有可能的替换。

'compare 可选的。数字值,表示判别子字符串时所用的比较方式。关于其值,请参阅“设置值”部分。

'设置值

'compare参数的设置值如下:

'常数 值 描述

'vbUseCompareOption –1 使用Option Compare语句的设置值来执行比较。

'vbBinaryCompare 0 执行二进制比较。

'vbTextCompare 1 执行文字比较。

'vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。

'返回值

'Replace的返回值如下:

'如果 Replace返回值

'expression长度为零 零长度字符串("")。

'expression为Null 一个错误

'find长度为零 expression的复本

'replacewith长度为零 expression的复本,其中删除了所有出现的find 的字符串。

'start > Len(expression) 长度为零的字符串。

'ount is 0 expression.的复本。

'说明

'Replace函数的返回值是一个字符串,但是,其中从start所指定的位置开始,到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。

2.vb代码怎么写

首先在Combo1的List属性中加入"a","b","c"

Combo1.click事件中加入代码:

ID = Combo1.List(Combo1.ListIndex())

Select Case ID

Case "a"

Text1.Text = "111"

Case "b"

Text1.Text = "222"

Case "c"

Text1.Text = "333"

Case Else

End Select

3.关于vb的程序代码怎么写

'能产生霓虹灯效果的代码'在窗体上添加控件 Picture1、Timer1'在窗体上添加控件 Shape1,并在属性窗口设置 Shape1 的属性 Name=Sha , Index=0'在窗体上添加控件 Combo1,并在属性窗口设置 Combo1 的属性 Name=Comb , Index=0'将以下代码添加到窗体代码中 Dim ctP As Single, ctLei As Long, ctX0 As Single, ctY0 As Single, ctSize As Single Dim ctRefresh As Boolean, ctA As Single, ctB As Single, ctX1 As Single, ctY1 As Single Private Sub Form_Load() Dim I As Long, K As Long Me.Caption = "闪光函数" Set Sha(0).Container = Picture1 Sha(0).Visible = False: Timer1.Enabled = False Picture1.AutoRedraw = True For I = 1 To 3 Load Comb(I): Comb(I).Visible = True Next K = 0 For I = 0 To 19 If I < 10 Then Comb(K).AddItem I & " 个光点" Else Comb(K).AddItem (I - 9) * 10 & " 个光点" Next Comb(K).ListIndex = 10 K = 1 Comb(K).List(0) = "圆" Comb(K).List(1) = "椭圆" Comb(K).List(2) = "正弦" Comb(K).ListIndex = 1 K = 2 For I = 0 To 29 If I < 10 Then Comb(K).AddItem I & " 变速" Else Comb(K).AddItem (I - 9) * 10 & " 变速" Next Comb(K).ListIndex = 15 K = 3 For I = 0 To 9 Comb(K).AddItem I & " 线宽" Next Comb(K).ListIndex = 1 ctRefresh = True Call StartFlash End Sub Private Sub Form_Resize() Dim I As Long, L As Single, T As Single, W As Long, H As Long, Jg As Single Jg = Comb(0).Height * 0.2 T = Jg L = Jg For I = 0 To Comb.Count - 1 Comb(I).Move L, T L = L + Comb(I).Width + Jg Next T = Comb(0).Top + Comb(0).Height + Jg W = Me.ScaleWidth: H = Me.ScaleHeight - T Picture1.Move 0, T, W, H Call SetXY0 End Sub Private Sub SetXY0() ctA = Picture1.ScaleHeight * 0.4 '短轴 ctB = Picture1.ScaleWidth * 0.4 '长轴 Select Case ctLei Case 0, 1 '圆,椭圆 ctX0 = Picture1.ScaleWidth * 0.5 - ctSize: ctY0 = Picture1.ScaleHeight * 0.5 - ctSize Case 2 '正弦 ctX0 = Picture1.ScaleWidth * 0.05 - ctSize: ctY0 = Picture1.ScaleHeight * 0.5 - ctSize ctB = ctB * 1.1 End Select End Sub Private Sub Comb_Change(Index As Integer) Call StartFlash End Sub Private Sub Comb_Click(Index As Integer) Call StartFlash End Sub Private Sub StartFlash() Dim I As Long If Not ctRefresh Then Exit Sub ctLei = Comb(1).ListIndex '函数类型 ctP = 3.1415926 '圆周率 ctY1 = Val(Comb(2).Text) '短轴变换率(半径,位置等) ctX1 = ctY1 I = Val(Comb(3).Text) If I < 1 Then I = 1 If I > 9 Then I = 9 Picture1.DrawWidth = I If I < 5 Then I = 5 ctSize = I * 15 '60 '光点大小 Sha(0).FillColor = 255 '&HFFFFFF Call SetXY0 Timer1.Tag = "1" Timer1.Interval = 25 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Static n As Single, Ci As Long Dim X As Single, Y As Single, S As Single If Timer1.Tag <> "" Then Call LoadSha ctA = ctA + ctY1 If ctA > ctY0 Then ctY1 = -Abs(ctY1) If ctA <= 0 Then ctY1 = Abs(ctY1) ctB = ctB + ctX1 If ctLei = 2 Then '正弦 If ctB > Picture1.ScaleWidth * 0.45 Then ctX1 = -Abs(ctX1) Else If ctB > ctX0 Then ctX1 = -Abs(ctX1) End If If ctB <= 0 Then ctX1 = Abs(ctX1) Picture1.Cls If Val(Comb(3).Text) > 0 Then Call GetXY(0, X, Y) Picture1.PSet (X, Y) For S = 0 To ctP * 2 Step ctP / 270 Call GetXY(S, X, Y) Picture1.Line -(X, Y) Next End If n = n + ctP / 90 '180 If n > ctP * 2 Then n = 0 For I = 0 To Sha.Count - 1 S = n + I * ctP * 2 / Sha.Count If S > ctP * 2 Then S = S - ctP * 2 Call GetXY(S, X, Y) Sha(I).Move X - ctSize, Y - ctSize, ctSize * 2, ctSize * 2 Next' Timer1.Tag = "" End Sub Private Sub GetXY(n As Single, X As Single, Y As Single) Select Case ctLei Case 0 '圆 X = ctX0 + ctA * Sin(n) Y = ctY0 + ctA * Cos(n) Case 1 '椭圆 X = ctX0 + ctB * Sin(n) Y = ctY0 + ctA * Cos(n) Case 2 '正弦 X = ctX0 + n * ctB / ctP Y = ctY0 - ctA * Sin(n) End Select End Sub Private Sub LoadSha() Dim I As Long, S As Long Timer1.Tag = "" S = Val(Comb(0).Text) Sha(0).Shape = 3: Sha(0).Move 0, 0, ctSize, ctSize Sha(0).FillStyle = 0 If S > 0 Then Sha(0).Visible = True Else Sha(0).Visible = False For I = Sha.Count - 1 To 1 Step -1 Unload Sha(I) Next For I = 1 To S - 1 '光点数 Load Sha(I): Sha(I).Visible = True Next End Sub。

VB的代码应该怎么写

转载请注明出处育才学习网 » VB的代码应该怎么写

知识

tableofcontents怎么写

阅读(229)

本文主要为您介绍tableofcontents怎么写,内容包括关于英语Reportwriting怎么写,关于写Report的格式,abstract和introduction的区别是什么。1.结构方面:Report一般由Table of Contents, Executive Summary, Introduction,

知识

shine的过去式怎么写

阅读(206)

本文主要为您介绍shine的过去式怎么写,内容包括teach,write,shine的过去式和过去分词,shine的过去式以及show的过去式,英语单词过去式写出以下单词的过去式lie,shine,stand,sleep,swim,。teach[英][ti:tʃ][美][titʃ]vt.教; 教授; 教导,训练;

知识

playground音标怎么写

阅读(203)

本文主要为您介绍playground音标怎么写,内容包括Playground的音标怎么写,playground的音标,操场的音标怎么写(pleigraund)。playground的音标:英 [ˈpleɪgraʊnd] 美 [ˈpleˌɡraʊnd] n. 游乐场;操场,尤指提供如秋千等设备的户

知识

Joe的音标怎么写

阅读(304)

本文主要为您介绍Joe的音标怎么写,内容包括joe英语怎么读,音标和汉语标注上,Joe英语音标是什么,jill的音标和joe的音标相同吗。joe 英 [dʒəʊ] 美 [dʒoʊ]释义:n. 乔(名) n. 词源 例句用作名词 (n.)The helicopter land

知识

plan过去分词怎么写

阅读(293)

本文主要为您介绍plan过去分词怎么写,内容包括plan的过去式,过去分词,第三人称,现在分词,plan的过去式,plan的过去式和过去分词是什么。plan的过去式是:plannedplanned英 [plænd] 美 [plænd] adj.计划了的,根据计划的v.计划,打算,设计

知识

idea的音标怎么写

阅读(226)

本文主要为您介绍idea的音标怎么写,内容包括Idea的音标,idea音标,idea的中文是什么带音标。英文原文:1,study puzzle club use 2,hiking idea pilot if 3,sea stay scien

知识

hong瓦字怎么写

阅读(232)

本文主要为您介绍hong瓦字怎么写,内容包括是hong字怎么写,瓦字笔顺怎么写,瓦字繁体怎么写。瓦字的繁体与简体写法相同,繁简对照图片如下:

知识

博学的英文单词怎么写

阅读(207)

本文主要为您介绍博学的英文单词怎么写,内容包括博学的英语怎么说,博学的英语怎么说,博学的英文翻译。learned; erudite; wide range of studies or learning; well-read; well

知识

读英语用英语怎么写

阅读(228)

本文主要为您介绍读英语用英语怎么写,内容包括我正在读英语的英文怎么说,英语的写怎么读,读用英语怎么写。英语中表示写的单词是write,其读音为:英 [raɪt] 美 [raɪt] 。具体释义如下:write 英 [raɪt] 美 [raɪ

知识

树根的英语单词怎么写

阅读(439)

本文主要为您介绍树根的英语单词怎么写,内容包括树根的英语翻译树根用英语怎么说,树根用英语怎么说,树根用英语怎么说。树根 1.tree stump树桩;树墩ancient tree winds its stump:古树盘根The Vigil by th

知识

手音节怎么写

阅读(487)

本文主要为您介绍手音节怎么写,内容包括手的拼音怎么写,手的音节是什么,手的音节是什么。看图说话写话的方法:“看仔细,想明白,说清楚,写完整。” 写作格式:每小节开头空两格 学会正确运用标点符号 顺口溜:1.一看环境和人物,

知识

天正插件怎么用

阅读(263)

本文主要为您介绍天正插件怎么用,内容包括天正插件到底怎么应用到CAD中,天正插件怎么用,cad天正插件怎么安装。分两种,一种是设计人员用的,一种是施工单位用的。第一种用的是天正建筑,天正给排水之类的,配合CAD软件用,打开的话直接打开天正软件

知识

怎么教猫用猫砂

阅读(214)

本文主要为您介绍怎么教猫用猫砂,内容包括怎样教小猫使用猫砂,如何训练猫咪使用猫砂,怎么教猫用猫砂。怎么教猫咪用猫砂小猫刚抱回来的时候如果不好好教基本都是随地大小便,就算拉在猫砂盆里也只能算误打误撞。所以抱回来前猫砂盆要准备好,一

知识

暴风转码怎么用

阅读(192)

本文主要为您介绍暴风转码怎么用,内容包括暴风转码怎么用,电脑上暴风转码怎么用,暴风转码怎么用暴风转码怎么设置。“暴风转码”想必大家都不陌生了,它是暴风影音最新推出的一款音视频格式转换的全新产品,可以实现所有流行音视频格式文件的格

知识

乘法vb程序怎么写

阅读(258)

本文主要为您介绍乘法vb程序怎么写,内容包括用VB编写乘法程序,vb6.0乘法程序乘数被乘数代码怎么写,vb6.0乘法程序乘数被乘数代码怎么写。Private Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i =

知识

dreamweaver网页的代码怎么写

阅读(206)

本文主要为您介绍dreamweaver网页的代码怎么写,内容包括Dreamweaver编写网页代码流程,Dreamweaver中响应式网页代码如何写,网页设计的代码怎么写。画图,页面要一个怎么样的布局2、确定布局用盒子(div)模型还是表格,现代一般用盒子3、文本文档或

知识

怎么在html页面写jscss代码

阅读(272)

本文主要为您介绍怎么在html页面写jscss代码,内容包括怎么在HTML页面中引用JS,CSS文件麻烦写个具体代码,在html语言中引入CSS代码和Javascript代码的方法,如何使用HTML+CSS+Javascript写界面。html代码<br><br><!DOCTYPE html><br><html><b

知识

表格怎么设置数字代码怎么写

阅读(225)

本文主要为您介绍表格怎么设置数字代码怎么写,内容包括怎样设置excel表格的数字格式,excel电子表格怎么改数字格式,Excel表格中的数字怎么填写。通过应用不同的数字格式,可将数字显示为百分比、日期、货币等。例如,如果您在进行季度预算,则可

知识

数据包代码怎么写

阅读(227)

本文主要为您介绍数据包代码怎么写,内容包括如何用java写数据包,串口通信中的数据包是什么意思,怎么解析(最好来点c代码举例下),网页中显示物理地点的代码怎么写。你好,java中的socket编程,要把数据最后转成byte[]来进行通信,对于你这种情况,我认

知识

怎么写代码知乎

阅读(227)

本文主要为您介绍怎么写代码知乎,内容包括在网吧写代码是怎样一种体验知乎,为什么程序员把程序代码写的那么复杂知乎,里面代码要怎么写。那时还在大学暑假期间,学校实验室有项目在赶工,我因为要补牙齿不得不回老家几天。有时候突然一个电话打

知识

代码写不出来怎么办

阅读(234)

本文主要为您介绍代码写不出来怎么办,内容包括看得懂编程代码写不来怎么办,当一个程序员写不出代码了该怎么办,当一个程序员写不出代码了,该怎么办。你的逻辑思路还没有成型一般学程序应该分2部分章握语意、语法结构2、形成逻辑思路程序光

知识

饥荒代码怎么用

阅读(189)

本文主要为您介绍饥荒代码怎么用,内容包括饥荒代码怎么用,饥荒控制台怎么使用饥荒控制台代码怎么输入,饥荒控制台代码怎么用饥荒作弊及指令代码大全。原发布者:心声如云饥荒控制台使用方法:饥荒的控制台调出很简单,只要在游戏中按下“~”键(1左

[/e:loop]