求VB编程高手.......只要答案。
群名:【编程】活跃一群 群号:50167302 创建人:30321106 (编程区正式管理员:睡仙和尚) 此群为问问区活跃人员由正式管理员睡仙和尚邀请加入 所以你应该要在这个区很活跃,这样管理员会主动添加你到这个群里面 我就是这么进去的,所以加油吧!
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i > 5 Then i = 0
Select Case i
Case Is = 1
Picture = LoadPicture("1.jpg")
Case Is = 2
Picture = LoadPicture("2.jpg")
Case Is = 3
Picture = LoadPicture("3.jpg")
Case Is = 4
Picture = LoadPicture("4.jpg")
Case Is = 5
Picture = LoadPicture("5.jpg")
End Select
End Sub
当我的意志挣脱出来,我将死去。
一只小船,有船桨和食物
说的人口气有把握,
观察的手指
他们是无话为个哈哈
用for然后再加以判断就行了。
相信你也不想要太直接的答案,对吧?
Option Base 1
Private Sub Form_Load()
Dim a(), m%, c%, d%
Static n As Integer
n = 0
For i = 100 To 999
For j = 1 To i
If i Mod j = 0 Then
m = j
Exit For
End If
Next j
If m = i Then
n = n + 1
ReDim a(n)
a(n) = i
End If
Next i
Static z As Integer
z = 0
For c = 1 To n
If (Right(Str(a(c)), 1) + Mid(Str(a(c)), 2, 1)) Mod 10 = Left(Str(a(c)), 1) Then
Print a(c)
z = z + 1
End If
Next c
Print z
End Sub
'z为所求值
z=0
VB数据库编程高手进
该备份方案使用VB设计出友好方便的用户界面,用户只需点击按钮便可执行备份或恢复操作;而且用Access作备份数据库,备份同样的数据,其所占用的硬盘空间远远小于SQL数据库所占空间,大大地提高了效率和节约了用户资源。通过实践检验,其运行效率比双机备份要高得多。 参考资料: VB数据库编程专区 已赞过 已踩过< 你对这...
·VB编程高手请进
Open RichTextBox1.FileName For Input As #1用与纯文本的 用RichTextBox1.LoadFile RichTextBox1.FileName吧
vb编程高手进
没人回答,那我就帮你下,但效果不是很好.第一 Private Sub Form_Load()Form1.Width = 3100 Form1.BorderStyle = 1 Timer1.Interval = 100 Form1.Top = 500 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Height = 6000 Timer...
新手学VB编程 高手进!
下面是一段最小的程序,能实现两个数的相乘:a=2 b=3 c=a*b print a;"*";b;"=";c 第一句:a是一个变量,给它赋值2 说明:(1)变量是一个代号,它好像方程中的x一样能代表不同的数、值。(2)等号(=)是一个赋值符号,它是让等号左边的变量等于右边的值(注意一定是一个有确定值...
编程高手请进 利用VB实现数据的试算。 希望不吝赐教
做个自定义函数,以供调用:sub myTry()dim ax as long dim vx as long ax=val(text1.text)'提取初始值,将文本值转为数值 vx=val(text2.text)'试算值,将文本值转为数值 if vx>ax and (vx-ax)\/ax<0.05 then '调整语句,我不知道你要怎样调整 elseif vx>ax and (vx-ax)\/ax>0....
求VB高手!编程输出50——200之间的能被5或11整除的数,每行打印7个数...
include<stdio.h> void main(){ int i,j,sum=0;for(i=50;i<200;i++){ if(i%5|==0||i%11==0){sum+=i;if(((i-50)+1)%7==0)printf("\\n");else printf("%4d",i);} } }
vb编程问题 高手进来回答一下 谢谢!
'很怀疑你的目的性,不过实现其实很简单:'就在你的代码基础上修改一下就可以'递归函数主体 Private Sub TransFiles(ByVal strDirect As String) If Not (strDirect Is Nothing) Then 'ListBox1.Items.Add(strDirect) Dim mFileInfo As System.IO.FileInfo Dim mDir As System.IO...
求助VB编程高手,实时错误3704 对象关闭时 不允许操作
msgText是干什么用的?是SQL数据库的连接字符串么?像是没有赋值。另外,当Dim 记录集的时候已经DIM成New ADODB.RecordSet后,使用时就不必再SET 为New ADODB.RecordSet了。一般我使用ADO的时候是用 Dim Rs AS New ADODB.RecordSet Dim CN As New ADODB.Connection dim StrData as String '数据...
vb编程!!请高手帮帮忙~~
Option Base 1 Private Sub Form_Click()Dim a(50) As Integer, i As Integer, j As Integer, temp As Integer For i = 1 To 50 '产生50个10~100之间的互不相同的整数 Randomize a(i) = Int(Rnd * 91 + 10)For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 ...
编程高手:VB 6.0 射击游戏 求助
在窗体中添加一timer1,shape1控件 添加代码:Dim n As Integer, m As Integer Private Sub Form_Load()Timer1.Interval = 1000 Shape1.Shape = 3 n = Shape1.Left m = Shape1.Top End Sub Private Sub Timer1_Timer()Shape1.Left = Shape1.Left + 200 Shape1.Top = Shape1.Top - ...
钮施富欣:[答案] 一:1 A2 A3 A4 B5 C6 C7 B8 B9 B10 B11 B12 A13 D14 A15 C二,1,实体一般都是能看见,例如控件.非实体一般说的是变量数组.看不见只是简单的保存数据.2,控件名后面打点后自动弹出列表.没有弹出可以按下Ctrl+空格键自动...
甘井子区17740114604: 求VB高手解答代码?
钮施富欣: 1、 For i = 1 To 9 For j = 1 To i Print j; "*"; i; "="; i * j; Next Print Next 2、 For i = 3 To 100 For j = 2 To Int(Sqr(i)) If i Mod j = 0 Then Exit For Next If j > Int(Sqr(i)) Then Print i Next 3、 Dim a(1 To 10) As Integer Randomize Timer Max = a(1) For i = ...
甘井子区17740114604: 求高手为我解答一个VB编程问题,十分感谢! - ?
钮施富欣: WebBrowser1.Enabled=False'使WebBrowser1不可用 WebBrowser1.E
甘井子区17740114604: 求一个vb的编程高手来帮忙啊?
钮施富欣: Dim i As Integer, a(20) As Integer Dim max As Integer, mix As Integer Dim sum As Integer Private Sub Command1_Click() Randomize max = a(1) mix = a(1) For i = 1 To 20 a(i) = Int(Rnd * 40) + 60 List1.AddItem a(i) If a(i) > max Then max = a(i) End ...
甘井子区17740114604: 一些VB的题,求高手回答 .1、语句Print“5*20”的输出结果是___?(a“5*20” b出错 c5*20 d100)2、下列可作为VB程序中的变量名的是——?(A.a#a B.4a... - ?
钮施富欣:[答案] 1、C 2、D 3、5 4、(cos(a+b))^2+5*exp(2) 5、Sin(25°) 6、T>1.7AND W
甘井子区17740114604: 程序设计,vb 求高手解答.谢谢了(要求用inputBox 输入一个正实数,用msgbox输出它的平方和平方根 ,要求每个数保留三位小数. 知识点:InputBox函... - ?
钮施富欣:[答案] Private Sub Command1_Click() Dim x As Single x = Val(InputBox("输入一个正实数")) MsgBox Round(x, 3) & vbCrLf & "平方=" & Round(x * x, 3) & vbCrLf & "平方根=" & Round(Sqr(x), 3) End Sub
甘井子区17740114604: 急求VB高手帮忙编程 - ?
钮施富欣: Private Sub Command1_Click()Dim IntBss As IntegerDim StrTemp1 As String, StrTemp2 As String, StrTemp3 As String, StrTemp4 As String, StrTemp5 As StringDim I As Integer, J As Integer,...
甘井子区17740114604: 求VB高手编程 - ?
钮施富欣: Visual Basic.NET 是从 Visual Basic 语言演变而来的,是一种为高效地生成类型安全和面向对象的应用程序而设计的语言.Visual Basic 允许开发人员开发面向 Windows、Web 和移动设备的程序.与所有面向 Microsoft .NET Framework 的语言...
甘井子区17740114604: 以下VB编程求高手解答啊?
钮施富欣: 在这个“可以连接到其他FORM ”里要做什么工作呢?如果只是简单的显示下一下form ,可以在next的事件中另入一行 form3.show 在打开的窗体中,如需引用上一个窗体中的数据,可以加入如下的行 me.text1=form2.combol1.capation 等,这样可以使用上一个窗体中的数据了. 因为不清楚你用next要达到的地方做什么,所以不能给你具体的代码,你慢慢理解吧.
甘井子区17740114604: VB编程问题麻烦高手解答一下啊 - ?
钮施富欣: 你是不是用复制粘贴的控件啊?并且提示“已有一个Command1,是否创建控件数组?”你点了“是”? 如果是这样,你就试试: Command1(0).Enabled = False Command1(1).Enabled = False Command1(2).Enabled = False 如果不行,你就输入Command1. ,然后不是弹出一个框框吗,你就把图截下来,大家看看是怎么回事.