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

VB题 求答案 急

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

Private Sub Command1_Click()Dim A As Integer, B As Integer, C As Integer, P As Single, S As SingleA = Val(InputBox("请输入A边长。"))B = Val(InputBox("请输入B边长。"))C = Val(InputBox("请输入C边长。"))P = (A + B + C) / 2If P - A...

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为循环次...

Private Sub Form_Click()Label1.Visible = TrueEnd SubPrivate Sub Form_Load()Me.Caption = "标签"End Sub

Private Sub Command1_Click() '调用实例 Dim str As String MsgBox return_str(5) End Sub Private Function return_str(number As Integer) As String '通用函数 Dim str As String For i = 1 To number Dim str_temp As String str_temp = ""...

(1) 1 (2) 2 (3)< (4)s+n (5)n+2

第二题 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...

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...

在属性窗体内找到“caption”选项,将其属性值改为‘’VB程序设计‘’就行了。呃,是加载时显示的话也可以直接写程序,如图。

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