VB问题！！！
为什么答案是42,因为楼主的问题写错了，应该改为
B=1
Do
while
B<40
B=B*(B+1)
Loop
Print
B
这样答案就是42
全选textbox中所有内容:
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Keycode 常数
可在代码中的任何地方用下列常数代替实际值：
常数 值 描述
vbKeyLButton 0x1 鼠标左键
vbKeyRButton 0x2 鼠标右键
vbKeyCancel 0x3 CANCEL 键
vbKeyMButton 0x4 鼠标中键
vbKeyBack 0x8 BACKSPACE 键
vbKeyTab 0x9 TAB 键
vbKeyClear 0xC CLEAR 键
vbKeyReturn 0xD ENTER 键
vbKeyShift 0x10 SHIFT 键
vbKeyControl 0x11 CTRL 键
vbKeyMenu 0x12 MENU 键
vbKeyPause 0x13 PAUSE 键
vbKeyCapital 0x14 CAPS LOCK 键
vbKeyEscape 0x1B ESC 键
vbKeySpace 0x20 SPACEBAR 键
vbKeyPageUp 0x21 PAGE UP 键
vbKeyPageDown 0x22 PAGE DOWN 键
vbKeyEnd 0x23 END 键
vbKeyHome 0x24 HOME 键
vbKeyLeft 0x25 LEFT ARROW 键
vbKeyUp 0x26 UP ARROW 键
vbKeyRight 0x27 RIGHT ARROW 键
vbKeyDown 0x28 DOWN ARROW 键
vbKeySelect 0x29 SELECT 键
vbKeyPrint 0x2A PRINT SCREEN 键
vbKeyExecute 0x2B EXECUTE 键
vbKeySnapshot 0x2C SNAPSHOT 键
vbKeyInsert 0x2D INSERT 键
vbKeyDelete 0x2E DELETE 键
vbKeyHelp 0x2F HELP 键
vbKeyNumlock 0x90 NUM LOCK 键
A 至 Z 键与 A – Z 字母的 ASCII 码相同：
常数 值 描述
vbKeyA 65 A 键
vbKeyB 66 B 键
vbKeyC 67 C 键
vbKeyD 68 D 键
vbKeyE 69 E 键
vbKeyF 70 F 键
vbKeyG 71 G 键
vbKeyH 72 H 键
vbKeyI 73 I 键
vbKeyJ 74 J 键
vbKeyK 75 K 键
vbKeyL 76 L 键
vbKeyM 77 M 键
vbKeyN 78 N 键
vbKeyO 79 O 键
vbKeyP 80 P 键
vbKeyQ 81 Q 键
vbKeyR 82 R 键
vbKeyS 83 S 键
vbKeyT 84 T 键
vbKeyU 85 U 键
vbKeyV 86 V 键
vbKeyW 87 W 键
vbKeyX 88 X 键
vbKeyY 89 Y 键
vbKeyZ 90 Z 键
0 至 9 键与数字 0 – 9 的 ASCII 码相同：
常数 值 描述
vbKey0 48 0 键
vbKey1 49 1 键
vbKey2 50 2 键
vbKey3 51 3 键
vbKey4 52 4 键
vbKey5 53 5 键
vbKey6 54 6 键
vbKey7 55 7 键
vbKey8 56 8 键
vbKey9 57 9 键
下列常数代表数字键盘上的键：
常数 值 描述
vbKeyNumpad0 0x60 0 键
vbKeyNumpad1 0x61 1 键
vbKeyNumpad2 0x62 2 键
vbKeyNumpad3 0x63 3 键
vbKeyNumpad4 0x64 4 键
vbKeyNumpad5 0x65 5 键
vbKeyNumpad6 0x66 6 键
vbKeyNumpad7 0x67 7 键
vbKeyNumpad8 0x68 8 键
vbKeyNumpad9 0x69 9 键
vbKeyMultiply 0x6A MULTIPLICATION SIGN (*) 键
vbKeyAdd 0x6B PLUS SIGN (+) 键
vbKeySeparator 0x6C ENTER 键
vbKeySubtract 0x6D MINUS SIGN (-) 键
vbKeyDecimal 0x6E DECIMAL POINT (.) 键
vbKeyDivide 0x6F DIVISION SIGN (/) 键
下列常数代表功能键：
常数 值 描述
vbKeyF1 0x70 F1 键
vbKeyF2 0x71 F2 键
vbKeyF3 0x72 F3 键
vbKeyF4 0x73 F4 键
vbKeyF5 0x74 F5 键
vbKeyF6 0x75 F6 键
vbKeyF7 0x76 F7 键
vbKeyF8 0x77 F8 键
vbKeyF9 0x78 F9 键
vbKeyF10 0x79 F10 键
vbKeyF11 0x7A F11 键
vbKeyF12 0x7B F12 键
vbKeyF13 0x7C F13 键
vbKeyF14 0x7D F14 键
vbKeyF15 0x7E F15 键
vbKeyF16 0x7F F16 键
我也是学VB的,希望能帮到你,共同努力!!!
Command1.Visible = False
Command2.Visible = False
from1.Picture = LoadPicture("D:\\SS.JPEG")'这个可以在属性窗口picture属性中导入图片也可以
End Sub
Private Sub Form_Click()
Command1.Visible = True
Command2.Visible = True
from.Picture = LoadPicture()
End Sub
我靠，这太简单了吧，初学者这应该也会吧，除非你今天刚学。
启动后图片设置为隐藏，当点显示时，图片的设置为显示，并且两个按钮设置为隐藏，当点击窗体，这里应该是图片，当点击图片时，图片隐藏，按钮显示
进士出身 九级
我同意你的说法!
这个真的太太太简单了
“显示”按钮
PictureBox.Image=这里看你自己是使用什么载入图片
显示.Visible=false
隐藏.Visible=false
单击窗体
显示.Visible=true
隐藏.Visible=true
退出
Application.Exit()
AB两个相互独立的问题,答对A可得奖金a元,答对B可得奖金2a元
先答A问题时奖金的总期望为：（1\/2)a元+（1\/3)a元=（5\/6)a元。（2）先答B问题时：答对B问题的概率为：1\/3，奖金的期望为：（1\/3)2a元=(2\/3)a元。答对B问题进而又答对A问题的概率为：（1\/3）x（1\/2）=1\/6，奖金的期望为：（1\/6)a元。先答B问题时奖金的总期望为： (2\/3...
在ABC分析法中,B类问题的特点是项目数量一般,发生次数也相对少一点...
【答案】：C 在ABC分析法中，A类问题的特点是项目数量少，一般是一、二项，至多只能有三项，但发生的次数多，约占投诉总数的70%；B类问题的特点是项目数量一般，发生次数也相对少一点，约占投诉总数的20%～25%；C类问题的特点是项目数量多，但发生次数少，约占投诉总数的10%左右。
复印机显示B错误故障
首先，B错误故障可能是因为纸张堆积在复印机内部导致的。当纸张堆积到一定数量时，会阻塞纸张传送和排出通道，从而导致机器无法继续正常运行，进而显示B错误故障。其次，B错误故障也可能是由于显像器的问题引起的。当显像器的电极出现杂质或积聚尘土等物，会严重影响其正确读取和传输的数据信号，于是复印机就会...
...周(盈亏问题)B版答案。急! 能答多少答多少,答得好给10财富...
1.购进大米和面粉若干，如果大米增加60吨，面粉减少45吨，则大米和面粉一样多；如果再购进面粉35吨，面粉刚好是大米的3倍。原有大米面粉各多少吨？解：设面粉为M吨，则大米=M-45-60=(M-105)吨 由题意有：M+35=(M-105)×3 解答得M=175吨，大米=M-105=60吨 2.有两桶油，甲的一半比乙...
...该损伤类型为请帮忙给出每个问题的正确答案和分析,谢谢!
【答案】：问题 1 答案解析：D 问题 2 答案解析：B 问题 3 答案解析：C
ISO质量管理体系中A类,B类别质量问题是什么意思
A 严重质量问题，肯定会影响客户的使用：B 一般质量问题，可能会影响客户使用，或影响不大：C 轻微质量问题，不会影响客户的使用；
产品质量跟踪管理办法 中产品问题共分几类?其中B类问题表示什么?
分三种，分别是A类B类C类，A类不合格是指不合格项导致产品无法使用的或严重影响产品质量的，B类则比A类稍微好点，影响到产品的质量，但不一定不能用，C类一般情况下是轻微不合格项，在QC判定不合格后一般是可以特采的。
...完成下列各题:(1)漫画A、B分别反映了什么问题:A___;B___.(2)漫 ...
认真读图可知解：（1）漫画A、B反映了目前我国存在的问题是：A，人口问题；B，乱占耕地； （2）漫画C、D反映了当前我国存在的问题是：C，过度放牧；D，水资源浪费； （3）针对A，B问题我国采取的国策有：①计划生育；②保护环境和合理利用资源；故答案为：（1）人口问题；乱占耕地；（2）过...
我是一名黑龙江高三考生,问一些有关二表B的问题,知道的进
二本B只是我省高校针对我省考生的优惠政策 外省基本没有院校招收黑龙江2B 貌似只有吉林金融和天津理工 2B好的学校肯定就是商大什么的 2本b 线要看那个学校的2B线了 比如去年 文科二本全省线为450分 哈商大 会计2B专业最低文科线为484分 哈商大二本会计分数线貌似是500多点。到高考完马上发招生计划 ...
由A可以推出B,但B推不出A,说明什么问题
B包含A。因为A是集合B的充分不必要条件，所以由A可以推出B，但B推不出A。说明B的范围要大于A，并且A集合中的元素B全都有。如果有事物情况A，则必然有事物情况B；如果有事物情况B不一定有事物情况A，A就是B的充分而不必要的条件，即充分不必要条件。a是b的充分不必要条件。b是a的必要不充分条件...
成怨雅抒： 1.把窗体的BorderStyle属性设置为1 (vb常数 vbFixedSingle=1) ,maxbutton,和minbutton属性设为true就可以了!2.媒体播放器这个控件随着wmp版本的升级也是升级的!我以前用7.0,9.0,10.0都没发现这个...
义马市17188312876： VB的几个问题 - ？
成怨雅抒： 如何学好VB 序:不要老是想着谁“最有钱途”,这些都不是我们应当考虑的,我们要考虑的是怎样才能真正的精通VB.如果成为了VB的专家,应当很容易赚到钱的.VB程序员为什么工资低,不是VB不行,是因为大部份VB程序员不行,他们...
义马市17188312876： VB问题 什么意思 - ？
成怨雅抒： Book?是什么控件?Book.Caption 就是,Book这个控件的标题=“人名” 比如Book如果是个标签的话,标签就会显示“人名”,窗体、Frame也一样 Private Sub Book_Open ....End Sub 这个是一个自定义过程,在其他过程中,可以调用,只要用:Call Book_Open 就可以使用这个过程里面的命令了
义马市17188312876： vb问题,急!!! - ？
成怨雅抒： 修改Timer的Time属性位1000代码Form_load:Dim PassTime As StringPassTime = 0Timer_time:PassTime=PassTime+1if PassTime = 180 thenmsgbox ＂Exit＂,vbyes,＂Fit＂PassTime=0end if...
义马市17188312876： vb问题,急··· - ？
成怨雅抒： 1、 Private Sub Form_click() Dim n As Integer n = InputBox(＂请输入欲判断的年份＂, ＂输入框＂) If (n Mod 4 = 0 And n Mod 100 <> 0) Or n Mod 400 = 0 Then Print n; ＂年是润年＂ Else Print n; ＂年不是润年＂ End If End Sub2、 Private...
义马市17188312876： 急,急,急!!!!VB 问题 - ？
成怨雅抒： Private Sub Command1_Click() n1 = 0 n2 = 0 For i = 1 To 100 If tb() = 1 Then n1 = n1 + 1 Else n2 = n2 + 1 End If Next i Print ＂掷100次硬币出现正面的次数:＂; n1 Print ＂掷100次硬币出现反面的次数:＂; n2 End Sub Function tb() As Integer Randomize tb = Int(Rnd * 2) End Function
义马市17188312876： vb问题集合 - ？
成怨雅抒： 1 for i=1 to 102 k mod 5=0 3 i * ＂=＂&i * j4 5 Picture1.Print...
义马市17188312876： vb问题,急求答案 - ？
成怨雅抒： Private Sub Command1_Click() Dim i% Randomize For i = 1 To 30 Print Int(Rnd * 100 + 1); If i Mod 10 = 0 Then Print Next End Sub Private Sub Command2_Click() Dim i%, n%, m As Boolean n = Val(InputBox(＂输入一个正整数吧!＂)) Print ＂正...
义马市17188312876： 关于VB的问题.. - ？
成怨雅抒： 按你的意思,看看是不是这样: Dim c As String Private Sub Command1_Click() a = Text1.Text For i = 1 To Len(a) b = Mid(a, i, 1) If IsNumeric(b) = False Then c = b x = InStr(a, c) Select Case c Case ＂+＂ u1 = Mid(a, 1, x - 1) u2 = Mid(a, x + 1, Len...
义马市17188312876： vb的问题 - ？
成怨雅抒： If cnn.State = adStateOpen Then cnn.Close 如果 ado连接对象 cnn的状态为打开就关闭这个连接 rs.CursorLocation = adUseClient 设置 数据集rs的游标位置 客户端游标,对应的还有服务端游标 If rs.State = adStateOpen Then rs.Close 如果 数据集rs的状态为打开,就关闭
