ldcf.net
当前位置:首页 >> vB程序设计题,跪求大神解答...急,在线等....高分... >>

vB程序设计题,跪求大神解答...急,在线等....高分...

打开txt文件的界面 打开图片文件的界面 应该与你的要求一致的,还可以吧?

通过Keypress事件做,Keyascii是Ascii吗,通过按下键盘系统会检测到他的Ascii值,再把它转换成你想要替换的就行了,很简单,不想帮你写,自己动手丰衣足食吧。

Private Sub Form_Click() Dim n As Integer If IsNumeric(Text1.Text) Then n = Val(Text1.Text) Select Case n Case 0 Text2.Text = "Sunday" Case 1 Text2.Text = "Monday" Case 2 Text2.Text = "Tuesday" Case 3 Text2.Text = "Wednesday" C...

Private Sub FlashTimer_Timer()If FLashLabel.ForeColor = vbRed ThenFLashLabel.ForeColor = vbGreenElseIf FLashLabel.ForeColor = vbGreen ThenFLashLabel.ForeColor = vbRedEnd IfEnd IfEnd Sub Private Sub Form_Click()FLashLabel.ForeCo...

Private Sub Command1_Click() Dim N As Integer Randomize N = Val(Text1.Text) label1 = Int(Rnd * N + 1) label2 = Int(Rnd * N + 1) label3 = Int(Rnd * N + 1) End Sub

文本框窗体.

Dim x(100) As Integer Dim a(), b() As Integer Dim m, n As Integer m = 0 '偶数个数 n = 0 '奇数个数 For i = 1 To 100 x(i) = Int(Rnd() * 200) + 10 Next For i = 1 To 100 If x(i) Mod 2 = 0 Then m = m + 1 Else n = n + 1 End If Next M...

Private Sub Command1_Click() Dim sInput As String, sOutput As String, i% sInput = LCase(InputBox("请输入密码字母")) For i = 1 To Len(sInput) sOutput = sOutput & Chr(122 - (Asc(Mid(sInput, i, 1)) - 97)) Next MsgBox sOutput End Sub

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Dim a(5, 5) As Integer Dim iMax, iMin As Integer Private Sub Command1_Click() Dim i, j As Integer Dim s As String Cls Randomize iMax = 0 iMi...

if n>="A" And n="a" And n="0" And n

网站首页 | 网站地图
All rights reserved Powered by www.ldcf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com