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的程序代码怎么写

'能产生霓虹灯效果的代码'在窗体上添加控件 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。

3. VB添加代码怎么写

insert into card_user(字段1,字段2,。..)value('"& text1.text &"','"& text2.text &"')

这句代码是把text1内容作为字段1添加到表card_user

不知道你用的什么库和数据库表的结构. 如果Private Sub XPButton3_Click()作为添加事件的话. 结构应该是这样,具体代码你自己加 Private Sub XPButton3_Click() 打开数据库连接 打开数据库表 数据库表添加(insert into card_user(字段1,字段2,。..)value('"& text1.text &"','"& text2.text &"',。..)) 关闭数据库表 关闭数据库连接 End Sub

4. 求VB代码怎么写,

'check1、check2、check3为checkbox控件数组'check1、check2、check3的style属性设置为1 Private Sub Form_Load() Dim i As Integer Check1(0).Caption = "除7余0" For i = 1 To 6 Load Check1(i) Check1(i).Left = Check1(i - 1).Left + 800 Check1(i).Top = Check1(i - 1).Top Check1(i).Caption = "除7余" & i Check1(i).Visible = True Next i Check2(0).Caption = "除8余0" For i = 1 To 7 Load Check2(i) Check2(i).Left = Check2(i - 1).Left + 800 Check2(i).Top = Check2(i - 1).Top Check2(i).Caption = "除8余" & i Check2(i).Visible = True Next i Check3(0).Caption = "1到5" For i = 1 To 3 Load Check3(i) Check3(i).Left = Check3(i - 1).Left + 1500 Check3(i).Top = Check3(i - 1).Top Check3(i).Caption = i * 5 + 1 & "到" & (i + 1) * 5 Check3(i).Visible = True Next i Command1.Caption = "清除" Command2.Caption = "统计" Text1.Text = "" Text2.Text = "" End Sub Private Sub Command1_Click() Dim i As Integer For i = 0 To Check1.UBound Check1(i).Value = vbUnchecked Next For i = 0 To Check2.UBound Check2(i).Value = vbUnchecked Next For i = 0 To Check3.UBound Check3(i).Value = vbUnchecked Next Text1.Text = "" Text2.Text = "" End Sub Private Sub Command2_Click() Dim i As Integer, j As Integer, m As Integer Dim s As String Dim n(1 To 20) As Integer For i = 0 To Check1.UBound If Check1(i).Value = vbChecked Then s = s & " " & Check1(i).Caption For j = 1 To 20 If j Mod 7 = i Then n(j) = n(j) + 1 End If Next j End If Next For i = 0 To Check2.UBound If Check2(i).Value = vbChecked Then s = s & " " & Check2(i).Caption For j = 1 To 20 If j Mod 8 = i Then n(j) = n(j) + 1 End If Next j End If Next For i = 0 To Check3.UBound If Check3(i).Value = vbChecked Then s = s & " " & Check3(i).Caption For j = i * 5 + 1 To (i + 1) * 5 n(j) = n(j) + 1 Next j End If Next Text1.Text = Trim(s) s = "" j = 0 For i = 1 To 20 If n(i) > m Then m = n(i) End If Next For i = 0 To m If s = "" Then s = i & "次:" Else s = s & vbCrLf & i & "次:" End If For j = 1 To 20 If n(j) = i Then s = s & j & "," End If Next Next Text2.Text = s End Sub。

转载请注明出处育才学习网 » vb代码怎么写

知识

生的繁体字怎么写

阅读(154)

本文主要为您介绍生的繁体字怎么写,内容包括“生”的繁体字是什么,生的繁体字怎么写,生的繁体字怎么写。“生”的繁体字是:生,是它本身。 笔顺读写:撇横横竖横 拼音:shēng 部 首:生 部外笔画:0 总笔画:5 五笔86&98:TGD

知识

议论文的开头怎么写

阅读(169)

本文主要为您介绍议论文的开头怎么写,内容包括初中作文,议论文的开头怎么写,议论文的开头怎么写,议论文开头怎么写呢。50% 议论文的开头直入法例:现在有些年轻人慨叹自己生不逢时,没能让自己的才华在兵荒马乱之时大显身手。然而我却要说:“我

知识

田字拼音怎么写

阅读(240)

本文主要为您介绍田字拼音怎么写,内容包括田字拼音怎么拼,田字拼音怎么拼,田字拼音怎么拼。

知识

美容院活动方案怎么写

阅读(181)

本文主要为您介绍美容院活动方案怎么写,内容包括如何写美容院方案,美容院如何做促销活动方案,美容院活动方案。春节、情人节美容院活动方案(仅供参考)活动背景:圣诞、元旦刚过,春节和情人节又即将来临,无论何时,节日促销都是美容院不能忽视的促销

知识

夜书所见怎么写

阅读(642)

本文主要为您介绍夜书所见怎么写,内容包括夜书所见作文怎么写,夜书所见题目的意思是什么,《夜书所见》这首诗描写了一副怎样的画面。夜书所见星湖小学 三(1)班 覃玮琪·秋天是一个丰收的季节,诗人叶绍翁独自一个人离开了家乡,到大自然界去收集

知识

英语60怎么写

阅读(214)

本文主要为您介绍英语60怎么写,内容包括160的英语单词怎么写,120、30、40、50、60、70、80、90的英语怎么写,英语060怎么写。one 1two 2three3 four 4five 5six 6seven 7eight 8nine 9ten 10eleven 1

知识

爱我的英文怎么写

阅读(166)

