www.ndwl.net > VB题 求答案 急

VB题 求答案 急

D B A D D A D D B A C D C C

创建两个窗口,在窗口1上添加Listbox .Text与Label控件,然后“工具/菜单编辑器”创建菜单。窗口2上添加两个按钮,分别命名为Btn_draw和Btn_comback。完成后输入如下代码: 窗口1代码: Option Explicit Private Sub Menu11_Click() '产生 Dim Int...

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

Dim x%, y% Dim a(1 To 4) As Long Dim t As Long a(1) = Val(Text1.Text) a(2) = Val(Text2.Text) a(3) = Val(Text3.Text) a(4) = Val(Text4.Text) t = 0 For x = 1 To 3 For y = x + 1 To 4 If a(x) > a(y) Then t = a(y) a(y) = a(x) a(x) = ...

第二题 Private Sub Command1_Click() Dim a As Long Dim s As Long Dim i As Long If Trim(Text1.Text) = "" Then MsgBox "请填写N的值!!", vbInformation, "-提 示-" Exit Sub ElseIf Trim(Text1.Text) = "0" Then MsgBox "0不参于计算!", vbI...

A.softwre and hareware Private Sub Command1_Click() a = "software and hardware" b = Len(a) c = Left(a, 8) MsgBox a, b, c End Sub

A C A B A] D B B C D] C B C C C] B C D C B 全对

8、输入一个数X,如果X>=0,则Y=1-2*X,否则的话Y=1+X 9、循环,直到i大于7,每次循环i增加3,X增加5 10、RND函数是返回一个0—1之间的随机数,所以取整后X为4(只取整数部分),输出结果必为GOOD 11、循环,每一次循环X=(X+3)*(X+4),N为循环次...

1.建立用户界面 设置属性 编写代码 2.窗体设计窗口 3.ctrl 4.缇 5.工程 窗体 6.F4 7.caption 8.透明 9.2 10.宽度 11.text 12.Label TextBox 13. 14. _(续行符) (空格) 15.click 16.双击 17.dblclick picture1 picturebox 18.rem 19.逻辑 20.time...

x > y+ 3 有2种情况 要么 true 要么 false 然后 true > 2 false >2 基于true=-1和false=0的原则 上述2个表达式都是为假 所以答案B

网站地图

All rights reserved Powered by www.ndwl.net

copyright ©right 2010-2021。
www.ndwl.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com