vb程序翻译费下载

vb程序翻译费下载vb程序翻译费下载实验3-3 Private Sub Command1_Click() ————命令按钮的单击事件 x = Val(Text1.Text) ———— 将字符型数据转换为数值型数据 Y1 = x / 100 ————求百元钞数 x = x Mod 100 ————求出不足百元的面额值 Y2 = x / 50 ————求出50元票张数 x = x Mod 50 ————求出不足50元票的面额值 Y3 = x / 10 ————求出10元票张数 x = x Mod 10 ————求出不足10元票...

vb程序翻译费下载实验3-3 Private Sub Command1_Click() ————命令按钮的单击事件 x = Val(Text1.Text) ———— 将字符型数据转换为数值型数据 Y1 = x / 100 ————求百元钞数 x = x Mod 100 ————求出不足百元的面额值 Y2 = x / 50 ————求出50元票张数 x = x Mod 50 ————求出不足50元票的面额值 Y3 = x / 10 ————求出10元票张数 x = x Mod 10 ————求出不足10元票的面额值 Y4 = x / 5 ————求出5元票的张数 x = x Mod 5 ————求出不足5元票的面额值 Y5 = x / 2 ————求出2元票的张数 x = x Mod 2 ————求出不足2元票的面额值 Text1.SetFocus ————将焦点移动到指定的文本框1上 Text1.SelStart = 0 ———— 设置所选择的文本的起始点 Text1.SelLength = Len(Text1.Text) ————设置所选择的字符数为文本框1 中输入的长度 b = b & Format(Y1 & "张百元票", "@@@@@@") & Chr(13) b = b & Format(Y2 & "张50元票", "@@@@@@") & Chr(13) b = b & Format(Y3 & "张10元票", "@@@@@@") & Chr(13) b = b & Format(Y4 & "张5元票", "@@@@@@") & Chr(13) b = b & Format(Y5 & "张1元票", "@@@@@@") & Chr(13) b = b & "共计" & Text1.Text & "元" a = MsgBox(b, 0, "应发工资") ————用MsgBox函数输出结果 End Sub ————结束程序实验4-4 Dim cy, cq As Integer ———— cy, cq是一个整数 Private Sub Text1_KeyPress(KeyAscii As Integer) ————文本框的KeyPress事件 Dim cy As String ————变量cy作为字符串类 c = UCase(Chr(KeyAscii)) ———— c为输入函数的ASCII码 If c >= "A" And c <= "Z" Then ———— 如果c介于A与Z之间 Select Case c ————用Select Case语句实现多分支选择结构 Case "A", "E", "O", "I", "U" ————"A", "E", "O", "I", "U"为元音字母 cq = cy + 1 ———— Case Else ————其他的字母 cq = cq + 1 ———— End Select ————结束Select(选择结构) End If ————结束if语句 If KeyAscii = 13 Then ————按回车键，进行输出 Print "元音字母有"; cy; "个" ————打印出元音的字母 Print "其他字母有"; cy; "个" ————打印出其它的字母 End If ————结束if语句 End Sub ————结束程序 “以hello”为例 Private Sub Text1_KeyPress (KeyAscii as Integer) ———— 文本框的KeyPress事件 Dim n as Integer ———— 定义n为一个整数 Dim t0, t1 As String ———— 定义T0，T1为字符串 If KeyAscii <> 13 Then ———— 如果任意按键的Ascii码不等于 13 (回车键的Ascii码)即如果不按回车键 Text2.Text = "" ———— 文本框的内容为空白的 n = 1 ———— 假如n = 1 t0 = "." ———— 则T0 =“.” t1 = Mid(Text1.Text, n, 1) ———— 则T1 =文本框1中从第一个数读起的第一个数 Do Until n > Len(Text1.Text) t1 = LCase(t1) If t0 = "." Or t0 = "?" Or t0 = "!" Then t1 = UCase(t1) End If Text2.Text = Text2.Text + t1 n = n + 1 t0 = t1 t1 = Mid(Text1.Text, n, 1) Loop ————结束循环结构 End If ———— 结束If语句 End Sub 循环未循环未循环未结循环未结结束结束束束 Do Until n > n=1<5(文本n=2<5 n=3<5 n=4<5 n=5=5 n=6<5 Len(Text1.Text) 框1的长度) t1 = LCase(t1) t1=l t1=o t1=小写的h t1=e 成立 t1=l If t0 = "." Or t0 = 因为t0 =t0=H t0=e t0=l t0=l 循环结"?" Or t0 = "!" “. ” 不成立不成立不成立不成立束 Then t1 = UCase(t1) 所以t1=大写 End If 的t1即H Text2.Text = 文本框2的内text2=text2=text2=text2=Text2.Text + t1 容=“空白”“He” “Hel” “Hell” “Hello” +t1(H)=H n = n + 1 n=1+1=2 n=2+1=3 n=3+1=4 n=4+1=5 n=5+1=6 t0 = t1 t0=t1=H t0=t1=e t0=t1=l t0=t1=l t0=t1=0 t1 = t1=文本框1t1=l t1=l t1=o 无 Mid(Text1.Text, 中从第二个 n, 1) 数读起的的第一个数即 t1=e 所以计算结果为“Hello”

                    本文档为【vb程序翻译费下载】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

vb程序翻译费下载

你可能还喜欢