本文主要为您介绍爱我的英文怎么写,内容包括我爱你可以把它倒过来写你爱我吗的英文怎么写呀,永远爱我好吗的英语翻译,以后一定要好好爱我.这句话用英文怎么说。咱别用电脑翻译啊,驴唇不对马嘴~我不大好意思回答,因为有很多英语高手,而且句子比

知识

不拼音怎么写的

阅读(378)

本文主要为您介绍不拼音怎么写的,内容包括"不"字的读音有几种,案件结不掉的拼音怎么写,不叫的拼音怎么写。不叫拼音:bú jiào “不”字的拼音是:bù,但这个字在第四声(去声)字前念第二声(阳平)。字义详解:不读音:[bù]部首:一五笔:

知识

甲骨文鱼怎么写

阅读(223)

本文主要为您介绍甲骨文鱼怎么写,内容包括甲骨文的鱼怎么写,鱼的甲骨文字怎么写,甲骨文的鱼字怎么写。如图所示。 拼音:yú 2、释义:脊椎动物的一类,生活在水中,一般有鳞和鳍,用鳃呼吸。 3、出处:鱼,水虫也。象形。鱼尾与燕尾相似。《说

知识

加的笔顺怎么写

阅读(294)

本文主要为您介绍加的笔顺怎么写,内容包括加的笔顺怎么写,加字笔顺怎么写,加字的笔顺怎么写。加笔顺:横折钩、撇、竖、横折、横。基本信息:拼音:jiā 部首:力、四角码:46000、仓颉:ksr 86五笔:lkg、98五笔:ekg

知识

毕业论文题目怎么写

阅读(180)

本文主要为您介绍毕业论文题目怎么写,内容包括毕业论文的题目怎么写,论文选题变更理由怎么写,毕业论文的开题报告的研究目的与意义主要研究内容怎么写如题.。提供一些设计专业毕业论文的题目,供参考。 数码相机的设计报告 2、产品设计中的人

知识

见文怎么写

阅读(177)

本文主要为您介绍见文怎么写,内容包括《中秋见文这篇文怎么写,[所见]的记述文怎么写,假期见文怎么写。年三十的下午,我走在去姥姥家的胡同里,为了抵御寒风的侵袭,我在心里勾勒着一桌热气腾腾的年夜饭。迎面走来一个人,身姿挺拔,步伐稳健,正是姥

知识

论文观点怎么写

阅读(202)

本文主要为您介绍论文观点怎么写,内容包括论文的基本观点和论文结构有什么区别,什么是论文的主要观点,我要写一篇论文“美是什么”,是要围绕一个观点来写,还是可以阐述。论文题目:(下附署名)要求准确、简练、醒目、新颖。2、目录目录是论文中

知识

特长描述怎么写

阅读(203)

本文主要为您介绍特长描述怎么写,内容包括。个人特长实际上应该针对所应聘的公司要求来设计,按照公司对应聘者的要求,结合自身的实际情况,在自己的特长中有倾向性,有针对性的写简历。销售

知识

html代码怎么写

阅读(181)

本文主要为您介绍html代码怎么写,内容包括HTML代码怎么写,html代码怎么写,html代码怎么写全部居中。<html><head><title></title><style>#sa{color:red; font-style:italic;

知识

app代码怎么写

阅读(210)

本文主要为您介绍app代码怎么写,内容包括App的代码怎么写,苹果手机App里面的代码怎么填,苹果app代码怎么填。填写步骤:要有个己的邮箱地址,注册后就是账号(APPLE ID);2、下载iTunes安装到电脑上,运行iTunes,设置地区为中国;3

知识

小程序代码怎么写

阅读(163)

本文主要为您介绍小程序代码怎么写,内容包括求写c语言小程序代码,这些微信小程序代码是什么意思呢,第一个微信小程序代码在哪个文件写。#include "stdio.h"int main(int argv,char *argc[]){char x[20]="你好";pr

知识

游戏代码怎么写

阅读(157)

本文主要为您介绍游戏代码怎么写,内容包括怎么编写游戏代码,怎么编写游戏代码,在游戏里游戏的代码要怎么写。首先请先学一门语言,c类,java,python其中三选一,当你学会基础之后,就可以采用各种网上有的库来编写一款游戏了。 还有一种办法就

知识

测试代码怎么写

阅读(156)

本文主要为您介绍测试代码怎么写,内容包括怎么写Java测试代码,单元测试的代码如何编写呢,什么是测试代码。可以用main函数和JUnit来写测试代码。main是最早使用的,但是现在更流行的测试工具是JUnit。JUnit是一个Java语言的单

知识

伪代码怎么写

阅读(152)

本文主要为您介绍伪代码怎么写,内容包括伪代码怎么写,伪代码的写法,伪代码的写法。伪代码(Pseudocode)是一种算法描述语言。使用伪代码的目的是为了使被描述的算法可以容易地以任何一种编程语言(Pascal,C,J

知识

怎么写代码

阅读(150)

本文主要为您介绍怎么写代码,内容包括代码怎么写,怎么编程写代码,怎么写代码。代码 code A.一组有序的数字或字母的排列,是代表客观实体及其属性的符号。 B.记录计算机程序的符号。 代码设计的原则包括惟一确定性

知识

代码怎么写

阅读(159)

本文主要为您介绍代码怎么写,内容包括代码怎么写,代码怎样写才好,怎么编程写代码。代码 code A.一组有序的数字或字母的排列,是代表客观实体及其属性的符号。 B.记录计算机程序的符号。 代码设计的原则包括惟一确定性

[/e:loop]