1998年较1997年,每万从业人员中拥有专业技术人员人数增幅是()。 A.20%

题型:单项选择题

问题:

1998年较1997年,每万从业人员中拥有专业技术人员人数增幅是()。

A.20%

B.25%

C.28%

D.32%

考点:地方公务员行政职业能力测试福建省行政职业能力测验
题型:单项选择题

地球半径为R,表面的重力加速度为g,卫星在距地面高R处作匀速圆周运动时,线速度为______,角速度为______,加速度为______,周期为______.

题型:单项选择题

[说明]
在一些财务软件中,经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法,例如:
“3.45”转化为“叁元四角五分”;
“3.4”转化为“叁元四角”;
“3.40”转化为“叁元四角零分”;
“3.456”转化为“叁元四角五分”;
“345.00”转化为“叁百四十五元零角零分”;
“345”转化为“叁百四十五元”;
以下Visual Basic代码实现了小写金额转换为大写金额。界面如图10-9所示。结合实际例子说明,仔细阅读下面代码,将 (n) 代码补充完整。


[代码7-1]
Begin VB.FormForm1
Caption = "小写金额转换为大写金额"
//...窗体描述(略)
Begin VB.CommandButton Command1
Caption = "退出"
//...窗体描述(略)
End
Begin VB.TextBox Text2
//...窗体描述(略)
End
Begin VB.TextBox Text1
Enabled = 0 ’False
//…窗体描述(略)
End
Begin VB.Labe1 Labe12
Caption = "转换为大写金额"
//...窗体描述(略)
End
Begin VB.Labe1 Labe11
Caphon = "请输入数字"
//...窗体描述(略)
End
End
[代码7-2]
Private Function setdata (num As Integer) As String ’数字转换
Select CaSe num
Case 0
setdata="零"
Case 1
Setdata="壹"
Case 2
Setdata="贰"
Case 3
Setdata="叁"
Case4
Setdata="肆"
Case 5
Setdata="伍"
Case 6
Setdata="陆"
Case 7
Setdata="柒"
Case 8
Setdata="捌"
Case 9
Setdata="玖"
End Select
End Function
Private Function chang (aaa As Integer) As String ’位数转换
Select CaSe aaa
Case 1
chang=""
Case 2
chang="十"
Case 3
chang="百"
Case 4
chang="千"
Case 5
chang="万"
Case 6
chang="十"
Case 7
chang="百"
Case 8
chang="千"
Case 9
chang="亿"
Case 10
chang="十"
End Select
End Function
[代码7-3]
Private Sub Text2_Change ( ) ’小写转大写
Dim i As Integer
Dim j As Integer
Dim myint As Integer
Dim myint1 As Integer
Dim mydoub As Double
Dim mystr As String
Dim mystr1 As String
Dim mystr2 As String
Dim mystr3 As String
Dim mystr4 As String
Dim money As Long
Dim money1 As Integer
Dim money2 As Long
mystr=Text2.Text
myint=InStr (mystr, ".")
If myint=0 Then
mystr=Text2.Text
Else
mystr3=Right(Text2.Text, Len (Text2.Text ) - myint)
If mystr3<>""Then’转换小数位
mystr4=Left(mystr3, 1)
mystr3=Right(mystr3, Len(mystr3 ) - 1)
If mystr4<>"0"Then
(1)
End If
If mystr3<>""Then
mystr4=Left(mystr3, 1)
(2)
End If
End If
mystr=Left(Text2.Text,myint - 1)
End If
j=Len(mystr)
For i=1 To Len(mystr,i)
money2=Left(mystr,i)
money1=Right(money2,1)
If money1=0 Then
Ifj=5 Then
(3)
Else
(4)
End If
Else
(5)
End If
j=j-1
Next i
Text1.Text=mystr1&"元"&mystr2 ’显示大写
End sub

题型:单项选择题

在分配制度上,以按劳分配为主体,其他分配制度并存,______,______。

题型:单项选择题

硬盘录像机在普通的压缩质量下,录像回放质量比较满意。但有时发现马赛克现象比较严重,特别是对于运动图像,图像变得模糊不清,其主要原因是(),需要重新调整来加以补偿。

题型:单项选择题

写出《锅炉压力容器无损检测人员资格考核规则》中规定的高级人员理论知识考试范围。

更多题库