已知氨水的密度比纯水小,若以W1和W2分别表示amol/L和bmol/L氨水质量分数且2a=b,则下列推断正确的是()。
第1题:
( 31 ) 在窗体上画一个命令按钮和一个文本框 ( 名称分别为 Command1 和 Text1 ) , 并把窗体的Keyprewie w属性设置为 True ,然后编写如下代码:
Dim SaveAll As String
Private Sub Form_Load ()
Show
Text1.Text= ” ”
Text1.SetFocus
End Sub
Private Sub Command1_Click()
Text1.Text=Lcase(SaveAll)+SaveAll
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,直接用键盘输入: VB ,再单击命令按钮,则文本框中显示的内容为
A ) vbVB
B )不显示任何信息
C ) VB
D )出错
第2题:
给出窗体单击事件过程:
PRIVATE SUB FORM_CLICK( )
DIM A AS INTEGER
A =VAL( INPUTBOX( "PLEASE INPUT A NUMBER" ))
SELECT CASE A MOD 5
CASE IS<4
W=A+10
CASE IS<2
W=A.2
CASE ELSE
W=A-10
END SELECT
MSGBOX W
END SUB
当运行程序后,设输入的数据分别为14、3、125、21时,消息框显示的内容分别是【 】。
第3题:
下列程序运行时,单击窗体,执行结果为【 】。
说明:在窗体上有一Label控件,名为lblDate。
Dim Y As Integer,m As Integer,d As Integer,w1 As Integer
Dim Rq As Date
Dim W2 As String
Private Sub Form_Click()
Rq=Date
Y=Year(Rq): m=Month(Rq)∶d=Day(Rq)
w1=Weekday(x)
Select Case w1
Case 1
W2="日"
Case 2
W2="一"
Case 3
W2="二"
Case 4
W2="三"
Case 5
W2="四"
Case 6
W2="五"
Case 7
W2="六"
End Select
bldatE.Caption="今天是"&Y&"年"&m&"月"&d&"日"&"星期"&W2
End SUb
第4题:
高炉内炉料和煤气水当量的变化特点是在高炉上部W气/sub><W料。
第5题:
A.su
B.suroot
C.su-root
D.su-c"root"
第6题:
窗体Form1上有一个名称为Command1的命令按钮,以下对应窗体单击事件的事件过程是( )。
A.Private Sub Form1 Click( )
End Sub···
B.Private Sub Form1. Click( )
End Sub···
C.Private Sub Command1 click( )
End Sub···
D.Private Sub Command Click( )
End Sub···
第7题:
在窗体上建立一个单选钮组Option1和一个图片框Picture1,如下图所示。当选择不同的单选钮时,图片框中填充不同的图案,请填写程序的空白处,使程序完整。
Private Sub Option1_Click(______)
Dim H, W
Picture1.Cls
Picture1.FillStyle. =______
W = Picture1.ScaleWidth/2
H = Picture1.ScaleHeight/2
Picture1.Circle (W, H), W/2
End Sub
第8题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮,则窗体上显示的内容是______。
A.5
B.120
C.153
D.160
第9题:
第10题:
畏缩wèi suō