下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。
Private Sub Command1_Click()
Dim x AS Single
x=InputBox("请输入x的值!")
(14)
Case Is＜50
　　y=0.8*x
　Case 50 To 100
　　y=0.7*K
(15)
Print"输入的数据出界!"
End Select
Print x，y
End Sub

钱某走在从舞厅回家的路上，经过一个偏僻的路段时，看见一个留长发的人在前面独自行走，手中拎有一个旅行包，以为是单身女性，心中遂起歹意，蹑手蹑脚快步向前走至此人身后，将其扑倒在地欲行强 * * 。此人拼命挣扎，待钱某撕开此人衣物才发现是一名男子，钱某大为沮丧，起身夺过旅行包转身就跑。该男子紧紧追来，越追越近，眼看已无法脱身，钱某掏出随身携带的假枪，转身威胁该男子，该男子无奈，只得任由钱某离去。则关于本案的说法符合法律规定的是哪一项

A．钱某的行为已构成抢夺罪
B．钱某的行为已经构成抢劫罪
C．钱某的行为已经构成强 * * 罪中止
D．钱某持枪抢劫的情节使其至少被判处10年以上有期徒刑